R/zchunk_batch_elec_segments_water_USA_xml.R
In JGCRI/gcamdata: Build the GCAM Input Datasets
Defines functions
module_gcamusa_batch_elec_segments_water_USA_xml
Documented in
module_gcamusa_batch_elec_segments_water_USA_xml
# Copyright 2019 Battelle Memorial Institute; see the LICENSE file.
#' module_gcamusa_batch_elec_segments_water_USA_xml
#'
#' Construct XML data structure for \code{elec_segments_water_USA.xml}.
#'
#' @param command API command to execute
#' @param ... other optional parameters, depending on command
#' @importFrom dplyr filter mutate select rename
#' @return Depends on \code{command}: either a vector of required inputs,
#' a vector of output names, or (if \code{command} is "MAKE") all
#' the generated outputs: \code{electricity_water.xml}. The corresponding file in the
#' original data system was \code{batch_electricity_water.xml.R} (water XML).
module_gcamusa_batch_elec_segments_water_USA_xml <- function(command, ...) {
if(command == driver.DECLARE_INPUTS) {
return(c("L2233.GlobalTechEff_elecS_cool_USA",
"L2233.GlobalTechShrwt_elecS_cool_USA",
"L2233.GlobalTechProfitShutdown_elecS_cool_USA",
"L2233.GlobalTechOMvar_elecS_cool_USA",
"L2233.GlobalTechOMfixed_elecS_cool_USA",
"L2233.GlobalTechCapital_elecS_USA",
"L2233.GlobalTechCapital_elecS_cool_USA",
"L2233.GlobalTechCapFac_elecS_cool_USA",
"L2233.GlobalTechSCurve_elecS_cool_USA",
"L2233.GlobalTechCoef_elecS_cool_USA",
"L2233.GlobalTechCapture_elecS_cool_USA",
"L2233.GlobalTechLifetime_elecS_cool_USA",
"L2233.AvgFossilEffKeyword_elecS_cool_USA",
"L2233.GlobalIntTechBackup_elecS_cool_USA",
"L2233.GlobalIntTechCapital_elecS_USA",
"L2233.GlobalIntTechCapital_elecS_cool_USA",
"L2233.GlobalIntTechEff_elecS_USA",
"L2233.GlobalIntTechEff_elecS_cool_USA",
"L2233.GlobalIntTechLifetime_elecS_cool_USA",
"L2233.GlobalIntTechOMfixed_elecS_cool_USA",
"L2233.GlobalIntTechOMvar_elecS_cool_USA",
"L2233.GlobalIntTechShrwt_elecS_cool_USA",
"L2233.GlobalIntTechCoef_elecS_cool_USA",
"L2233.PrimaryRenewKeyword_elecS_cool_USA",
"L2233.PrimaryRenewKeywordInt_elecS_cool_USA",
"L2233.StubTechEff_elecS_cool_USA",
"L2233.StubTechCoef_elecS_cool_USA",
"L2233.StubTechMarket_elecS_cool_USA",
"L2233.StubTechProd_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechCapFactor_elecS_solar_USA",
"L2233.StubTechCapFactor_elecS_wind_USA",
"L2233.StubTechElecMarket_backup_elecS_cool_USA",
"L2233.StubTechFixOut_elecS_cool_USA",
"L2233.StubTechFixOut_hydro_elecS_cool_USA",
"L2233.StubTechMarket_backup_elecS_cool_USA",
"L2233.StubTechProfitShutdown_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechShrwt_elecS_cool_USA",
"L2233.StubTechInterp_elecS_cool_USA",
"L2233.StubTechCost_offshore_wind_elecS_cool_USA",
"L2233.SubsectorLogit_elecS_USA",
"L2233.SubsectorLogit_elecS_cool_USA",
"L2233.SubsectorShrwt_elecS_USA",
"L2233.SubsectorShrwt_elecS_cool_USA",
"L2233.SubsectorShrwtInterp_elecS_USA",
"L2233.SubsectorShrwtInterpTo_elecS_USA",
"L2233.Supplysector_elecS_cool_USA",
"L2234.SubsectorShrwtFllt_elecS_grid_USA",
"L2234.SubsectorShrwtInterp_elecS_grid_USA",
"L2234.PassThroughSector_elecS_USA",
"L2234.PassThroughTech_elecS_grid_USA",
"L2234.ElecReserve_elecS_USA",
"L2234.TechShrwt_elecS_grid_USA",
"L2234.TechCoef_elecS_grid_USA",
"L2234.TechProd_elecS_grid_USA",
"L2235.DeleteSupplysector_elec_USA",
"L2235.InterestRate_FERC_USA",
"L2235.Pop_FERC_USA",
"L2235.BaseGDP_FERC_USA",
"L2235.LaborForceFillout_FERC_USA",
"L2235.Supplysector_elec_USA",
"L2235.ElecReserve_elecS_grid_vertical_USA",
"L2235.SubsectorLogit_elec_USA",
"L2235.SubsectorShrwtFllt_elec_USA",
"L2235.SubsectorInterp_elec_USA",
"L2235.SubsectorShrwt_elec_USA",
"L2235.SubsectorInterpTo_elec_USA",
"L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA",
"L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA",
"L2235.TechShrwt_elec_USA",
"L2235.TechCoef_elec_USA",
"L2235.Production_exports_elec_USA",
"L2235.TechShrwt_elecS_grid_vertical_USA",
"L2235.TechCoef_elecS_grid_vertical_USA",
"L2235.Supplysector_elec_FERC_USA",
"L2235.SubsectorLogit_elec_FERC_USA",
"L2235.SubsectorShrwtFllt_elec_FERC_USA",
"L2235.SubsectorInterp_elec_FERC_USA",
"L2235.SubsectorShrwt_elec_FERC",
"L2235.SubsectorInterpTo_elec_FERC",
"L2235.TechShrwt_elec_FERC_USA",
"L2235.TechCoef_elec_FERC_USA",
"L2235.TechCoef_elecownuse_FERC_USA",
"L2235.Production_imports_FERC_USA",
"L2235.Production_elec_gen_FERC_USA"))
} else if(command == driver.DECLARE_OUTPUTS) {
return(c(XML = "elec_segments_water_USA.xml"))
} else if(command == driver.MAKE) {
all_data <- list(...)[[1]]
passthrough.sector <- pass.through.sector <- pass.through.technology <- supplysector <-
sector.name <- subsector.name <- subsector <- subsector.name0 <- subsector0 <-
intermittent.technology <- stub.technology <- technology <- share.weight <- tech.share.weight <- NULL # silence package check notes
# Load required inputs
L2233.GlobalTechEff_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechEff_elecS_cool_USA")
L2233.GlobalTechShrwt_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechShrwt_elecS_cool_USA")
L2233.GlobalTechProfitShutdown_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechProfitShutdown_elecS_cool_USA")
L2233.GlobalTechOMvar_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechOMvar_elecS_cool_USA")
L2233.GlobalTechOMfixed_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechOMfixed_elecS_cool_USA")
L2233.GlobalTechCapital_elecS_USA<- get_data(all_data,"L2233.GlobalTechCapital_elecS_USA")
L2233.GlobalTechCapital_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCapital_elecS_cool_USA")
L2233.GlobalTechCapFac_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCapFac_elecS_cool_USA")
L2233.GlobalTechSCurve_elecS_cool_USA <- get_data(all_data,"L2233.GlobalTechSCurve_elecS_cool_USA")
L2233.GlobalTechCoef_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCoef_elecS_cool_USA")
L2233.GlobalTechCapture_elecS_cool_USA <- get_data(all_data, "L2233.GlobalTechCapture_elecS_cool_USA")
L2233.GlobalTechLifetime_elecS_cool_USA <- get_data(all_data, "L2233.GlobalTechLifetime_elecS_cool_USA")
L2233.AvgFossilEffKeyword_elecS_cool_USA <- get_data(all_data,"L2233.AvgFossilEffKeyword_elecS_cool_USA")
L2233.GlobalIntTechBackup_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechBackup_elecS_cool_USA")
L2233.GlobalIntTechCapital_elecS_USA<- get_data(all_data,"L2233.GlobalIntTechCapital_elecS_USA")
L2233.GlobalIntTechCapital_elecS_cool_USA <- get_data(all_data,"L2233.GlobalIntTechCapital_elecS_cool_USA")
L2233.GlobalIntTechEff_elecS_USA <- get_data(all_data, "L2233.GlobalIntTechEff_elecS_USA")
L2233.GlobalIntTechEff_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechEff_elecS_cool_USA")
L2233.GlobalIntTechLifetime_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechLifetime_elecS_cool_USA")
L2233.GlobalIntTechOMfixed_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechOMfixed_elecS_cool_USA")
L2233.GlobalIntTechOMvar_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechOMvar_elecS_cool_USA")
L2233.GlobalIntTechShrwt_elecS_cool_USA <- get_data(all_data,"L2233.GlobalIntTechShrwt_elecS_cool_USA")
L2233.GlobalIntTechCoef_elecS_cool_USA <- get_data(all_data, "L2233.GlobalIntTechCoef_elecS_cool_USA")
L2233.PrimaryRenewKeyword_elecS_cool_USA <- get_data(all_data,"L2233.PrimaryRenewKeyword_elecS_cool_USA")
L2233.PrimaryRenewKeywordInt_elecS_cool_USA <- get_data(all_data,"L2233.PrimaryRenewKeywordInt_elecS_cool_USA")
L2233.StubTechEff_elecS_cool_USA <- get_data(all_data,"L2233.StubTechEff_elecS_cool_USA")
L2233.StubTechCoef_elecS_cool_USA <- get_data(all_data, "L2233.StubTechCoef_elecS_cool_USA")
L2233.StubTechMarket_elecS_cool_USA<- get_data(all_data,"L2233.StubTechMarket_elecS_cool_USA")
L2233.StubTechProd_elecS_cool_USA<- get_data(all_data,"L2233.StubTechProd_elecS_cool_USA")
L2233.StubTechProfitShutdown_elecS_cool_USA <- get_data(all_data, "L2233.StubTechProfitShutdown_elecS_cool_USA")
L2233.StubTechSCurve_elecS_cool_USA<- get_data(all_data,"L2233.StubTechSCurve_elecS_cool_USA")
L2233.StubTechCapFactor_elecS_solar_USA <- get_data(all_data,"L2233.StubTechCapFactor_elecS_solar_USA")
L2233.StubTechCapFactor_elecS_wind_USA<- get_data(all_data,"L2233.StubTechCapFactor_elecS_wind_USA")
L2233.StubTechElecMarket_backup_elecS_cool_USA <- get_data(all_data,"L2233.StubTechElecMarket_backup_elecS_cool_USA")
L2233.StubTechFixOut_elecS_cool_USA<- get_data(all_data,"L2233.StubTechFixOut_elecS_cool_USA")
L2233.StubTechFixOut_hydro_elecS_cool_USA<- get_data(all_data,"L2233.StubTechFixOut_hydro_elecS_cool_USA")
L2233.StubTechMarket_backup_elecS_cool_USA <- get_data(all_data,"L2233.StubTechMarket_backup_elecS_cool_USA")
L2233.StubTechShrwt_elecS_cool_USA <- get_data(all_data, "L2233.StubTechShrwt_elecS_cool_USA")
L2233.StubTechInterp_elecS_cool_USA <- get_data(all_data, "L2233.StubTechInterp_elecS_cool_USA")
L2233.StubTechCost_offshore_wind_elecS_cool_USA <- get_data(all_data,"L2233.StubTechCost_offshore_wind_elecS_cool_USA")
L2233.SubsectorLogit_elecS_USA <- get_data(all_data,"L2233.SubsectorLogit_elecS_USA")
L2233.SubsectorLogit_elecS_cool_USA <- get_data(all_data,"L2233.SubsectorLogit_elecS_cool_USA")
L2233.SubsectorShrwt_elecS_USA <- get_data(all_data,"L2233.SubsectorShrwt_elecS_USA")
L2233.SubsectorShrwt_elecS_cool_USA <- get_data(all_data,"L2233.SubsectorShrwt_elecS_cool_USA")
L2233.SubsectorShrwtInterp_elecS_USA <- get_data(all_data,"L2233.SubsectorShrwtInterp_elecS_USA")
L2233.SubsectorShrwtInterpTo_elecS_USA<- get_data(all_data,"L2233.SubsectorShrwtInterpTo_elecS_USA")
L2233.Supplysector_elecS_cool_USA<- get_data(all_data,"L2233.Supplysector_elecS_cool_USA")
L2234.SubsectorShrwtFllt_elecS_grid_USA <- get_data(all_data, "L2234.SubsectorShrwtFllt_elecS_grid_USA")
L2234.SubsectorShrwtInterp_elecS_grid_USA <- get_data(all_data, "L2234.SubsectorShrwtInterp_elecS_grid_USA")
L2234.PassThroughSector_elecS_USA <- get_data(all_data, "L2234.PassThroughSector_elecS_USA")
L2234.PassThroughTech_elecS_grid_USA <- get_data(all_data, "L2234.PassThroughTech_elecS_grid_USA")
L2234.ElecReserve_elecS_USA <- get_data(all_data, "L2234.ElecReserve_elecS_USA")
L2234.TechShrwt_elecS_grid_USA <- get_data(all_data, "L2234.TechShrwt_elecS_grid_USA")
L2234.TechCoef_elecS_grid_USA <- get_data(all_data, "L2234.TechCoef_elecS_grid_USA")
L2234.TechProd_elecS_grid_USA <- get_data(all_data, "L2234.TechProd_elecS_grid_USA")
L2235.DeleteSupplysector_elec_USA <- get_data(all_data, "L2235.DeleteSupplysector_elec_USA")
L2235.InterestRate_FERC_USA <- get_data(all_data, "L2235.InterestRate_FERC_USA")
L2235.Pop_FERC_USA <- get_data(all_data, "L2235.Pop_FERC_USA")
L2235.BaseGDP_FERC_USA <- get_data(all_data, "L2235.BaseGDP_FERC_USA")
L2235.LaborForceFillout_FERC_USA <- get_data(all_data, "L2235.LaborForceFillout_FERC_USA")
L2235.Supplysector_elec_USA <- get_data(all_data, "L2235.Supplysector_elec_USA")
L2235.ElecReserve_elecS_grid_vertical_USA <- get_data(all_data, "L2235.ElecReserve_elecS_grid_vertical_USA")
L2235.SubsectorLogit_elec_USA <- get_data(all_data, "L2235.SubsectorLogit_elec_USA")
L2235.SubsectorShrwtFllt_elec_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elec_USA")
L2235.SubsectorInterp_elec_USA <- get_data(all_data, "L2235.SubsectorInterp_elec_USA")
L2235.SubsectorShrwt_elec_USA <- get_data(all_data, "L2235.SubsectorShrwt_elec_USA")
L2235.SubsectorInterpTo_elec_USA <- get_data(all_data, "L2235.SubsectorInterpTo_elec_USA")
L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA")
L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA <- get_data(all_data, "L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA")
L2235.TechShrwt_elec_USA <- get_data(all_data, "L2235.TechShrwt_elec_USA")
L2235.TechCoef_elec_USA <- get_data(all_data, "L2235.TechCoef_elec_USA")
L2235.Production_exports_elec_USA <- get_data(all_data, "L2235.Production_exports_elec_USA")
L2235.TechShrwt_elecS_grid_vertical_USA <- get_data(all_data, "L2235.TechShrwt_elecS_grid_vertical_USA")
L2235.TechCoef_elecS_grid_vertical_USA <- get_data(all_data, "L2235.TechCoef_elecS_grid_vertical_USA")
L2235.Supplysector_elec_FERC_USA <- get_data(all_data, "L2235.Supplysector_elec_FERC_USA")
L2235.SubsectorLogit_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorLogit_elec_FERC_USA")
L2235.SubsectorShrwtFllt_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elec_FERC_USA")
L2235.SubsectorInterp_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorInterp_elec_FERC_USA")
L2235.SubsectorShrwt_elec_FERC <- get_data(all_data, "L2235.SubsectorShrwt_elec_FERC")
L2235.SubsectorInterpTo_elec_FERC <- get_data(all_data, "L2235.SubsectorInterpTo_elec_FERC")
L2235.TechShrwt_elec_FERC_USA <- get_data(all_data, "L2235.TechShrwt_elec_FERC_USA")
L2235.TechCoef_elec_FERC_USA <- get_data(all_data, "L2235.TechCoef_elec_FERC_USA")
L2235.TechCoef_elecownuse_FERC_USA <- get_data(all_data, "L2235.TechCoef_elecownuse_FERC_USA")
L2235.Production_imports_FERC_USA <- get_data(all_data, "L2235.Production_imports_FERC_USA")
L2235.Production_elec_gen_FERC_USA <- get_data(all_data, "L2235.Production_elec_gen_FERC_USA")
# Silence package checks
technology <- NULL
L2234.PassThroughSector_elecS_USA <- rename(L2234.PassThroughSector_elecS_USA, pass.through.sector = passthrough.sector)
L2234.PassThroughTech_elecS_grid_USA <- rename(L2234.PassThroughTech_elecS_grid_USA, pass.through.technology = technology)
# Function to fix GlobalTech / GlobalIntTech sector & subsector names, which is a recurring issue
fix_global_tech_names <- function(data){
data_new <- data %>%
rename(sector.name = supplysector,
subsector.name = subsector,
subsector.name0 = subsector0)
return(data_new)
}
L2233.GlobalIntTechBackup_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechBackup_elecS_cool_USA)
L2233.GlobalIntTechCapital_elecS_USA<- fix_global_tech_names(L2233.GlobalIntTechCapital_elecS_USA)
L2233.GlobalIntTechCapital_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalIntTechCapital_elecS_cool_USA)
L2233.GlobalIntTechEff_elecS_USA <- fix_global_tech_names(L2233.GlobalIntTechEff_elecS_USA)
L2233.GlobalIntTechEff_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechEff_elecS_cool_USA)
L2233.GlobalIntTechLifetime_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechLifetime_elecS_cool_USA)
L2233.GlobalIntTechOMfixed_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechOMfixed_elecS_cool_USA)
L2233.GlobalIntTechOMvar_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechOMvar_elecS_cool_USA)
L2233.GlobalIntTechCoef_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalIntTechCoef_elecS_cool_USA)
L2233.GlobalTechProfitShutdown_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalTechProfitShutdown_elecS_cool_USA)
L2233.GlobalTechCoef_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalTechCoef_elecS_cool_USA)
L2233.AvgFossilEffKeyword_elecS_cool_USA <- rename(L2233.AvgFossilEffKeyword_elecS_cool_USA, subsector.name = subsector)
L2233.GlobalTechSCurve_elecS_cool_USA <- rename(L2233.GlobalTechSCurve_elecS_cool_USA, sector.name = supplysector)
L2233.GlobalTechLifetime_elecS_cool_USA <- rename(L2233.GlobalTechLifetime_elecS_cool_USA, sector.name = supplysector)
L2233.GlobalTechCapture_elecS_cool_USA <- rename(L2233.GlobalTechCapture_elecS_cool_USA, sector.name = supplysector)
L2233.PrimaryRenewKeywordInt_elecS_cool_USA <- rename(L2233.PrimaryRenewKeywordInt_elecS_cool_USA, technology = intermittent.technology)
L2233.GlobalIntTechBackup_elecS_cool_USA <- rename(L2233.GlobalIntTechBackup_elecS_cool_USA, technology = intermittent.technology)
L2233.GlobalIntTechCoef_elecS_cool_USA <- rename(L2233.GlobalIntTechCoef_elecS_cool_USA,technology = intermittent.technology)
L2233.StubTechMarket_elecS_cool_USA <- rename(L2233.StubTechMarket_elecS_cool_USA, stub.technology = technology)
L2233.StubTechMarket_backup_elecS_cool_USA <- rename(L2233.StubTechMarket_backup_elecS_cool_USA, stub.technology = technology)
L2233.StubTechElecMarket_backup_elecS_cool_USA <- rename(L2233.StubTechElecMarket_backup_elecS_cool_USA, stub.technology = technology)
L2233.StubTechProd_elecS_cool_USA <- rename(L2233.StubTechProd_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCapFactor_elecS_wind_USA <- rename(L2233.StubTechCapFactor_elecS_wind_USA, stub.technology = technology)
L2233.StubTechCapFactor_elecS_solar_USA <- rename(L2233.StubTechCapFactor_elecS_solar_USA, stub.technology = technology)
L2233.StubTechFixOut_elecS_cool_USA <- rename(L2233.StubTechFixOut_elecS_cool_USA, stub.technology = technology)
L2233.StubTechEff_elecS_cool_USA <- rename(L2233.StubTechEff_elecS_cool_USA, stub.technology = technology)
L2233.StubTechFixOut_hydro_elecS_cool_USA <- rename(L2233.StubTechFixOut_hydro_elecS_cool_USA, stub.technology = technology)
L2233.StubTechSCurve_elecS_cool_USA <- rename(L2233.StubTechSCurve_elecS_cool_USA, stub.technology = technology)
L2233.StubTechProfitShutdown_elecS_cool_USA <- rename(L2233.StubTechProfitShutdown_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCoef_elecS_cool_USA <- rename(L2233.StubTechCoef_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCost_offshore_wind_elecS_cool_USA <- rename(L2233.StubTechCost_offshore_wind_elecS_cool_USA, stub.technology = technology)
L2233.SubsectorLogit_elecS_USA <- rename(L2233.SubsectorLogit_elecS_USA, subsector = subsector0)
L2233.SubsectorShrwt_elecS_USA <- rename(L2233.SubsectorShrwt_elecS_USA, subsector=subsector0)
L2233.SubsectorShrwtInterp_elecS_USA <- rename(L2233.SubsectorShrwtInterp_elecS_USA, subsector=subsector0)
L2233.SubsectorShrwtInterpTo_elecS_USA <- rename(L2233.SubsectorShrwtInterpTo_elecS_USA, subsector=subsector0)
L2233.PrimaryRenewKeyword_elecS_cool_USA <- rename(L2233.PrimaryRenewKeyword_elecS_cool_USA, subsector.name=subsector)
L2234.TechProd_elecS_grid_USA <- rename(L2234.TechProd_elecS_grid_USA, tech.share.weight = share.weight)
# ===================================================
# Produce outputs
create_xml("elec_segments_water_USA.xml") %>%
add_node_equiv_xml("sector") %>%
add_node_equiv_xml("technology") %>%
add_xml_data(L2234.PassThroughSector_elecS_USA, "PassThroughSector") %>%
add_xml_data(L2234.PassThroughTech_elecS_grid_USA, "PassThroughTech") %>%
add_logit_tables_xml(L2233.Supplysector_elecS_cool_USA, "Supplysector") %>%
add_xml_data(L2234.ElecReserve_elecS_USA, "ElecReserve") %>%
add_xml_data(L2233.AvgFossilEffKeyword_elecS_cool_USA, "AvgFossilEffKeyword") %>%
add_xml_data(L2233.GlobalTechCapital_elecS_USA, "GlobalTechCapital") %>%
add_xml_data(L2233.GlobalTechCapital_elecS_cool_USA, "GlobalTechCapital") %>%
add_xml_data(L2233.GlobalIntTechCapital_elecS_USA, "GlobalIntTechCapital") %>%
add_xml_data(L2233.GlobalIntTechCapital_elecS_cool_USA, "GlobalIntTechCapital") %>%
add_xml_data(L2233.GlobalTechOMfixed_elecS_cool_USA, "GlobalTechOMfixed") %>%
add_xml_data(L2233.GlobalIntTechOMfixed_elecS_cool_USA, "GlobalIntTechOMfixed") %>%
add_xml_data(L2233.GlobalTechOMvar_elecS_cool_USA, "GlobalTechOMvar") %>%
add_xml_data(L2233.GlobalIntTechOMvar_elecS_cool_USA, "GlobalIntTechOMvar") %>%
add_xml_data(L2233.GlobalTechCapFac_elecS_cool_USA, "GlobalTechCapFac") %>%
add_xml_data(L2233.GlobalTechEff_elecS_cool_USA, "GlobalTechEff") %>%
add_xml_data(L2233.GlobalTechCoef_elecS_cool_USA, "GlobalTechCoef") %>%
add_xml_data(L2233.GlobalIntTechEff_elecS_USA, "GlobalIntTechEff") %>%
add_xml_data(L2233.GlobalIntTechEff_elecS_cool_USA, "GlobalIntTechEff") %>%
add_xml_data(L2233.GlobalIntTechCoef_elecS_cool_USA, "GlobalIntTechCoef") %>%
add_xml_data(L2233.GlobalIntTechLifetime_elecS_cool_USA, "GlobalIntTechLifetime") %>%
add_xml_data(L2233.GlobalTechProfitShutdown_elecS_cool_USA, "GlobalTechProfitShutdown") %>%
add_xml_data(L2233.GlobalTechSCurve_elecS_cool_USA, "GlobalTechSCurve") %>%
add_xml_data(L2233.GlobalTechCapture_elecS_cool_USA, "GlobalTechCapture") %>%
add_xml_data(L2233.GlobalTechLifetime_elecS_cool_USA, "GlobalTechLifetime") %>%
add_xml_data(L2233.GlobalIntTechBackup_elecS_cool_USA, "GlobalIntTechBackup") %>%
add_xml_data(L2233.GlobalTechShrwt_elecS_cool_USA, "GlobalTechShrwt") %>%
add_xml_data(L2233.GlobalIntTechShrwt_elecS_cool_USA, "GlobalIntTechShrwt") %>%
add_logit_tables_xml_generate_levels(L2233.SubsectorLogit_elecS_cool_USA,
"SubsectorLogit","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.SubsectorShrwt_elecS_cool_USA,
"SubsectorShrwt","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechMarket_elecS_cool_USA,
"StubTechMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechMarket_backup_elecS_cool_USA,
"StubTechMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechElecMarket_backup_elecS_cool_USA,
"StubTechElecMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechProd_elecS_cool_USA,
"StubTechProd","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCapFactor_elecS_wind_USA,
"StubTechCapFactor","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCapFactor_elecS_solar_USA,
"StubTechCapFactor","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechFixOut_elecS_cool_USA,
"StubTechFixOut","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechEff_elecS_cool_USA,
"StubTechEff","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechFixOut_hydro_elecS_cool_USA,
"StubTechFixOut","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechSCurve_elecS_cool_USA,
"StubTechSCurve", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechProfitShutdown_elecS_cool_USA,
"StubTechProfitShutdown", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCoef_elecS_cool_USA,
"StubTechCoef", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCost_offshore_wind_elecS_cool_USA,
"StubTechCost", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechShrwt_elecS_cool_USA,
"StubTechShrwt", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechInterp_elecS_cool_USA,
"StubTechInterp", "subsector","nesting-subsector",1,FALSE) %>%
add_node_equiv_xml("subsector") %>%
add_logit_tables_xml(L2233.SubsectorLogit_elecS_USA, "SubsectorLogit") %>%
add_xml_data(L2233.SubsectorShrwt_elecS_USA, "SubsectorShrwt") %>%
add_xml_data(L2233.SubsectorShrwtInterp_elecS_USA, "SubsectorInterp") %>%
add_xml_data(L2233.SubsectorShrwtInterpTo_elecS_USA, "SubsectorInterpTo") %>%
add_xml_data(L2233.PrimaryRenewKeyword_elecS_cool_USA, "PrimaryRenewKeyword") %>%
add_xml_data(L2233.PrimaryRenewKeywordInt_elecS_cool_USA, "PrimaryRenewKeywordInt") %>%
add_xml_data(L2234.TechShrwt_elecS_grid_USA, "TechShrwt") %>%
add_xml_data(L2234.TechCoef_elecS_grid_USA, "TechCoef") %>%
add_xml_data(L2234.TechProd_elecS_grid_USA, "Production") %>%
add_xml_data(L2234.SubsectorShrwtFllt_elecS_grid_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2234.SubsectorShrwtInterp_elecS_grid_USA, "SubsectorInterp") %>%
add_xml_data(L2235.DeleteSupplysector_elec_USA, "DeleteSupplysector") %>%
add_xml_data(L2235.InterestRate_FERC_USA, "InterestRate") %>%
add_xml_data(L2235.Pop_FERC_USA, "Pop") %>%
add_xml_data(L2235.BaseGDP_FERC_USA, "BaseGDP") %>%
add_xml_data(L2235.LaborForceFillout_FERC_USA, "LaborForceFillout") %>%
add_logit_tables_xml(L2235.Supplysector_elec_USA, "Supplysector") %>%
add_xml_data(L2235.ElecReserve_elecS_grid_vertical_USA, "ElecReserve") %>%
add_logit_tables_xml(L2235.SubsectorLogit_elec_USA, "SubsectorLogit") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elec_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorInterp_elec_USA, "SubsectorInterp") %>%
add_xml_data(L2235.SubsectorShrwt_elec_USA, "SubsectorShrwt") %>%
add_xml_data(L2235.SubsectorInterpTo_elec_USA, "SubsectorInterpTo") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA, "SubsectorInterp") %>%
add_xml_data(L2235.TechShrwt_elec_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elec_USA, "TechCoef") %>%
add_xml_data(L2235.Production_exports_elec_USA, "Production") %>%
add_xml_data(L2235.TechShrwt_elecS_grid_vertical_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elecS_grid_vertical_USA, "TechCoef") %>%
add_logit_tables_xml(L2235.Supplysector_elec_FERC_USA, "Supplysector") %>%
add_logit_tables_xml(L2235.SubsectorLogit_elec_FERC_USA, "SubsectorLogit") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elec_FERC_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorInterp_elec_FERC_USA, "SubsectorInterp") %>%
add_xml_data(L2235.SubsectorShrwt_elec_FERC, "SubsectorShrwt") %>%
add_xml_data(L2235.SubsectorInterpTo_elec_FERC, "SubsectorInterpTo") %>%
add_xml_data(L2235.TechShrwt_elec_FERC_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elec_FERC_USA, "TechCoef") %>%
add_xml_data(L2235.TechCoef_elecownuse_FERC_USA, "TechCoef") %>%
add_xml_data(L2235.Production_imports_FERC_USA, "Production") %>%
add_xml_data(L2235.Production_elec_gen_FERC_USA, "Production") %>%
add_precursors("L2233.GlobalTechEff_elecS_cool_USA",
"L2233.GlobalTechShrwt_elecS_cool_USA",
"L2233.GlobalTechProfitShutdown_elecS_cool_USA",
"L2233.GlobalTechOMvar_elecS_cool_USA",
"L2233.GlobalTechOMfixed_elecS_cool_USA",
"L2233.GlobalTechCapital_elecS_USA",
"L2233.GlobalTechCapital_elecS_cool_USA",
"L2233.GlobalTechCapFac_elecS_cool_USA",
"L2233.GlobalTechSCurve_elecS_cool_USA",
"L2233.GlobalTechCoef_elecS_cool_USA",
"L2233.GlobalTechCapture_elecS_cool_USA",
"L2233.GlobalTechLifetime_elecS_cool_USA",
"L2233.AvgFossilEffKeyword_elecS_cool_USA",
"L2233.GlobalIntTechBackup_elecS_cool_USA",
"L2233.GlobalIntTechCapital_elecS_USA",
"L2233.GlobalIntTechCapital_elecS_cool_USA",
"L2233.GlobalIntTechEff_elecS_USA",
"L2233.GlobalIntTechEff_elecS_cool_USA",
"L2233.GlobalIntTechLifetime_elecS_cool_USA",
"L2233.GlobalIntTechOMfixed_elecS_cool_USA",
"L2233.GlobalIntTechOMvar_elecS_cool_USA",
"L2233.GlobalIntTechShrwt_elecS_cool_USA",
"L2233.GlobalIntTechCoef_elecS_cool_USA",
"L2233.PrimaryRenewKeyword_elecS_cool_USA",
"L2233.PrimaryRenewKeywordInt_elecS_cool_USA",
"L2233.StubTechEff_elecS_cool_USA",
"L2233.StubTechCoef_elecS_cool_USA",
"L2233.StubTechMarket_elecS_cool_USA",
"L2233.StubTechProd_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechCapFactor_elecS_solar_USA",
"L2233.StubTechCapFactor_elecS_wind_USA",
"L2233.StubTechElecMarket_backup_elecS_cool_USA",
"L2233.StubTechFixOut_elecS_cool_USA",
"L2233.StubTechFixOut_hydro_elecS_cool_USA",
"L2233.StubTechMarket_backup_elecS_cool_USA",
"L2233.StubTechProfitShutdown_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechShrwt_elecS_cool_USA",
"L2233.StubTechInterp_elecS_cool_USA",
"L2233.StubTechCost_offshore_wind_elecS_cool_USA",
"L2233.SubsectorLogit_elecS_USA",
"L2233.SubsectorLogit_elecS_cool_USA",
"L2233.SubsectorShrwt_elecS_USA",
"L2233.SubsectorShrwt_elecS_cool_USA",
"L2233.SubsectorShrwtInterp_elecS_USA",
"L2233.SubsectorShrwtInterpTo_elecS_USA",
"L2233.Supplysector_elecS_cool_USA",
"L2234.SubsectorShrwtFllt_elecS_grid_USA",
"L2234.SubsectorShrwtInterp_elecS_grid_USA",
"L2234.PassThroughSector_elecS_USA",
"L2234.PassThroughTech_elecS_grid_USA",
"L2234.ElecReserve_elecS_USA",
"L2234.TechShrwt_elecS_grid_USA",
"L2234.TechCoef_elecS_grid_USA",
"L2234.TechProd_elecS_grid_USA",
"L2235.DeleteSupplysector_elec_USA",
"L2235.InterestRate_FERC_USA",
"L2235.Pop_FERC_USA",
"L2235.BaseGDP_FERC_USA",
"L2235.LaborForceFillout_FERC_USA",
"L2235.Supplysector_elec_USA",
"L2235.ElecReserve_elecS_grid_vertical_USA",
"L2235.SubsectorLogit_elec_USA",
"L2235.SubsectorShrwtFllt_elec_USA",
"L2235.SubsectorInterp_elec_USA",
"L2235.SubsectorShrwt_elec_USA",
"L2235.SubsectorInterpTo_elec_USA",
"L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA",
"L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA",
"L2235.TechShrwt_elec_USA",
"L2235.TechCoef_elec_USA",
"L2235.Production_exports_elec_USA",
"L2235.TechShrwt_elecS_grid_vertical_USA",
"L2235.TechCoef_elecS_grid_vertical_USA",
"L2235.Supplysector_elec_FERC_USA",
"L2235.SubsectorLogit_elec_FERC_USA",
"L2235.SubsectorShrwtFllt_elec_FERC_USA",
"L2235.SubsectorInterp_elec_FERC_USA",
"L2235.SubsectorShrwt_elec_FERC",
"L2235.SubsectorInterpTo_elec_FERC",
"L2235.TechShrwt_elec_FERC_USA",
"L2235.TechCoef_elec_FERC_USA",
"L2235.TechCoef_elecownuse_FERC_USA",
"L2235.Production_imports_FERC_USA",
"L2235.Production_elec_gen_FERC_USA") ->
elec_segments_water_USA.xml
return_data(elec_segments_water_USA.xml)
} else {
stop("Unknown command")
}
}
JGCRI/gcamdata documentation built on March 21, 2023, 2:19 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions module_gcamusa_batch_elec_segments_water_USA_xml
Documented in module_gcamusa_batch_elec_segments_water_USA_xml
# Copyright 2019 Battelle Memorial Institute; see the LICENSE file.
#' module_gcamusa_batch_elec_segments_water_USA_xml
#'
#' Construct XML data structure for \code{elec_segments_water_USA.xml}.
#'
#' @param command API command to execute
#' @param ... other optional parameters, depending on command
#' @importFrom dplyr filter mutate select rename
#' @return Depends on \code{command}: either a vector of required inputs,
#' a vector of output names, or (if \code{command} is "MAKE") all
#' the generated outputs: \code{electricity_water.xml}. The corresponding file in the
#' original data system was \code{batch_electricity_water.xml.R} (water XML).
module_gcamusa_batch_elec_segments_water_USA_xml <- function(command, ...) {
if(command == driver.DECLARE_INPUTS) {
return(c("L2233.GlobalTechEff_elecS_cool_USA",
"L2233.GlobalTechShrwt_elecS_cool_USA",
"L2233.GlobalTechProfitShutdown_elecS_cool_USA",
"L2233.GlobalTechOMvar_elecS_cool_USA",
"L2233.GlobalTechOMfixed_elecS_cool_USA",
"L2233.GlobalTechCapital_elecS_USA",
"L2233.GlobalTechCapital_elecS_cool_USA",
"L2233.GlobalTechCapFac_elecS_cool_USA",
"L2233.GlobalTechSCurve_elecS_cool_USA",
"L2233.GlobalTechCoef_elecS_cool_USA",
"L2233.GlobalTechCapture_elecS_cool_USA",
"L2233.GlobalTechLifetime_elecS_cool_USA",
"L2233.AvgFossilEffKeyword_elecS_cool_USA",
"L2233.GlobalIntTechBackup_elecS_cool_USA",
"L2233.GlobalIntTechCapital_elecS_USA",
"L2233.GlobalIntTechCapital_elecS_cool_USA",
"L2233.GlobalIntTechEff_elecS_USA",
"L2233.GlobalIntTechEff_elecS_cool_USA",
"L2233.GlobalIntTechLifetime_elecS_cool_USA",
"L2233.GlobalIntTechOMfixed_elecS_cool_USA",
"L2233.GlobalIntTechOMvar_elecS_cool_USA",
"L2233.GlobalIntTechShrwt_elecS_cool_USA",
"L2233.GlobalIntTechCoef_elecS_cool_USA",
"L2233.PrimaryRenewKeyword_elecS_cool_USA",
"L2233.PrimaryRenewKeywordInt_elecS_cool_USA",
"L2233.StubTechEff_elecS_cool_USA",
"L2233.StubTechCoef_elecS_cool_USA",
"L2233.StubTechMarket_elecS_cool_USA",
"L2233.StubTechProd_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechCapFactor_elecS_solar_USA",
"L2233.StubTechCapFactor_elecS_wind_USA",
"L2233.StubTechElecMarket_backup_elecS_cool_USA",
"L2233.StubTechFixOut_elecS_cool_USA",
"L2233.StubTechFixOut_hydro_elecS_cool_USA",
"L2233.StubTechMarket_backup_elecS_cool_USA",
"L2233.StubTechProfitShutdown_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechShrwt_elecS_cool_USA",
"L2233.StubTechInterp_elecS_cool_USA",
"L2233.StubTechCost_offshore_wind_elecS_cool_USA",
"L2233.SubsectorLogit_elecS_USA",
"L2233.SubsectorLogit_elecS_cool_USA",
"L2233.SubsectorShrwt_elecS_USA",
"L2233.SubsectorShrwt_elecS_cool_USA",
"L2233.SubsectorShrwtInterp_elecS_USA",
"L2233.SubsectorShrwtInterpTo_elecS_USA",
"L2233.Supplysector_elecS_cool_USA",
"L2234.SubsectorShrwtFllt_elecS_grid_USA",
"L2234.SubsectorShrwtInterp_elecS_grid_USA",
"L2234.PassThroughSector_elecS_USA",
"L2234.PassThroughTech_elecS_grid_USA",
"L2234.ElecReserve_elecS_USA",
"L2234.TechShrwt_elecS_grid_USA",
"L2234.TechCoef_elecS_grid_USA",
"L2234.TechProd_elecS_grid_USA",
"L2235.DeleteSupplysector_elec_USA",
"L2235.InterestRate_FERC_USA",
"L2235.Pop_FERC_USA",
"L2235.BaseGDP_FERC_USA",
"L2235.LaborForceFillout_FERC_USA",
"L2235.Supplysector_elec_USA",
"L2235.ElecReserve_elecS_grid_vertical_USA",
"L2235.SubsectorLogit_elec_USA",
"L2235.SubsectorShrwtFllt_elec_USA",
"L2235.SubsectorInterp_elec_USA",
"L2235.SubsectorShrwt_elec_USA",
"L2235.SubsectorInterpTo_elec_USA",
"L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA",
"L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA",
"L2235.TechShrwt_elec_USA",
"L2235.TechCoef_elec_USA",
"L2235.Production_exports_elec_USA",
"L2235.TechShrwt_elecS_grid_vertical_USA",
"L2235.TechCoef_elecS_grid_vertical_USA",
"L2235.Supplysector_elec_FERC_USA",
"L2235.SubsectorLogit_elec_FERC_USA",
"L2235.SubsectorShrwtFllt_elec_FERC_USA",
"L2235.SubsectorInterp_elec_FERC_USA",
"L2235.SubsectorShrwt_elec_FERC",
"L2235.SubsectorInterpTo_elec_FERC",
"L2235.TechShrwt_elec_FERC_USA",
"L2235.TechCoef_elec_FERC_USA",
"L2235.TechCoef_elecownuse_FERC_USA",
"L2235.Production_imports_FERC_USA",
"L2235.Production_elec_gen_FERC_USA"))
} else if(command == driver.DECLARE_OUTPUTS) {
return(c(XML = "elec_segments_water_USA.xml"))
} else if(command == driver.MAKE) {
all_data <- list(...)[[1]]
passthrough.sector <- pass.through.sector <- pass.through.technology <- supplysector <-
sector.name <- subsector.name <- subsector <- subsector.name0 <- subsector0 <-
intermittent.technology <- stub.technology <- technology <- share.weight <- tech.share.weight <- NULL # silence package check notes
# Load required inputs
L2233.GlobalTechEff_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechEff_elecS_cool_USA")
L2233.GlobalTechShrwt_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechShrwt_elecS_cool_USA")
L2233.GlobalTechProfitShutdown_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechProfitShutdown_elecS_cool_USA")
L2233.GlobalTechOMvar_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechOMvar_elecS_cool_USA")
L2233.GlobalTechOMfixed_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechOMfixed_elecS_cool_USA")
L2233.GlobalTechCapital_elecS_USA<- get_data(all_data,"L2233.GlobalTechCapital_elecS_USA")
L2233.GlobalTechCapital_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCapital_elecS_cool_USA")
L2233.GlobalTechCapFac_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCapFac_elecS_cool_USA")
L2233.GlobalTechSCurve_elecS_cool_USA <- get_data(all_data,"L2233.GlobalTechSCurve_elecS_cool_USA")
L2233.GlobalTechCoef_elecS_cool_USA<- get_data(all_data,"L2233.GlobalTechCoef_elecS_cool_USA")
L2233.GlobalTechCapture_elecS_cool_USA <- get_data(all_data, "L2233.GlobalTechCapture_elecS_cool_USA")
L2233.GlobalTechLifetime_elecS_cool_USA <- get_data(all_data, "L2233.GlobalTechLifetime_elecS_cool_USA")
L2233.AvgFossilEffKeyword_elecS_cool_USA <- get_data(all_data,"L2233.AvgFossilEffKeyword_elecS_cool_USA")
L2233.GlobalIntTechBackup_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechBackup_elecS_cool_USA")
L2233.GlobalIntTechCapital_elecS_USA<- get_data(all_data,"L2233.GlobalIntTechCapital_elecS_USA")
L2233.GlobalIntTechCapital_elecS_cool_USA <- get_data(all_data,"L2233.GlobalIntTechCapital_elecS_cool_USA")
L2233.GlobalIntTechEff_elecS_USA <- get_data(all_data, "L2233.GlobalIntTechEff_elecS_USA")
L2233.GlobalIntTechEff_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechEff_elecS_cool_USA")
L2233.GlobalIntTechLifetime_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechLifetime_elecS_cool_USA")
L2233.GlobalIntTechOMfixed_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechOMfixed_elecS_cool_USA")
L2233.GlobalIntTechOMvar_elecS_cool_USA<- get_data(all_data,"L2233.GlobalIntTechOMvar_elecS_cool_USA")
L2233.GlobalIntTechShrwt_elecS_cool_USA <- get_data(all_data,"L2233.GlobalIntTechShrwt_elecS_cool_USA")
L2233.GlobalIntTechCoef_elecS_cool_USA <- get_data(all_data, "L2233.GlobalIntTechCoef_elecS_cool_USA")
L2233.PrimaryRenewKeyword_elecS_cool_USA <- get_data(all_data,"L2233.PrimaryRenewKeyword_elecS_cool_USA")
L2233.PrimaryRenewKeywordInt_elecS_cool_USA <- get_data(all_data,"L2233.PrimaryRenewKeywordInt_elecS_cool_USA")
L2233.StubTechEff_elecS_cool_USA <- get_data(all_data,"L2233.StubTechEff_elecS_cool_USA")
L2233.StubTechCoef_elecS_cool_USA <- get_data(all_data, "L2233.StubTechCoef_elecS_cool_USA")
L2233.StubTechMarket_elecS_cool_USA<- get_data(all_data,"L2233.StubTechMarket_elecS_cool_USA")
L2233.StubTechProd_elecS_cool_USA<- get_data(all_data,"L2233.StubTechProd_elecS_cool_USA")
L2233.StubTechProfitShutdown_elecS_cool_USA <- get_data(all_data, "L2233.StubTechProfitShutdown_elecS_cool_USA")
L2233.StubTechSCurve_elecS_cool_USA<- get_data(all_data,"L2233.StubTechSCurve_elecS_cool_USA")
L2233.StubTechCapFactor_elecS_solar_USA <- get_data(all_data,"L2233.StubTechCapFactor_elecS_solar_USA")
L2233.StubTechCapFactor_elecS_wind_USA<- get_data(all_data,"L2233.StubTechCapFactor_elecS_wind_USA")
L2233.StubTechElecMarket_backup_elecS_cool_USA <- get_data(all_data,"L2233.StubTechElecMarket_backup_elecS_cool_USA")
L2233.StubTechFixOut_elecS_cool_USA<- get_data(all_data,"L2233.StubTechFixOut_elecS_cool_USA")
L2233.StubTechFixOut_hydro_elecS_cool_USA<- get_data(all_data,"L2233.StubTechFixOut_hydro_elecS_cool_USA")
L2233.StubTechMarket_backup_elecS_cool_USA <- get_data(all_data,"L2233.StubTechMarket_backup_elecS_cool_USA")
L2233.StubTechShrwt_elecS_cool_USA <- get_data(all_data, "L2233.StubTechShrwt_elecS_cool_USA")
L2233.StubTechInterp_elecS_cool_USA <- get_data(all_data, "L2233.StubTechInterp_elecS_cool_USA")
L2233.StubTechCost_offshore_wind_elecS_cool_USA <- get_data(all_data,"L2233.StubTechCost_offshore_wind_elecS_cool_USA")
L2233.SubsectorLogit_elecS_USA <- get_data(all_data,"L2233.SubsectorLogit_elecS_USA")
L2233.SubsectorLogit_elecS_cool_USA <- get_data(all_data,"L2233.SubsectorLogit_elecS_cool_USA")
L2233.SubsectorShrwt_elecS_USA <- get_data(all_data,"L2233.SubsectorShrwt_elecS_USA")
L2233.SubsectorShrwt_elecS_cool_USA <- get_data(all_data,"L2233.SubsectorShrwt_elecS_cool_USA")
L2233.SubsectorShrwtInterp_elecS_USA <- get_data(all_data,"L2233.SubsectorShrwtInterp_elecS_USA")
L2233.SubsectorShrwtInterpTo_elecS_USA<- get_data(all_data,"L2233.SubsectorShrwtInterpTo_elecS_USA")
L2233.Supplysector_elecS_cool_USA<- get_data(all_data,"L2233.Supplysector_elecS_cool_USA")
L2234.SubsectorShrwtFllt_elecS_grid_USA <- get_data(all_data, "L2234.SubsectorShrwtFllt_elecS_grid_USA")
L2234.SubsectorShrwtInterp_elecS_grid_USA <- get_data(all_data, "L2234.SubsectorShrwtInterp_elecS_grid_USA")
L2234.PassThroughSector_elecS_USA <- get_data(all_data, "L2234.PassThroughSector_elecS_USA")
L2234.PassThroughTech_elecS_grid_USA <- get_data(all_data, "L2234.PassThroughTech_elecS_grid_USA")
L2234.ElecReserve_elecS_USA <- get_data(all_data, "L2234.ElecReserve_elecS_USA")
L2234.TechShrwt_elecS_grid_USA <- get_data(all_data, "L2234.TechShrwt_elecS_grid_USA")
L2234.TechCoef_elecS_grid_USA <- get_data(all_data, "L2234.TechCoef_elecS_grid_USA")
L2234.TechProd_elecS_grid_USA <- get_data(all_data, "L2234.TechProd_elecS_grid_USA")
L2235.DeleteSupplysector_elec_USA <- get_data(all_data, "L2235.DeleteSupplysector_elec_USA")
L2235.InterestRate_FERC_USA <- get_data(all_data, "L2235.InterestRate_FERC_USA")
L2235.Pop_FERC_USA <- get_data(all_data, "L2235.Pop_FERC_USA")
L2235.BaseGDP_FERC_USA <- get_data(all_data, "L2235.BaseGDP_FERC_USA")
L2235.LaborForceFillout_FERC_USA <- get_data(all_data, "L2235.LaborForceFillout_FERC_USA")
L2235.Supplysector_elec_USA <- get_data(all_data, "L2235.Supplysector_elec_USA")
L2235.ElecReserve_elecS_grid_vertical_USA <- get_data(all_data, "L2235.ElecReserve_elecS_grid_vertical_USA")
L2235.SubsectorLogit_elec_USA <- get_data(all_data, "L2235.SubsectorLogit_elec_USA")
L2235.SubsectorShrwtFllt_elec_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elec_USA")
L2235.SubsectorInterp_elec_USA <- get_data(all_data, "L2235.SubsectorInterp_elec_USA")
L2235.SubsectorShrwt_elec_USA <- get_data(all_data, "L2235.SubsectorShrwt_elec_USA")
L2235.SubsectorInterpTo_elec_USA <- get_data(all_data, "L2235.SubsectorInterpTo_elec_USA")
L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA")
L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA <- get_data(all_data, "L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA")
L2235.TechShrwt_elec_USA <- get_data(all_data, "L2235.TechShrwt_elec_USA")
L2235.TechCoef_elec_USA <- get_data(all_data, "L2235.TechCoef_elec_USA")
L2235.Production_exports_elec_USA <- get_data(all_data, "L2235.Production_exports_elec_USA")
L2235.TechShrwt_elecS_grid_vertical_USA <- get_data(all_data, "L2235.TechShrwt_elecS_grid_vertical_USA")
L2235.TechCoef_elecS_grid_vertical_USA <- get_data(all_data, "L2235.TechCoef_elecS_grid_vertical_USA")
L2235.Supplysector_elec_FERC_USA <- get_data(all_data, "L2235.Supplysector_elec_FERC_USA")
L2235.SubsectorLogit_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorLogit_elec_FERC_USA")
L2235.SubsectorShrwtFllt_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorShrwtFllt_elec_FERC_USA")
L2235.SubsectorInterp_elec_FERC_USA <- get_data(all_data, "L2235.SubsectorInterp_elec_FERC_USA")
L2235.SubsectorShrwt_elec_FERC <- get_data(all_data, "L2235.SubsectorShrwt_elec_FERC")
L2235.SubsectorInterpTo_elec_FERC <- get_data(all_data, "L2235.SubsectorInterpTo_elec_FERC")
L2235.TechShrwt_elec_FERC_USA <- get_data(all_data, "L2235.TechShrwt_elec_FERC_USA")
L2235.TechCoef_elec_FERC_USA <- get_data(all_data, "L2235.TechCoef_elec_FERC_USA")
L2235.TechCoef_elecownuse_FERC_USA <- get_data(all_data, "L2235.TechCoef_elecownuse_FERC_USA")
L2235.Production_imports_FERC_USA <- get_data(all_data, "L2235.Production_imports_FERC_USA")
L2235.Production_elec_gen_FERC_USA <- get_data(all_data, "L2235.Production_elec_gen_FERC_USA")
# Silence package checks
technology <- NULL
L2234.PassThroughSector_elecS_USA <- rename(L2234.PassThroughSector_elecS_USA, pass.through.sector = passthrough.sector)
L2234.PassThroughTech_elecS_grid_USA <- rename(L2234.PassThroughTech_elecS_grid_USA, pass.through.technology = technology)
# Function to fix GlobalTech / GlobalIntTech sector & subsector names, which is a recurring issue
fix_global_tech_names <- function(data){
data_new <- data %>%
rename(sector.name = supplysector,
subsector.name = subsector,
subsector.name0 = subsector0)
return(data_new)
}
L2233.GlobalIntTechBackup_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechBackup_elecS_cool_USA)
L2233.GlobalIntTechCapital_elecS_USA<- fix_global_tech_names(L2233.GlobalIntTechCapital_elecS_USA)
L2233.GlobalIntTechCapital_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalIntTechCapital_elecS_cool_USA)
L2233.GlobalIntTechEff_elecS_USA <- fix_global_tech_names(L2233.GlobalIntTechEff_elecS_USA)
L2233.GlobalIntTechEff_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechEff_elecS_cool_USA)
L2233.GlobalIntTechLifetime_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechLifetime_elecS_cool_USA)
L2233.GlobalIntTechOMfixed_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechOMfixed_elecS_cool_USA)
L2233.GlobalIntTechOMvar_elecS_cool_USA<- fix_global_tech_names(L2233.GlobalIntTechOMvar_elecS_cool_USA)
L2233.GlobalIntTechCoef_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalIntTechCoef_elecS_cool_USA)
L2233.GlobalTechProfitShutdown_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalTechProfitShutdown_elecS_cool_USA)
L2233.GlobalTechCoef_elecS_cool_USA <- fix_global_tech_names(L2233.GlobalTechCoef_elecS_cool_USA)
L2233.AvgFossilEffKeyword_elecS_cool_USA <- rename(L2233.AvgFossilEffKeyword_elecS_cool_USA, subsector.name = subsector)
L2233.GlobalTechSCurve_elecS_cool_USA <- rename(L2233.GlobalTechSCurve_elecS_cool_USA, sector.name = supplysector)
L2233.GlobalTechLifetime_elecS_cool_USA <- rename(L2233.GlobalTechLifetime_elecS_cool_USA, sector.name = supplysector)
L2233.GlobalTechCapture_elecS_cool_USA <- rename(L2233.GlobalTechCapture_elecS_cool_USA, sector.name = supplysector)
L2233.PrimaryRenewKeywordInt_elecS_cool_USA <- rename(L2233.PrimaryRenewKeywordInt_elecS_cool_USA, technology = intermittent.technology)
L2233.GlobalIntTechBackup_elecS_cool_USA <- rename(L2233.GlobalIntTechBackup_elecS_cool_USA, technology = intermittent.technology)
L2233.GlobalIntTechCoef_elecS_cool_USA <- rename(L2233.GlobalIntTechCoef_elecS_cool_USA,technology = intermittent.technology)
L2233.StubTechMarket_elecS_cool_USA <- rename(L2233.StubTechMarket_elecS_cool_USA, stub.technology = technology)
L2233.StubTechMarket_backup_elecS_cool_USA <- rename(L2233.StubTechMarket_backup_elecS_cool_USA, stub.technology = technology)
L2233.StubTechElecMarket_backup_elecS_cool_USA <- rename(L2233.StubTechElecMarket_backup_elecS_cool_USA, stub.technology = technology)
L2233.StubTechProd_elecS_cool_USA <- rename(L2233.StubTechProd_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCapFactor_elecS_wind_USA <- rename(L2233.StubTechCapFactor_elecS_wind_USA, stub.technology = technology)
L2233.StubTechCapFactor_elecS_solar_USA <- rename(L2233.StubTechCapFactor_elecS_solar_USA, stub.technology = technology)
L2233.StubTechFixOut_elecS_cool_USA <- rename(L2233.StubTechFixOut_elecS_cool_USA, stub.technology = technology)
L2233.StubTechEff_elecS_cool_USA <- rename(L2233.StubTechEff_elecS_cool_USA, stub.technology = technology)
L2233.StubTechFixOut_hydro_elecS_cool_USA <- rename(L2233.StubTechFixOut_hydro_elecS_cool_USA, stub.technology = technology)
L2233.StubTechSCurve_elecS_cool_USA <- rename(L2233.StubTechSCurve_elecS_cool_USA, stub.technology = technology)
L2233.StubTechProfitShutdown_elecS_cool_USA <- rename(L2233.StubTechProfitShutdown_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCoef_elecS_cool_USA <- rename(L2233.StubTechCoef_elecS_cool_USA, stub.technology = technology)
L2233.StubTechCost_offshore_wind_elecS_cool_USA <- rename(L2233.StubTechCost_offshore_wind_elecS_cool_USA, stub.technology = technology)
L2233.SubsectorLogit_elecS_USA <- rename(L2233.SubsectorLogit_elecS_USA, subsector = subsector0)
L2233.SubsectorShrwt_elecS_USA <- rename(L2233.SubsectorShrwt_elecS_USA, subsector=subsector0)
L2233.SubsectorShrwtInterp_elecS_USA <- rename(L2233.SubsectorShrwtInterp_elecS_USA, subsector=subsector0)
L2233.SubsectorShrwtInterpTo_elecS_USA <- rename(L2233.SubsectorShrwtInterpTo_elecS_USA, subsector=subsector0)
L2233.PrimaryRenewKeyword_elecS_cool_USA <- rename(L2233.PrimaryRenewKeyword_elecS_cool_USA, subsector.name=subsector)
L2234.TechProd_elecS_grid_USA <- rename(L2234.TechProd_elecS_grid_USA, tech.share.weight = share.weight)
# ===================================================
# Produce outputs
create_xml("elec_segments_water_USA.xml") %>%
add_node_equiv_xml("sector") %>%
add_node_equiv_xml("technology") %>%
add_xml_data(L2234.PassThroughSector_elecS_USA, "PassThroughSector") %>%
add_xml_data(L2234.PassThroughTech_elecS_grid_USA, "PassThroughTech") %>%
add_logit_tables_xml(L2233.Supplysector_elecS_cool_USA, "Supplysector") %>%
add_xml_data(L2234.ElecReserve_elecS_USA, "ElecReserve") %>%
add_xml_data(L2233.AvgFossilEffKeyword_elecS_cool_USA, "AvgFossilEffKeyword") %>%
add_xml_data(L2233.GlobalTechCapital_elecS_USA, "GlobalTechCapital") %>%
add_xml_data(L2233.GlobalTechCapital_elecS_cool_USA, "GlobalTechCapital") %>%
add_xml_data(L2233.GlobalIntTechCapital_elecS_USA, "GlobalIntTechCapital") %>%
add_xml_data(L2233.GlobalIntTechCapital_elecS_cool_USA, "GlobalIntTechCapital") %>%
add_xml_data(L2233.GlobalTechOMfixed_elecS_cool_USA, "GlobalTechOMfixed") %>%
add_xml_data(L2233.GlobalIntTechOMfixed_elecS_cool_USA, "GlobalIntTechOMfixed") %>%
add_xml_data(L2233.GlobalTechOMvar_elecS_cool_USA, "GlobalTechOMvar") %>%
add_xml_data(L2233.GlobalIntTechOMvar_elecS_cool_USA, "GlobalIntTechOMvar") %>%
add_xml_data(L2233.GlobalTechCapFac_elecS_cool_USA, "GlobalTechCapFac") %>%
add_xml_data(L2233.GlobalTechEff_elecS_cool_USA, "GlobalTechEff") %>%
add_xml_data(L2233.GlobalTechCoef_elecS_cool_USA, "GlobalTechCoef") %>%
add_xml_data(L2233.GlobalIntTechEff_elecS_USA, "GlobalIntTechEff") %>%
add_xml_data(L2233.GlobalIntTechEff_elecS_cool_USA, "GlobalIntTechEff") %>%
add_xml_data(L2233.GlobalIntTechCoef_elecS_cool_USA, "GlobalIntTechCoef") %>%
add_xml_data(L2233.GlobalIntTechLifetime_elecS_cool_USA, "GlobalIntTechLifetime") %>%
add_xml_data(L2233.GlobalTechProfitShutdown_elecS_cool_USA, "GlobalTechProfitShutdown") %>%
add_xml_data(L2233.GlobalTechSCurve_elecS_cool_USA, "GlobalTechSCurve") %>%
add_xml_data(L2233.GlobalTechCapture_elecS_cool_USA, "GlobalTechCapture") %>%
add_xml_data(L2233.GlobalTechLifetime_elecS_cool_USA, "GlobalTechLifetime") %>%
add_xml_data(L2233.GlobalIntTechBackup_elecS_cool_USA, "GlobalIntTechBackup") %>%
add_xml_data(L2233.GlobalTechShrwt_elecS_cool_USA, "GlobalTechShrwt") %>%
add_xml_data(L2233.GlobalIntTechShrwt_elecS_cool_USA, "GlobalIntTechShrwt") %>%
add_logit_tables_xml_generate_levels(L2233.SubsectorLogit_elecS_cool_USA,
"SubsectorLogit","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.SubsectorShrwt_elecS_cool_USA,
"SubsectorShrwt","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechMarket_elecS_cool_USA,
"StubTechMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechMarket_backup_elecS_cool_USA,
"StubTechMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechElecMarket_backup_elecS_cool_USA,
"StubTechElecMarket","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechProd_elecS_cool_USA,
"StubTechProd","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCapFactor_elecS_wind_USA,
"StubTechCapFactor","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCapFactor_elecS_solar_USA,
"StubTechCapFactor","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechFixOut_elecS_cool_USA,
"StubTechFixOut","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechEff_elecS_cool_USA,
"StubTechEff","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechFixOut_hydro_elecS_cool_USA,
"StubTechFixOut","subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechSCurve_elecS_cool_USA,
"StubTechSCurve", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechProfitShutdown_elecS_cool_USA,
"StubTechProfitShutdown", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCoef_elecS_cool_USA,
"StubTechCoef", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechCost_offshore_wind_elecS_cool_USA,
"StubTechCost", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechShrwt_elecS_cool_USA,
"StubTechShrwt", "subsector","nesting-subsector",1,FALSE) %>%
add_xml_data_generate_levels(L2233.StubTechInterp_elecS_cool_USA,
"StubTechInterp", "subsector","nesting-subsector",1,FALSE) %>%
add_node_equiv_xml("subsector") %>%
add_logit_tables_xml(L2233.SubsectorLogit_elecS_USA, "SubsectorLogit") %>%
add_xml_data(L2233.SubsectorShrwt_elecS_USA, "SubsectorShrwt") %>%
add_xml_data(L2233.SubsectorShrwtInterp_elecS_USA, "SubsectorInterp") %>%
add_xml_data(L2233.SubsectorShrwtInterpTo_elecS_USA, "SubsectorInterpTo") %>%
add_xml_data(L2233.PrimaryRenewKeyword_elecS_cool_USA, "PrimaryRenewKeyword") %>%
add_xml_data(L2233.PrimaryRenewKeywordInt_elecS_cool_USA, "PrimaryRenewKeywordInt") %>%
add_xml_data(L2234.TechShrwt_elecS_grid_USA, "TechShrwt") %>%
add_xml_data(L2234.TechCoef_elecS_grid_USA, "TechCoef") %>%
add_xml_data(L2234.TechProd_elecS_grid_USA, "Production") %>%
add_xml_data(L2234.SubsectorShrwtFllt_elecS_grid_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2234.SubsectorShrwtInterp_elecS_grid_USA, "SubsectorInterp") %>%
add_xml_data(L2235.DeleteSupplysector_elec_USA, "DeleteSupplysector") %>%
add_xml_data(L2235.InterestRate_FERC_USA, "InterestRate") %>%
add_xml_data(L2235.Pop_FERC_USA, "Pop") %>%
add_xml_data(L2235.BaseGDP_FERC_USA, "BaseGDP") %>%
add_xml_data(L2235.LaborForceFillout_FERC_USA, "LaborForceFillout") %>%
add_logit_tables_xml(L2235.Supplysector_elec_USA, "Supplysector") %>%
add_xml_data(L2235.ElecReserve_elecS_grid_vertical_USA, "ElecReserve") %>%
add_logit_tables_xml(L2235.SubsectorLogit_elec_USA, "SubsectorLogit") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elec_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorInterp_elec_USA, "SubsectorInterp") %>%
add_xml_data(L2235.SubsectorShrwt_elec_USA, "SubsectorShrwt") %>%
add_xml_data(L2235.SubsectorInterpTo_elec_USA, "SubsectorInterpTo") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA, "SubsectorInterp") %>%
add_xml_data(L2235.TechShrwt_elec_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elec_USA, "TechCoef") %>%
add_xml_data(L2235.Production_exports_elec_USA, "Production") %>%
add_xml_data(L2235.TechShrwt_elecS_grid_vertical_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elecS_grid_vertical_USA, "TechCoef") %>%
add_logit_tables_xml(L2235.Supplysector_elec_FERC_USA, "Supplysector") %>%
add_logit_tables_xml(L2235.SubsectorLogit_elec_FERC_USA, "SubsectorLogit") %>%
add_xml_data(L2235.SubsectorShrwtFllt_elec_FERC_USA, "SubsectorShrwtFllt") %>%
add_xml_data(L2235.SubsectorInterp_elec_FERC_USA, "SubsectorInterp") %>%
add_xml_data(L2235.SubsectorShrwt_elec_FERC, "SubsectorShrwt") %>%
add_xml_data(L2235.SubsectorInterpTo_elec_FERC, "SubsectorInterpTo") %>%
add_xml_data(L2235.TechShrwt_elec_FERC_USA, "TechShrwt") %>%
add_xml_data(L2235.TechCoef_elec_FERC_USA, "TechCoef") %>%
add_xml_data(L2235.TechCoef_elecownuse_FERC_USA, "TechCoef") %>%
add_xml_data(L2235.Production_imports_FERC_USA, "Production") %>%
add_xml_data(L2235.Production_elec_gen_FERC_USA, "Production") %>%
add_precursors("L2233.GlobalTechEff_elecS_cool_USA",
"L2233.GlobalTechShrwt_elecS_cool_USA",
"L2233.GlobalTechProfitShutdown_elecS_cool_USA",
"L2233.GlobalTechOMvar_elecS_cool_USA",
"L2233.GlobalTechOMfixed_elecS_cool_USA",
"L2233.GlobalTechCapital_elecS_USA",
"L2233.GlobalTechCapital_elecS_cool_USA",
"L2233.GlobalTechCapFac_elecS_cool_USA",
"L2233.GlobalTechSCurve_elecS_cool_USA",
"L2233.GlobalTechCoef_elecS_cool_USA",
"L2233.GlobalTechCapture_elecS_cool_USA",
"L2233.GlobalTechLifetime_elecS_cool_USA",
"L2233.AvgFossilEffKeyword_elecS_cool_USA",
"L2233.GlobalIntTechBackup_elecS_cool_USA",
"L2233.GlobalIntTechCapital_elecS_USA",
"L2233.GlobalIntTechCapital_elecS_cool_USA",
"L2233.GlobalIntTechEff_elecS_USA",
"L2233.GlobalIntTechEff_elecS_cool_USA",
"L2233.GlobalIntTechLifetime_elecS_cool_USA",
"L2233.GlobalIntTechOMfixed_elecS_cool_USA",
"L2233.GlobalIntTechOMvar_elecS_cool_USA",
"L2233.GlobalIntTechShrwt_elecS_cool_USA",
"L2233.GlobalIntTechCoef_elecS_cool_USA",
"L2233.PrimaryRenewKeyword_elecS_cool_USA",
"L2233.PrimaryRenewKeywordInt_elecS_cool_USA",
"L2233.StubTechEff_elecS_cool_USA",
"L2233.StubTechCoef_elecS_cool_USA",
"L2233.StubTechMarket_elecS_cool_USA",
"L2233.StubTechProd_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechCapFactor_elecS_solar_USA",
"L2233.StubTechCapFactor_elecS_wind_USA",
"L2233.StubTechElecMarket_backup_elecS_cool_USA",
"L2233.StubTechFixOut_elecS_cool_USA",
"L2233.StubTechFixOut_hydro_elecS_cool_USA",
"L2233.StubTechMarket_backup_elecS_cool_USA",
"L2233.StubTechProfitShutdown_elecS_cool_USA",
"L2233.StubTechSCurve_elecS_cool_USA",
"L2233.StubTechShrwt_elecS_cool_USA",
"L2233.StubTechInterp_elecS_cool_USA",
"L2233.StubTechCost_offshore_wind_elecS_cool_USA",
"L2233.SubsectorLogit_elecS_USA",
"L2233.SubsectorLogit_elecS_cool_USA",
"L2233.SubsectorShrwt_elecS_USA",
"L2233.SubsectorShrwt_elecS_cool_USA",
"L2233.SubsectorShrwtInterp_elecS_USA",
"L2233.SubsectorShrwtInterpTo_elecS_USA",
"L2233.Supplysector_elecS_cool_USA",
"L2234.SubsectorShrwtFllt_elecS_grid_USA",
"L2234.SubsectorShrwtInterp_elecS_grid_USA",
"L2234.PassThroughSector_elecS_USA",
"L2234.PassThroughTech_elecS_grid_USA",
"L2234.ElecReserve_elecS_USA",
"L2234.TechShrwt_elecS_grid_USA",
"L2234.TechCoef_elecS_grid_USA",
"L2234.TechProd_elecS_grid_USA",
"L2235.DeleteSupplysector_elec_USA",
"L2235.InterestRate_FERC_USA",
"L2235.Pop_FERC_USA",
"L2235.BaseGDP_FERC_USA",
"L2235.LaborForceFillout_FERC_USA",
"L2235.Supplysector_elec_USA",
"L2235.ElecReserve_elecS_grid_vertical_USA",
"L2235.SubsectorLogit_elec_USA",
"L2235.SubsectorShrwtFllt_elec_USA",
"L2235.SubsectorInterp_elec_USA",
"L2235.SubsectorShrwt_elec_USA",
"L2235.SubsectorInterpTo_elec_USA",
"L2235.SubsectorShrwtFllt_elecS_grid_vertical_USA",
"L2235.SubsectorShrwtInterp_elecS_grid_vertical_USA",
"L2235.TechShrwt_elec_USA",
"L2235.TechCoef_elec_USA",
"L2235.Production_exports_elec_USA",
"L2235.TechShrwt_elecS_grid_vertical_USA",
"L2235.TechCoef_elecS_grid_vertical_USA",
"L2235.Supplysector_elec_FERC_USA",
"L2235.SubsectorLogit_elec_FERC_USA",
"L2235.SubsectorShrwtFllt_elec_FERC_USA",
"L2235.SubsectorInterp_elec_FERC_USA",
"L2235.SubsectorShrwt_elec_FERC",
"L2235.SubsectorInterpTo_elec_FERC",
"L2235.TechShrwt_elec_FERC_USA",
"L2235.TechCoef_elec_FERC_USA",
"L2235.TechCoef_elecownuse_FERC_USA",
"L2235.Production_imports_FERC_USA",
"L2235.Production_elec_gen_FERC_USA") ->
elec_segments_water_USA.xml
return_data(elec_segments_water_USA.xml)
} else {
stop("Unknown command")
}
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.