Try build fix 8

bc3LC · Feb 20, 2024 · 9045016 · 9045016
1 parent 21774c8
commit 9045016
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/tests/testthat/test_medusa.R b/tests/testthat/test_medusa.R
@@ -182,7 +182,7 @@ test_that("Test9_Price_shock", {
 
 test_that("Test10_Impact & basic graph", {
   path <- file.path(rprojroot::find_root(rprojroot::is_testthat), "test_inputs")
-  epf <- read.csv(file.path(path, "ex_dataset_expenses_ps.csv"))
+  epf <- read.csv(file.path(path, "ex_dataset_expenses_ps.csv"), header=T, fileEncoding = "UTF-8-BOM")
   shocks <- read.csv(file.path(path, "shocks_ps.csv"))
   shocks_scenario_names <- names(shocks)[3:length(names(shocks))]
   path <- file.path(rprojroot::find_root(rprojroot::is_testthat), "test_outputs")
@@ -196,7 +196,6 @@ test_that("Test10_Impact & basic graph", {
   #Check figures
   vars <- c("AGERP", "COUNTRYRP", "GENDERRP", "HHTYPE", "MUNISIZE", "REGION", "REGMR", "STUDIESRP", "ZONE" )
   for (g in vars) {
-    print(g)
     test_result <- png::readPNG(file.path(rprojroot::find_root(rprojroot::is_testthat), paste0("test_inputs/figures/DI_",g,".png")))
     test_expect <- png::readPNG(file.path(rprojroot::find_root(rprojroot::is_testthat), paste0("test_outputs/figures/DI_",g,".png")))