#' Retrieve y asphaltblowing info data from ghg database
#'
#' @param FACILITY_ID e.g. '1002261'. See Details.
#' @param REPORTING_YEAR e.g. '2010'. See Details.
#' @param FACILITY_NAME e.g. 'TRICOR REFINING LLC'. See Details.
#' @param UNIT_NAME e.g. 'ABA Plant'. See Details.
#' @param UNIT_TYPE e.g. 'Asphalt Blowing Unit'. See Details.
#' @param CONTROL_DEVICE_TYPE e.g. 'Other (specify)'. See Details.
#' @param CONTROL_DEVICE_TYPE_OTHER e.g. 'incinerator'. See Details.
#' @param C_EMISSION_FACTOR_BASIS_Y16B e.g. 'NA'. See Details.
#' @param C_EMISS_FACTOR_BASIS_Y16B_OTHR e.g. 'NA'. See Details.
#' @param VOL_FLOW_DISCHARGED_IS_SUB e.g. 'NA'. See Details.
#' @param VOLUMETRIC_FLOW_DISCHARGED e.g. 'NA'. See Details.
#' @param VOL_FLOW_DISCHARGED_NUM_SUB e.g. 'NA'. See Details.
#' @param VOL_FLOW_DISCHARGED_METHOD e.g. 'NA'. See Details.
#' @param NUM_OF_VENTING_EVNTS_IS_SUB e.g. 'NA'. See Details.
#' @param NUMBER_OF_VENTING_EVENTS e.g. 'NA'. See Details.
#' @param NUM_OF_VENTING_EVNTS_NUM_SUB e.g. 'NA'. See Details.
#' @param VENTING_TIME e.g. 'NA'. See Details.
#' @param CH4_MOLE_FRACTION e.g. 'NA'. See Details.
#' @param CH4_MOLE_FRAC_NUM_SUBSTITUTED e.g. 'NA'. See Details.
#' @param CH4_MOLE_FRACTION_METHOD e.g. 'NA'. See Details.
#' @param CO2_MOLE_FRAC_IS_SUBSTITUTED e.g. 'NA'. See Details.
#' @param CO2_MOLE_FRACTION e.g. 'NA'. See Details.
#' @param CO2_MOLE_FRAC_NUM_SUBSTITUTED e.g. 'NA'. See Details.
#' @param CO2_MOLE_FRACTION_METHOD e.g. 'NA'. See Details.
#' @param N2O_MOLE_FRAC_IS_SUBSTITUTED e.g. 'NA'. See Details.
#' @param N2O_MOLE_FRACTION e.g. 'NA'. See Details.
#' @param N2O_MOLE_FRAC_NUM_SUBSTITUTED e.g. 'NA'. See Details.
#' @param CH4_MOLE_FRACTION_METHOD_OTHER e.g. 'NA'. See Details.
#' @param CO2_MOLE_FRACTION_METHOD_OTHER e.g. 'NA'. See Details.
#' @param N2O_MOLE_FRACTION_METHOD_OTHER e.g. 'NA'. See Details.
#' @param VOL_FLOW_DISCHARGED_MTHD_OTHER e.g. 'NA'. See Details.
#' @param CO2_CALCULATION_METHOD e.g. 'Equation Y-16a and Y-17'. See Details.
#' @param MASS_CO2 e.g. '766.8'. See Details.
#' @param CH4_EMISSIONS e.g. '0.9'. See Details.
#' @param CO2_EMISSION_FACTOR_BASIS_Y14 e.g. 'NA'. See Details.
#' @param CO2_EMIS_FACTOR_BASIS_Y14_OTHR e.g. 'NA'. See Details.
#' @param CH4_EMISSION_FACTOR_BASIS_Y14 e.g. 'NA'. See Details.
#' @param CH4_EMM_FACTOR_BASIS_Y14_OTHER e.g. 'NA'. See Details.
#' @param CH4_EMISSION_FACTOR_BASIS_Y17 e.g. 'Used default emission factor'. See Details.
#' @param CH4_EMISS_FACTOR_BAS_Y17_OTHR e.g. 'NA'. See Details.
#' @param C_EMISSION_FACTOR_BASIS_Y16A e.g. 'Used default emission factor'. See Details.
#' @param C_EMISS_FACTOR_BASIS_Y16A_OTHR e.g. 'NA'. See Details.
#' @param CO2_EMM_FACTOR_BASIS_Y16B e.g. 'NA'. See Details.
#' @param CO2_EMISS_FACTOR_BAS_Y16B_OTHR e.g. 'NA'. See Details.
#' @export
ghg_y_asphaltblowing_info <- function(FACILITY_ID = NULL, REPORTING_YEAR = NULL,
FACILITY_NAME = NULL, UNIT_NAME = NULL, UNIT_TYPE = NULL, CONTROL_DEVICE_TYPE = NULL,
CONTROL_DEVICE_TYPE_OTHER = NULL, C_EMISSION_FACTOR_BASIS_Y16B = NULL, C_EMISS_FACTOR_BASIS_Y16B_OTHR = NULL,
VOL_FLOW_DISCHARGED_IS_SUB = NULL, VOLUMETRIC_FLOW_DISCHARGED = NULL, VOL_FLOW_DISCHARGED_NUM_SUB = NULL,
VOL_FLOW_DISCHARGED_METHOD = NULL, NUM_OF_VENTING_EVNTS_IS_SUB = NULL, NUMBER_OF_VENTING_EVENTS = NULL,
NUM_OF_VENTING_EVNTS_NUM_SUB = NULL, VENTING_TIME = NULL, CH4_MOLE_FRACTION = NULL,
CH4_MOLE_FRAC_NUM_SUBSTITUTED = NULL, CH4_MOLE_FRACTION_METHOD = NULL, CO2_MOLE_FRAC_IS_SUBSTITUTED = NULL,
CO2_MOLE_FRACTION = NULL, CO2_MOLE_FRAC_NUM_SUBSTITUTED = NULL, CO2_MOLE_FRACTION_METHOD = NULL,
N2O_MOLE_FRAC_IS_SUBSTITUTED = NULL, N2O_MOLE_FRACTION = NULL, N2O_MOLE_FRAC_NUM_SUBSTITUTED = NULL,
CH4_MOLE_FRACTION_METHOD_OTHER = NULL, CO2_MOLE_FRACTION_METHOD_OTHER = NULL,
N2O_MOLE_FRACTION_METHOD_OTHER = NULL, VOL_FLOW_DISCHARGED_MTHD_OTHER = NULL,
CO2_CALCULATION_METHOD = NULL, MASS_CO2 = NULL, CH4_EMISSIONS = NULL, CO2_EMISSION_FACTOR_BASIS_Y14 = NULL,
CO2_EMIS_FACTOR_BASIS_Y14_OTHR = NULL, CH4_EMISSION_FACTOR_BASIS_Y14 = NULL,
CH4_EMM_FACTOR_BASIS_Y14_OTHER = NULL, CH4_EMISSION_FACTOR_BASIS_Y17 = NULL,
CH4_EMISS_FACTOR_BAS_Y17_OTHR = NULL, C_EMISSION_FACTOR_BASIS_Y16A = NULL, C_EMISS_FACTOR_BASIS_Y16A_OTHR = NULL,
CO2_EMM_FACTOR_BASIS_Y16B = NULL, CO2_EMISS_FACTOR_BAS_Y16B_OTHR = NULL) {
args <- list(FACILITY_ID = FACILITY_ID, REPORTING_YEAR = REPORTING_YEAR, FACILITY_NAME = FACILITY_NAME,
UNIT_NAME = UNIT_NAME, UNIT_TYPE = UNIT_TYPE, CONTROL_DEVICE_TYPE = CONTROL_DEVICE_TYPE,
CONTROL_DEVICE_TYPE_OTHER = CONTROL_DEVICE_TYPE_OTHER, C_EMISSION_FACTOR_BASIS_Y16B = C_EMISSION_FACTOR_BASIS_Y16B,
C_EMISS_FACTOR_BASIS_Y16B_OTHR = C_EMISS_FACTOR_BASIS_Y16B_OTHR, VOL_FLOW_DISCHARGED_IS_SUB = VOL_FLOW_DISCHARGED_IS_SUB,
VOLUMETRIC_FLOW_DISCHARGED = VOLUMETRIC_FLOW_DISCHARGED, VOL_FLOW_DISCHARGED_NUM_SUB = VOL_FLOW_DISCHARGED_NUM_SUB,
VOL_FLOW_DISCHARGED_METHOD = VOL_FLOW_DISCHARGED_METHOD, NUM_OF_VENTING_EVNTS_IS_SUB = NUM_OF_VENTING_EVNTS_IS_SUB,
NUMBER_OF_VENTING_EVENTS = NUMBER_OF_VENTING_EVENTS, NUM_OF_VENTING_EVNTS_NUM_SUB = NUM_OF_VENTING_EVNTS_NUM_SUB,
VENTING_TIME = VENTING_TIME, CH4_MOLE_FRACTION = CH4_MOLE_FRACTION, CH4_MOLE_FRAC_NUM_SUBSTITUTED = CH4_MOLE_FRAC_NUM_SUBSTITUTED,
CH4_MOLE_FRACTION_METHOD = CH4_MOLE_FRACTION_METHOD, CO2_MOLE_FRAC_IS_SUBSTITUTED = CO2_MOLE_FRAC_IS_SUBSTITUTED,
CO2_MOLE_FRACTION = CO2_MOLE_FRACTION, CO2_MOLE_FRAC_NUM_SUBSTITUTED = CO2_MOLE_FRAC_NUM_SUBSTITUTED,
CO2_MOLE_FRACTION_METHOD = CO2_MOLE_FRACTION_METHOD, N2O_MOLE_FRAC_IS_SUBSTITUTED = N2O_MOLE_FRAC_IS_SUBSTITUTED,
N2O_MOLE_FRACTION = N2O_MOLE_FRACTION, N2O_MOLE_FRAC_NUM_SUBSTITUTED = N2O_MOLE_FRAC_NUM_SUBSTITUTED,
CH4_MOLE_FRACTION_METHOD_OTHER = CH4_MOLE_FRACTION_METHOD_OTHER, CO2_MOLE_FRACTION_METHOD_OTHER = CO2_MOLE_FRACTION_METHOD_OTHER,
N2O_MOLE_FRACTION_METHOD_OTHER = N2O_MOLE_FRACTION_METHOD_OTHER, VOL_FLOW_DISCHARGED_MTHD_OTHER = VOL_FLOW_DISCHARGED_MTHD_OTHER,
CO2_CALCULATION_METHOD = CO2_CALCULATION_METHOD, MASS_CO2 = MASS_CO2, CH4_EMISSIONS = CH4_EMISSIONS,
CO2_EMISSION_FACTOR_BASIS_Y14 = CO2_EMISSION_FACTOR_BASIS_Y14, CO2_EMIS_FACTOR_BASIS_Y14_OTHR = CO2_EMIS_FACTOR_BASIS_Y14_OTHR,
CH4_EMISSION_FACTOR_BASIS_Y14 = CH4_EMISSION_FACTOR_BASIS_Y14, CH4_EMM_FACTOR_BASIS_Y14_OTHER = CH4_EMM_FACTOR_BASIS_Y14_OTHER,
CH4_EMISSION_FACTOR_BASIS_Y17 = CH4_EMISSION_FACTOR_BASIS_Y17, CH4_EMISS_FACTOR_BAS_Y17_OTHR = CH4_EMISS_FACTOR_BAS_Y17_OTHR,
C_EMISSION_FACTOR_BASIS_Y16A = C_EMISSION_FACTOR_BASIS_Y16A, C_EMISS_FACTOR_BASIS_Y16A_OTHR = C_EMISS_FACTOR_BASIS_Y16A_OTHR,
CO2_EMM_FACTOR_BASIS_Y16B = CO2_EMM_FACTOR_BASIS_Y16B, CO2_EMISS_FACTOR_BAS_Y16B_OTHR = CO2_EMISS_FACTOR_BAS_Y16B_OTHR)
ret <- envir_get("y_asphaltblowing_info", args)
ret
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.