diff --git a/R/rsplit.R b/R/rsplit.R index d99a98cb..744e9d9e 100644 --- a/R/rsplit.R +++ b/R/rsplit.R @@ -105,7 +105,7 @@ as.data.frame.rsplit <- rsplit_class <- class(x)[[1]] cli_abort( "There is no assessment data set for an {.arg rsplit} object - with class {rsplit_class}." + with class {.cls {rsplit_class}}." ) } ind <- as.integer(x, data = data, ...) diff --git a/tests/testthat/_snaps/permutations.md b/tests/testthat/_snaps/permutations.md index 94276f18..1f1b3571 100644 --- a/tests/testthat/_snaps/permutations.md +++ b/tests/testthat/_snaps/permutations.md @@ -4,7 +4,7 @@ assessment(xx$splits[[1]]) Condition Error in `as.data.frame()`: - ! There is no assessment data set for an `rsplit` object with class `perm_split`. + ! There is no assessment data set for an `rsplit` object with class . # printing diff --git a/tests/testthat/_snaps/permutations.new.md b/tests/testthat/_snaps/permutations.new.md deleted file mode 100644 index 515f099d..00000000 --- a/tests/testthat/_snaps/permutations.new.md +++ /dev/null @@ -1,30 +0,0 @@ -# no assessment set - - Code - assessment(xx$splits[[1]]) - Condition - Error in `as.data.frame()`: - ! There is no assessment data set for an `rsplit` object with class perm_split. - -# printing - - Code - permutations(mtcars, 1) - Output - # Permutation sampling - # Permuted columns: [mpg] - # A tibble: 25 x 2 - splits id - - 1 Permutations01 - 2 Permutations02 - 3 Permutations03 - 4 Permutations04 - 5 Permutations05 - 6 Permutations06 - 7 Permutations07 - 8 Permutations08 - 9 Permutations09 - 10 Permutations10 - # i 15 more rows -