ROBUSTNESS: More assertions to batchtools_template()

HenrikBengtsson · HenrikBengtsson · commit 7648d28a2a5c · 2019-04-25T15:51:30.000-07:00
diff --git a/R/batchtools_template.R b/R/batchtools_template.R
@@ -148,7 +148,8 @@ batchtools_by_template <- function(expr, envir = parent.frame(),
     template <- formals(make_cfs)$template
   }
 
-  stop_if_not(is.character(template), length(template) == 1, nzchar(template))
+  stop_if_not(is.character(template), length(template) == 1L,
+              !is.na(template), nzchar(template))
 
   ## Tweaked search for template file
   findTemplateFile <- import_batchtools("findTemplateFile", default = NA)

Original file line number	Diff line number	Diff line change
`@@ -148,7 +148,8 @@ batchtools_by_template <- function(expr, envir = parent.frame(),`
`148`	`148`	`template <- formals(make_cfs)$template`
`149`	`149`	`}`
`150`	`150`
`151`		`- stop_if_not(is.character(template), length(template) == 1, nzchar(template))`
	`151`	`+ stop_if_not(is.character(template), length(template) == 1L,`
	`152`	`+ !is.na(template), nzchar(template))`
`152`	`153`
`153`	`154`	`## Tweaked search for template file`
`154`	`155`	`findTemplateFile <- import_batchtools("findTemplateFile", default = NA)`