R/locations.R
reporter_addresses.Rd
Get DEA designated addresses for each Reporter based on REPORTER_DEA_NO (Includes Manufacturers and Distributors)
reporter_addresses(county = "Mingo", state = "WV", key = "WaPo")
Filter the data to only this county (e.g. 'Mingo')
Filter the data to county within this state (e.g. 'WV')
Key needed to make query successful
# \donttest{
library(arcos)
mingo_wv <- reporter_addresses(county = "Harris", state="TX", key="WaPo")
head(mingo_wv)
#> Reporter_family REPORTER_DEA_NO REPORTER_BUS_ACT
#> 1 Great Southern Laboratories PG0208947 MANUFACTURER
#> 2 Avella of Houston RA0329777 MANUFACTURER
#> 3 Controlled Healthcare L L C RC0312683 DISTRIBUTOR
#> 4 <NA> RC0442866 REVERSE DISTRIB
#> 5 Martin Surgical Supply Co RM0279528 DISTRIBUTOR
#> 6 Prof Compounding Centers of America Inc RP0111803 MANUFACTURER
#> REPORTER_NAME REPORTER_ADDRESS1 REPORTER_CITY REPORTER_STATE
#> 1 GREAT SOUTHERN LABORATORIES 10863 ROCKLEY RD HOUSTON TX
#> 2 AVELLA OF HOUSTON 9265 KIRBY DRIVE HOUSTON TX
#> 3 CONTROLLED HEALTHCARE L L C 900 ROCKMEAD DRIVE KINGWOOD TX
#> 4 PHILIP RECLAMATION SERVICES 4050 HOMESTEAD ROAD HOUSTON TX
#> 5 MARTIN SURGICAL SUPPLY CO 707 E 6 1/2 STREET HOUSTON TX
#> 6 PROF COMPOUNDING CENTERS OF AMERICA INC HOUSTON TX
#> REPORTER_ZIP REPORTER_COUNTY REPORTER_ADDL_CO_INFO
#> 1 77099 HARRIS <NA>
#> 2 77054 HARRIS ADVANCED PHARMA, INC
#> 3 77339 HARRIS <NA>
#> 4 77028 HARRIS STERICYCLE ENVIRONMENTAL SOLUTIONS, INC.
#> 5 77007 HARRIS <NA>
#> 6 77099 HARRIS <NA>
#> REPORTER_ADDRESS2
#> 1 <NA>
#> 2 <NA>
#> 3 SUITE 142
#> 4 <NA>
#> 5 <NA>
#> 6 9901 S. WILCREST
# }