inst/scripts/calc_ghgv.R

In ebimodeling/ghgvcR: Greenhouse Gas Value Calculator

#!/usr/bin/env Rscript
library(ghgvcr)
library(XML)
library(jsonlite)

#script args
args   <- commandArgs(trailingOnly = TRUE)
in_dir <- args[1]
out_dir <- args[2]
write_data <- TRUE

#load configuration
config_file <- file.path(in_dir, "multisite_config.xml")
config <- toJSON(xmlToList(xmlParse(config_file)), auto_unbox = TRUE)

### Run the GHG calculator V2
res <- ghgvc(config, output_dir = out_dir, write_data = write_data)

### Create a plot of the results
#p <- ghgcv_plot(x, outdir, config$options$T_E)