R/tri_tri_facility_history.R

In markwh/envirofacts: Access EPA Data via the Envirofacts Web Services

#' Retrieve tri facility history data from tri database
#' 
#' @param TRI_FACILITY_ID e.g. '00602BXTRF111CO'. See Details.
#' @param REPORTING_YEAR e.g. '1988'. See Details.
#' @param FACILITY_NAME e.g. 'BAXTER FENWAL DIV.,'. See Details.
#' @param STREET_ADDRESS e.g. '111 COLON ST.,'. See Details.
#' @param CITY_NAME e.g. 'AGUADA'. See Details.
#' @param COUNTY_NAME e.g. 'AGUADA'. See Details.
#' @param STATE_COUNTY_FIPS_CODE e.g. 'NA'. See Details.
#' @param STATE_ABBR e.g. 'PR'. See Details.
#' @param ZIP_CODE e.g. '00602'. See Details.
#' @param REGION e.g. '2'. See Details.
#' @param MAIL_NAME e.g. 'NA'. See Details.
#' @param MAIL_STREET_ADDRESS e.g. 'NA'. See Details.
#' @param MAIL_CITY e.g. 'NA'. See Details.
#' @param MAIL_STATE_ABBR e.g. 'NA'. See Details.
#' @param MAIL_PROVINCE e.g. 'NA'. See Details.
#' @param MAIL_COUNTRY e.g. 'NA'. See Details.
#' @param MAIL_ZIP_CODE e.g. 'NA'. See Details.
#' @param ASGN_FEDERAL_IND e.g. 'C'. See Details.
#' @param ASGN_AGENCY e.g. 'NA'. See Details.
#' @param PARENT_CO_DB_NUM e.g. 'NA'. See Details.
#' @param PARENT_CO_NAME e.g. 'BAXTER SALES CORP.'. See Details.
#' @param FAC_LATITUDE e.g. 'NA'. See Details.
#' @param FAC_LONGITUDE e.g. 'NA'. See Details.
#' @param PREF_LATITUDE e.g. 'NA'. See Details.
#' @param PREF_LONGITUDE e.g. 'NA'. See Details.
#' @param PREF_ACCURACY e.g. 'NA'. See Details.
#' @param PREF_COLLECT_METH e.g. 'NA'. See Details.
#' @param PREF_DESC_CATEGORY e.g. 'NA'. See Details.
#' @param PREF_HORIZONTAL_DATUM e.g. 'NA'. See Details.
#' @param PREF_SOURCE_SCALE e.g. 'NA'. See Details.
#' @param PREF_QA_CODE e.g. 'NA'. See Details.
#' @param ASGN_PARTIAL_IND e.g. 'NA'. See Details.
#' @param ASGN_PUBLIC_CONTACT e.g. 'NA'. See Details.
#' @param ASGN_PUBLIC_PHONE e.g. 'NA'. See Details.
#' @param ASGN_PUBLIC_CONTACT_EMAIL e.g. 'NA'. See Details.
#' @param BIA_CODE e.g. 'NA'. See Details.
#' @param STANDARDIZED_PARENT_COMPANY e.g. 'NA'. See Details.
#' @param ASGN_PUBLIC_PHONE_EXT e.g. 'NA'. See Details.
#' @export

tri_tri_facility_history <- function(TRI_FACILITY_ID = NULL, REPORTING_YEAR = NULL, 
    FACILITY_NAME = NULL, STREET_ADDRESS = NULL, CITY_NAME = NULL, COUNTY_NAME = NULL, 
    STATE_COUNTY_FIPS_CODE = NULL, STATE_ABBR = NULL, ZIP_CODE = NULL, REGION = NULL, 
    MAIL_NAME = NULL, MAIL_STREET_ADDRESS = NULL, MAIL_CITY = NULL, MAIL_STATE_ABBR = NULL, 
    MAIL_PROVINCE = NULL, MAIL_COUNTRY = NULL, MAIL_ZIP_CODE = NULL, ASGN_FEDERAL_IND = NULL, 
    ASGN_AGENCY = NULL, PARENT_CO_DB_NUM = NULL, PARENT_CO_NAME = NULL, FAC_LATITUDE = NULL, 
    FAC_LONGITUDE = NULL, PREF_LATITUDE = NULL, PREF_LONGITUDE = NULL, PREF_ACCURACY = NULL, 
    PREF_COLLECT_METH = NULL, PREF_DESC_CATEGORY = NULL, PREF_HORIZONTAL_DATUM = NULL, 
    PREF_SOURCE_SCALE = NULL, PREF_QA_CODE = NULL, ASGN_PARTIAL_IND = NULL, ASGN_PUBLIC_CONTACT = NULL, 
    ASGN_PUBLIC_PHONE = NULL, ASGN_PUBLIC_CONTACT_EMAIL = NULL, BIA_CODE = NULL, 
    STANDARDIZED_PARENT_COMPANY = NULL, ASGN_PUBLIC_PHONE_EXT = NULL) {
    
    args <- list(TRI_FACILITY_ID = TRI_FACILITY_ID, REPORTING_YEAR = REPORTING_YEAR, 
        FACILITY_NAME = FACILITY_NAME, STREET_ADDRESS = STREET_ADDRESS, CITY_NAME = CITY_NAME, 
        COUNTY_NAME = COUNTY_NAME, STATE_COUNTY_FIPS_CODE = STATE_COUNTY_FIPS_CODE, 
        STATE_ABBR = STATE_ABBR, ZIP_CODE = ZIP_CODE, REGION = REGION, MAIL_NAME = MAIL_NAME, 
        MAIL_STREET_ADDRESS = MAIL_STREET_ADDRESS, MAIL_CITY = MAIL_CITY, MAIL_STATE_ABBR = MAIL_STATE_ABBR, 
        MAIL_PROVINCE = MAIL_PROVINCE, MAIL_COUNTRY = MAIL_COUNTRY, MAIL_ZIP_CODE = MAIL_ZIP_CODE, 
        ASGN_FEDERAL_IND = ASGN_FEDERAL_IND, ASGN_AGENCY = ASGN_AGENCY, PARENT_CO_DB_NUM = PARENT_CO_DB_NUM, 
        PARENT_CO_NAME = PARENT_CO_NAME, FAC_LATITUDE = FAC_LATITUDE, FAC_LONGITUDE = FAC_LONGITUDE, 
        PREF_LATITUDE = PREF_LATITUDE, PREF_LONGITUDE = PREF_LONGITUDE, PREF_ACCURACY = PREF_ACCURACY, 
        PREF_COLLECT_METH = PREF_COLLECT_METH, PREF_DESC_CATEGORY = PREF_DESC_CATEGORY, 
        PREF_HORIZONTAL_DATUM = PREF_HORIZONTAL_DATUM, PREF_SOURCE_SCALE = PREF_SOURCE_SCALE, 
        PREF_QA_CODE = PREF_QA_CODE, ASGN_PARTIAL_IND = ASGN_PARTIAL_IND, ASGN_PUBLIC_CONTACT = ASGN_PUBLIC_CONTACT, 
        ASGN_PUBLIC_PHONE = ASGN_PUBLIC_PHONE, ASGN_PUBLIC_CONTACT_EMAIL = ASGN_PUBLIC_CONTACT_EMAIL, 
        BIA_CODE = BIA_CODE, STANDARDIZED_PARENT_COMPANY = STANDARDIZED_PARENT_COMPANY, 
        ASGN_PUBLIC_PHONE_EXT = ASGN_PUBLIC_PHONE_EXT)
    ret <- envir_get("tri_facility_history", args)
    
    ret
}