Use EPA Program ID to see FRS Facility Registry Service data on those EPA-regulated sites
Source:R/frs_from_xyz.R
frs_from_programid.RdUse EPA Program ID to see FRS Facility Registry Service data on those EPA-regulated sites
Arguments
- programname
name of EPA program that the programid is from: "RCRAINFO" is the programname and "XJW000000174" is the programid if the full record was RCRAINFO:XJW000000174
- programid
like "XJW000000174" "RCRAINFO" is the programname and "XJW000000174" is the programid if the full record was RCRAINFO:XJW000000174
Value
relevant rows of the data.table called frs, which has column names that are "lat" "lon" "REGISTRY_ID" "PRIMARY_NAME" "NAICS" "PGM_SYS_ACRNMS"
Examples
test <- data.frame(programname = c('STATE','FIS','FIS'),
programid = c('#5005','0-0000-01097','0-0000-01103'))
x = frs_from_programid(test$programname, test$programid)
#> Loading arrow datasets: frs_by_programid
#> ❌ Token is invalid or expired. Resetting...
#> Arrow-format datasets (blocks, etc.) are up-to-date -- locally-installed and latest-released data repository versions match.
#> looking for frs_by_programid in memory...
#> frs_by_programid is loading from local folder ...done.
#>
x
#> lat lon REGISTRY_ID PRIMARY_NAME
#> <num> <num> <char> <char>
#> 1: 44.13415 -104.12563 110012799846 SNOW ADVENTURE
#> 2: 40.71490 -74.00316 110019246163 SITE RECLAMATION SYSTEMS MTU (SUN R&M)
#> 3: 40.76395 -73.97037 110019163359 ENVIROSOUND MTU
#> NAICS SIC PGM_SYS_ACRNMS
#> <char> <char> <char>
#> 1: 5541 ICIS:2656510, STATE:#5005
#> 2: FIS:0-0000-01097
#> 3: FIS:0-0000-01103
mapfast(x)