Extract main office

extract_mainoffice(x)

Arguments

x

a get request to openentreprise.fr

Value

a tibble

Examples

get_openentreprise(.siren = "533735932") %>% extract_mainoffice()
#> # A tibble: 1 x 7 #> siret code_naf label_naf street #> <chr> <chr> <chr> <chr> #> 1 53373593200022 5829C Edition de logiciels applicatifs 22 RUE CHAUCHAT #> # ... with 3 more variables: zipCode <chr>, city <chr>, creationDate <date>