Force na.strings="" in run-test-list script

ashiklom · ashiklom · commit 1c8e49370ad4 · 2020-12-02T17:35:12.000-05:00
Otherwise, they are read as literal "", which breaks a bunch of things downstream.
diff --git a/inst/run-test-list.R b/inst/run-test-list.R
@@ -37,7 +37,8 @@ configure_inputs <- function(met, model_name, ...) {
   input
 }
 
-test_list <- read.csv("inst/integration-test-list.csv", comment.char = "#") %>%
+test_list <- read.csv("inst/integration-test-list.csv", comment.char = "#",
+                      na.strings = "") %>%
   as_tibble() %>%
   # Only test models that are available on the target machine
   inner_join(models, c("model_name", "revision")) %>%

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,8 @@ configure_inputs <- function(met, model_name, ...) {`
`37`	`37`	`input`
`38`	`38`	`}`
`39`	`39`
`40`		`-test_list <- read.csv("inst/integration-test-list.csv", comment.char = "#") %>%`
	`40`	`+test_list <- read.csv("inst/integration-test-list.csv", comment.char = "#",`
	`41`	`+ na.strings = "") %>%`
`41`	`42`	`as_tibble() %>%`
`42`	`43`	`# Only test models that are available on the target machine`
`43`	`44`	`inner_join(models, c("model_name", "revision")) %>%`