R/ghg_y_flare_information.R

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

#' Retrieve y flare information data from ghg database
#'
#' @param FACILITY_ID e.g. '1000025'. See Details.
#' @param REPORTING_YEAR e.g. '2011'. See Details.
#' @param FLARE_TYPE e.g. 'Steam assisted'. See Details.
#' @param FLARE_TYPE_OTHER e.g. 'NA'. See Details.
#' @param FLARE_SERVICE e.g. 'Emergency only flare'. See Details.
#' @param FLARE_SERVICE_OTHER e.g. 'NA'. See Details.
#' @param C_FROM_CH4_FRACTION_BASIS e.g. 'Chromatographic analysis: manufacturer's instructions'. See Details.
#' @param C_FROM_CH4_FRACTION_BASIS_OTHR e.g. 'NA'. See Details.
#' @param UNIT_NAME e.g. 'Flare 18-74'. See Details.
#' @param UNIT_TYPE e.g. 'Flare'. See Details.
#' @param CO2_CALCULATION_METHOD e.g. '98.253(b)(1)(ii)(A) - Equation Y-1a Gas Composition Monitored'. See Details.
#' @param FLARE_CO2_EMISSIONS e.g. '906.6'. See Details.
#' @param CO2EMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param FLARE_CH4_EMISSIONS e.g. '2.74'. See Details.
#' @param CH4EMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param FLARE_N2O_EMISSIONS e.g. '0.009'. See Details.
#' @param N2OEMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param Y1A_MEASUREMENT_PERIOD e.g. 'Weekly'. See Details.
#' @param Y1A_VOL_FLARE_GAS e.g. '18066264.14'. See Details.
#' @param Y1BANNVOLFLAREGASUOM e.g. 'NA'. See Details.
#' @param Y1B_VOL_FLARE_GAS_METHOD e.g. 'NA'. See Details.
#' @param Y1B_CO2_CONCENTRATION e.g. 'NA'. See Details.
#' @param Y1BANNAVGCO2CONCUOM e.g. 'NA'. See Details.
#' @param Y1B_CO2_CONCENTRATION_METHOD e.g. 'NA'. See Details.
#' @param Y1B_CO2_CONC_MTHD_OTHR e.g. 'NA'. See Details.
#' @param Y1B_NUMBER_NONCO2_C_COMPOUNDS e.g. 'NA'. See Details.
#' @param Y2_MEASUREMENT_PERIOD e.g. 'NA'. See Details.
#' @param Y2_VOL_FLARE_GAS e.g. 'NA'. See Details.
#' @param Y2ANNVOLFLAREGASUOM e.g. 'NA'. See Details.
#' @param Y2_VOL_FLARE_GAS_METHOD e.g. 'NA'. See Details.
#' @param Y2_HHV e.g. 'NA'. See Details.
#' @param Y2ANNHHVALUOM e.g. 'NA'. See Details.
#' @param Y2_HHV_METHOD e.g. 'NA'. See Details.
#' @param Y2_HHV_METHOD_OTHER e.g. 'NA'. See Details.
#' @param Y2_VOL_FLARE_GAS_CONDITIONS e.g. 'NA'. See Details.
#' @param Y2_HHV_CONDITIONS e.g. 'NA'. See Details.
#' @param Y3_NUMBER_SSM_EVENTS e.g. 'NA'. See Details.
#' @param Y1A_MOL_WT_METHOD e.g. 'Chromatographic analysis: manufacturer's instructions'. See Details.
#' @param Y1A_C_CONTENT_METHOD e.g. 'Chromatographic analysis: manufacturer's instructions'. See Details.
#' @param Y1AEQVOLOFFLAREGASUOM e.g. 'scf'. See Details.
#' @param Y1A_VOL_FLARE_GAS_METHOD e.g. 'Placid uses engineering calculations to determine volumetric flare gas flow.'. See Details.
#' @param Y1A_MOL_WT e.g. '21.87'. See Details.
#' @param Y1AEQANNAVGMOLWTUOM e.g. 'kg/kg-mole'. See Details.
#' @param Y1A_MOL_WT_METHOD_OTHER e.g. 'NA'. See Details.
#' @param Y1A_C_CONTENT e.g. '0.66'. See Details.
#' @param Y1AEQANNAVGCCONTENTUOM e.g. 'decimal fraction; kg carbon/kg flare gas'. See Details.
#' @param Y1A_C_CONTENT_METHOD_OTHER e.g. 'NA'. See Details.
#' @param Y1B_MEASUREMENT_PERIOD e.g. 'NA'. See Details.
#' @param Y1B_VOL_FLARE_GAS e.g. 'NA'. See Details.
#' @param Y1B_CONC_NONCO2_C_COMPND_MTHD e.g. 'NA'. See Details.
#' @param Y1BANNAVGCONCMTHD e.g. 'NA'. See Details.
#' @export

