data-raw/make_demos_007_results_rda.R

library(tidyverse)

demos_files <- c("All costs.csv",
                 "Demands.csv",
                 "Process Marginals.csv",
                 "_SysCost.csv")
path <- "tests/data/demos_007/"

demos_007_results <- map(.x = paste(path, demos_files, sep = ""), ~read.csv(.x))
names(demos_007_results) <- demos_files
usethis::use_data(demos_007_results, overwrite = T)
DataScienceScotland/vedar documentation built on April 3, 2022, 10:32 p.m.