fix: entry points spec incase all sources are NA

eli-daniels · eli-daniels · commit 90ce4450c9d5 · 2025-10-15T15:43:41.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: riskintrodata
 Title: Data Tools for Managing Animal Disease Introduction Risk
-Version: 0.0.13
+Version: 0.0.14
 Authors@R: c(
     person("Eli", "Daniels", , "eli.daniels@ardata.fr", role = c("aut", "cre")),
     person("David", "Gohel", , "david.gohel@ardata.fr", role = "aut"),
diff --git a/R/spec-entry_points.R b/R/spec-entry_points.R
@@ -58,7 +58,7 @@
   "sources" = list(
     required = FALSE,
     validation_func = list(
-      "should be character" = is.character
+      "should be character" = function(x) is.character(x) || all(is.na(x))
     )
   )
 )

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@`
`58`	`58`	`"sources" = list(`
`59`	`59`	`required = FALSE,`
`60`	`60`	`validation_func = list(`
`61`		`- "should be character" = is.character`
	`61`	`+ "should be character" = function(x) is.character(x) \|\| all(is.na(x))`
`62`	`62`	`)`
`63`	`63`	`)`
`64`	`64`	`)`