ghg_y_flare_information <- function(FACILITY_ID = NULL, REPORTING_YEAR = NULL, FLARE_TYPE = NULL,
    FLARE_TYPE_OTHER = NULL, FLARE_SERVICE = NULL, FLARE_SERVICE_OTHER = NULL, C_FROM_CH4_FRACTION_BASIS = NULL,
    C_FROM_CH4_FRACTION_BASIS_OTHR = NULL, UNIT_NAME = NULL, UNIT_TYPE = NULL, CO2_CALCULATION_METHOD = NULL,
    FLARE_CO2_EMISSIONS = NULL, CO2EMMVALUOM = NULL, FLARE_CH4_EMISSIONS = NULL,
    CH4EMMVALUOM = NULL, FLARE_N2O_EMISSIONS = NULL, N2OEMMVALUOM = NULL, Y1A_MEASUREMENT_PERIOD = NULL,
    Y1A_VOL_FLARE_GAS = NULL, Y1BANNVOLFLAREGASUOM = NULL, Y1B_VOL_FLARE_GAS_METHOD = NULL,
    Y1B_CO2_CONCENTRATION = NULL, Y1BANNAVGCO2CONCUOM = NULL, Y1B_CO2_CONCENTRATION_METHOD = NULL,
    Y1B_CO2_CONC_MTHD_OTHR = NULL, Y1B_NUMBER_NONCO2_C_COMPOUNDS = NULL, Y2_MEASUREMENT_PERIOD = NULL,
    Y2_VOL_FLARE_GAS = NULL, Y2ANNVOLFLAREGASUOM = NULL, Y2_VOL_FLARE_GAS_METHOD = NULL,
    Y2_HHV = NULL, Y2ANNHHVALUOM = NULL, Y2_HHV_METHOD = NULL, Y2_HHV_METHOD_OTHER = NULL,
    Y2_VOL_FLARE_GAS_CONDITIONS = NULL, Y2_HHV_CONDITIONS = NULL, Y3_NUMBER_SSM_EVENTS = NULL,
    Y1A_MOL_WT_METHOD = NULL, Y1A_C_CONTENT_METHOD = NULL, Y1AEQVOLOFFLAREGASUOM = NULL,
    Y1A_VOL_FLARE_GAS_METHOD = NULL, Y1A_MOL_WT = NULL, Y1AEQANNAVGMOLWTUOM = NULL,
    Y1A_MOL_WT_METHOD_OTHER = NULL, Y1A_C_CONTENT = NULL, Y1AEQANNAVGCCONTENTUOM = NULL,
    Y1A_C_CONTENT_METHOD_OTHER = NULL, Y1B_MEASUREMENT_PERIOD = NULL, Y1B_VOL_FLARE_GAS = NULL,
    Y1B_CONC_NONCO2_C_COMPND_MTHD = NULL, Y1BANNAVGCONCMTHD = NULL) {

    args <- list(FACILITY_ID = FACILITY_ID, REPORTING_YEAR = REPORTING_YEAR, FLARE_TYPE = FLARE_TYPE,
        FLARE_TYPE_OTHER = FLARE_TYPE_OTHER, FLARE_SERVICE = FLARE_SERVICE, FLARE_SERVICE_OTHER = FLARE_SERVICE_OTHER,
        C_FROM_CH4_FRACTION_BASIS = C_FROM_CH4_FRACTION_BASIS, C_FROM_CH4_FRACTION_BASIS_OTHR = C_FROM_CH4_FRACTION_BASIS_OTHR,
        UNIT_NAME = UNIT_NAME, UNIT_TYPE = UNIT_TYPE, CO2_CALCULATION_METHOD = CO2_CALCULATION_METHOD,
        FLARE_CO2_EMISSIONS = FLARE_CO2_EMISSIONS, CO2EMMVALUOM = CO2EMMVALUOM, FLARE_CH4_EMISSIONS = FLARE_CH4_EMISSIONS,
        CH4EMMVALUOM = CH4EMMVALUOM, FLARE_N2O_EMISSIONS = FLARE_N2O_EMISSIONS, N2OEMMVALUOM = N2OEMMVALUOM,
        Y1A_MEASUREMENT_PERIOD = Y1A_MEASUREMENT_PERIOD, Y1A_VOL_FLARE_GAS = Y1A_VOL_FLARE_GAS,
        Y1BANNVOLFLAREGASUOM = Y1BANNVOLFLAREGASUOM, Y1B_VOL_FLARE_GAS_METHOD = Y1B_VOL_FLARE_GAS_METHOD,
        Y1B_CO2_CONCENTRATION = Y1B_CO2_CONCENTRATION, Y1BANNAVGCO2CONCUOM = Y1BANNAVGCO2CONCUOM,
        Y1B_CO2_CONCENTRATION_METHOD = Y1B_CO2_CONCENTRATION_METHOD, Y1B_CO2_CONC_MTHD_OTHR = Y1B_CO2_CONC_MTHD_OTHR,
        Y1B_NUMBER_NONCO2_C_COMPOUNDS = Y1B_NUMBER_NONCO2_C_COMPOUNDS, Y2_MEASUREMENT_PERIOD = Y2_MEASUREMENT_PERIOD,
        Y2_VOL_FLARE_GAS = Y2_VOL_FLARE_GAS, Y2ANNVOLFLAREGASUOM = Y2ANNVOLFLAREGASUOM,
        Y2_VOL_FLARE_GAS_METHOD = Y2_VOL_FLARE_GAS_METHOD, Y2_HHV = Y2_HHV, Y2ANNHHVALUOM = Y2ANNHHVALUOM,
        Y2_HHV_METHOD = Y2_HHV_METHOD, Y2_HHV_METHOD_OTHER = Y2_HHV_METHOD_OTHER,
        Y2_VOL_FLARE_GAS_CONDITIONS = Y2_VOL_FLARE_GAS_CONDITIONS, Y2_HHV_CONDITIONS = Y2_HHV_CONDITIONS,
        Y3_NUMBER_SSM_EVENTS = Y3_NUMBER_SSM_EVENTS, Y1A_MOL_WT_METHOD = Y1A_MOL_WT_METHOD,
        Y1A_C_CONTENT_METHOD = Y1A_C_CONTENT_METHOD, Y1AEQVOLOFFLAREGASUOM = Y1AEQVOLOFFLAREGASUOM,
        Y1A_VOL_FLARE_GAS_METHOD = Y1A_VOL_FLARE_GAS_METHOD, Y1A_MOL_WT = Y1A_MOL_WT,
        Y1AEQANNAVGMOLWTUOM = Y1AEQANNAVGMOLWTUOM, Y1A_MOL_WT_METHOD_OTHER = Y1A_MOL_WT_METHOD_OTHER,
        Y1A_C_CONTENT = Y1A_C_CONTENT, Y1AEQANNAVGCCONTENTUOM = Y1AEQANNAVGCCONTENTUOM,
        Y1A_C_CONTENT_METHOD_OTHER = Y1A_C_CONTENT_METHOD_OTHER, Y1B_MEASUREMENT_PERIOD = Y1B_MEASUREMENT_PERIOD,
        Y1B_VOL_FLARE_GAS = Y1B_VOL_FLARE_GAS, Y1B_CONC_NONCO2_C_COMPND_MTHD = Y1B_CONC_NONCO2_C_COMPND_MTHD,
        Y1BANNAVGCONCMTHD = Y1BANNAVGCONCMTHD)
    ret <- envir_get("y_flare_information", args)

    ret
}