search

pik-piam / edgeTransport

A detailed transport sector model.
5 stars 16 forks source link

update scenarios SSP3, SSP2 #279

Closed ahagen-pik closed 2 months ago

ahagen-pik commented 2 months ago

fixes format of numerics, separators, etc. for input files dependent on the scenario

to write data.table dt in this format use:

numeric_cols <- sapply(dt, is.numeric)
dt[, (names(dt)[numeric_cols]) := lapply(.SD, function(x) formatC(x, format = "G")), .SDcols = numeric_cols]
write.table(dt, system.file("your/file.csv", package = "edgeTransport", mustWork = TRUE), 
            na = "", row.names = FALSE, quote = FALSE, sep = ";", dec = ".")

This PR is connected to PR#547 in mrremind