R/ghg_q_flare_information.R

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

#' Retrieve q flare information data from ghg database
#' 
#' @param FACILITY_ID e.g. '1000156'. See Details.
#' @param REPORTING_YEAR e.g. '2013'. See Details.
#' @param C_FROM_CH4_FRACTION_BASIS e.g. 'NA'. See Details.
#' @param FLARE_TYPE e.g. 'Unassisted'. See Details.
#' @param FLARE_TYPE_OTHER e.g. 'NA'. See Details.
#' @param FLARE_SERVICE e.g. 'Unit flare'. See Details.
#' @param FLARE_SERVICE_OTHER e.g. 'NA'. See Details.
#' @param C_FROM_CH4_FRACTION_BASIS_OTHR e.g. 'NA'. See Details.
#' @param UNIT_NAME e.g. 'SRC_IH7_BFG Flare 1_195'. See Details.
#' @param UNIT_TYPE e.g. 'Flare'. See Details.
#' @param CO2_CALCULATION_METHOD e.g. '98.253(b)(1)(iii) - Equation Y-3 Start-up, Shutdown, Malfunction'. See Details.
#' @param FLARE_CO2_EMISSIONS e.g. '124224.4'. See Details.
#' @param CO2EMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param FLARE_CH4_EMISSIONS e.g. '0.01'. See Details.
#' @param CH4EMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param FLARE_N2O_EMISSIONS e.g. '0.042'. See Details.
#' @param N2OEMMVALUOM e.g. 'Metric Tons'. See Details.
#' @param Y1A_MEASUREMENT_PERIOD e.g. 'NA'. See Details.
#' @param Y1A_VOL_FLARE_GAS e.g. 'NA'. See Details.
#' @param Y1AEQVOLOFFLAREGASUOM e.g. 'NA'. See Details.
#' @param Y1A_VOL_FLARE_GAS_METHOD e.g. 'NA'. See Details.
#' @param Y1A_MOL_WT e.g. 'NA'. See Details.
#' @param Y1AEQANNAVGMOLWTUOM e.g. 'NA'. See Details.
#' @param Y1A_MOL_WT_METHOD_OTHER e.g. 'NA'. See Details.
#' @param Y1A_C_CONTENT e.g. 'NA'. See Details.
#' @param Y1AEQANNAVGCCONTENTUOM e.g. 'NA'. 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 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_CONCENTRA_METHOD_OTHER 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. '0'. See Details.
#' @param Y1A_MOL_WT_METHOD e.g. 'NA'. See Details.
#' @param Y1A_C_CONTENT_METHOD e.g. 'NA'. See Details.
#' @param Y1B_CONC_NON_CO2_C_COMP_METHD e.g. 'NA'. See Details.
#' @param Y1BANNAVGCONCMTHD e.g. 'NA'. See Details.
#' @export

ghg_q_flare_information <- function(FACILITY_ID = NULL, REPORTING_YEAR = NULL, C_FROM_CH4_FRACTION_BASIS = NULL, 
    FLARE_TYPE = NULL, FLARE_TYPE_OTHER = NULL, FLARE_SERVICE = NULL, FLARE_SERVICE_OTHER = 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, 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, Y1BANNVOLFLAREGASUOM = NULL, 
    Y1B_VOL_FLARE_GAS_METHOD = NULL, Y1B_CO2_CONCENTRATION = NULL, Y1BANNAVGCO2CONCUOM = NULL, 
    Y1B_CO2_CONCENTRATION_METHOD = NULL, Y1B_CO2_CONCENTRA_METHOD_OTHER = 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, 
    Y1B_CONC_NON_CO2_C_COMP_METHD = NULL, Y1BANNAVGCONCMTHD = NULL) {
    
    args <- list(FACILITY_ID = FACILITY_ID, REPORTING_YEAR = REPORTING_YEAR, C_FROM_CH4_FRACTION_BASIS = C_FROM_CH4_FRACTION_BASIS, 
        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_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, 
        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, 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_CONCENTRA_METHOD_OTHER = Y1B_CO2_CONCENTRA_METHOD_OTHER, 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, 
        Y1B_CONC_NON_CO2_C_COMP_METHD = Y1B_CONC_NON_CO2_C_COMP_METHD, Y1BANNAVGCONCMTHD = Y1BANNAVGCONCMTHD)
    ret <- envir_get("q_flare_information", args)
    
    ret
}