Get lat lon, Registry ID, and NAICS, for given FRS Program System CATEGORY Find all FRS sites in a program like RCRAINFO, TRIS, or others

Get lat lon, Registry ID, and NAICS, for given FRS Program System CATEGORY

Find all FRS sites in a program like RCRAINFO, TRIS, or others

Usage

latlon_from_program(query)

Arguments

query

like "RMP", "RCRAINFO", "TRIS", "RMP", or others.

Value

data.table with lat lon REGISTRY_ID program – but not pgm_sys_id since there could be duplicates where same REGISTRY_ID has 2 different pgm_sys_id values in the same program, so results were sometimes longer than if using frs_from_program()

Details

For info on FRS program codes in general, see https://www.epa.gov/frs/frs-program-crosswalks

Also see information at https://echo.epa.gov/tools/data-downloads/frs-download-summary about the file FRS_PROGRAM_LINKS.csv

For info on program codes ECHO uses, see https://echo.epa.gov/resources/echo-data/about-the-data

including https://www.epa.gov/frs/frs-environmental-interest-types

For a list of program acronyms, https://www.epa.gov/frs/frs-rest-services#appendixa

The acronym is the abbreviated name that represents the name of an information management system for an environmental program. The Federal ones with at least 100k facilities each are

RCRAINFO (over 500k sites), NPDES, ICIS, AIR, FIS, EIS, and AIRS/AFS.

Examples

if (FALSE) { # \dontrun{
 x = latlon_from_program("CAMDBS")
  mapfast(x)
 program <- c("EIS", "UST")
 x = latlon_from_program(program)
 # to get the facility name as well:
 x = frs[grepl("RCRAINFO", PGM_SYS_ACRNMS), ] # fast
 ## x = latlon_from_regid(latlon_from_program(program)[,REGISTRY_ID])  # slower!
 mapfast(x[sample(1:nrow(x), 1000), ])
} # }