missing function

insightsengineering · May 15, 2024 · a0a2cd7 · a0a2cd7
1 parent 1cce483
commit a0a2cd7
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-shinytest2-tm_misssing_data.R b/tests/testthat/test-shinytest2-tm_misssing_data.R
@@ -5,6 +5,11 @@ app_driver_tm_missing_data <- function() {
     IRIS = iris
     set.seed(123)
 
+    add_nas <- function(x) {
+      x[sample(seq_along(x), floor(length(x) * runif(1, .05, .17)))] <- NA
+      x
+    }
+
     iris[] <- lapply(iris, add_nas)
     mtcars[] <- lapply(mtcars, add_nas)
     mtcars[["cyl"]] <- as.factor(mtcars[["cyl"]])