fix

easystats · Jan 21, 2025 · 0eb37f9 · 0eb37f9
1 parent 528f8d8
commit 0eb37f9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/get_datagrid.R b/R/get_datagrid.R
@@ -805,7 +805,7 @@ get_datagrid.comparisons <- get_datagrid.slopes
       } else if (length(parts) == 1) {
         # If one, might be a shortcut. or a sampling request
         if (grepl("sample", parts, fixed = TRUE)) {
-          n_to_sample <- .safe(suppressWarning(as.numeric(trim_ws(gsub("sample", "", parts, fixed = TRUE))))) # nolint
+          n_to_sample <- .safe(as.numeric(trim_ws(gsub("sample", "", parts, fixed = TRUE))))
           # do we have a proper definition of the sample size? If not, error
           if (is.null(n_to_sample) || is.na(n_to_sample) || !length(n_to_sample)) {
             format_error("The token `sample` must be followed by the number of samples to be drawn, e.g. `[sample 15]`.") # nolint

diff --git a/tests/testthat/test-get_datagrid.R b/tests/testthat/test-get_datagrid.R
@@ -76,6 +76,7 @@ test_that("get_datagrid - terciles, quartiles, mean-sd", {
   )
 
   skip_if_not_installed("ggeffects")
+  skip_if_not_installed("datawizard")
   data(efc, package = "ggeffects")
   efc$c161sex <- datawizard::to_factor(efc$c161sex)
   efc$e16sex <- datawizard::to_factor(efc$e16sex)