do not check for duplicates when reading in mif files

pik-piam · Sep 5, 2024 · ae26c44 · ae26c44
1 parent 37a2eab
commit ae26c44
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)
 ```