Merge pull request #13 from fbenke-pik/fix

do not check for duplicates when reading in mif files
pik-piam · Sep 5, 2024 · 121d4e0 · 121d4e0
2 parents 79ba706 + ae26c44
commit 121d4e0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/inst/compareScenarios/cs_main.Rmd b/inst/compareScenarios/cs_main.Rmd
@@ -128,7 +128,7 @@ if (!is.null(params$cfgScen)) {
 dataScenNested <-
   tibble(path = unname(params$mifScen)) %>%
   rowid_to_column("fileid") %>%
-  mutate(data = map(path, read.quitte)) %>%
+  mutate(data = map(path, read.quitte, check.duplicates = FALSE)) %>%
   unnest(data) %>%
   nest(data = -c(fileid, path, scenario))
 
@@ -184,7 +184,7 @@ bkgndColors <- vapply(scenarioColors, lightenColor, rgb(0, 0, 0), by = 0.5)
 ```{r read historical mif}
 dataHist <-
   params$mifHist %>%
-  read.quitte(factors = TRUE)
+  read.quitte(factors = TRUE, drop.na = TRUE, check.duplicates = FALSE)
 ```