Improve checks on datasets_selected

llrs-roche · llrs-roche · commit 7d1d1e95f886 · 2025-01-08T14:30:40.000+01:00
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -145,7 +145,7 @@ tm_missing_data <- function(label = "Missing data",
     lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"
   )
 
-  checkmate::assert_character(datasets_selected)
+  checkmate::assert_character(datasets_selected, min.len = 0, min.chars = 1)
   checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)
   ggtheme <- match.arg(ggtheme)
 

Original file line number	Diff line number	Diff line change
`@@ -145,7 +145,7 @@ tm_missing_data <- function(label = "Missing data",`
`145`	`145`	`lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"`
`146`	`146`	`)`
`147`	`147`
`148`		`- checkmate::assert_character(datasets_selected)`
	`148`	`+ checkmate::assert_character(datasets_selected, min.len = 0, min.chars = 1)`
`149`	`149`	`checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)`
`150`	`150`	`ggtheme <- match.arg(ggtheme)`
`151`	`151`