Merge branch 'master' into complement-rsplit

Author: hfrick

NEWS.md

@@ -12,6 +12,8 @@
 
 * A few internal functions were exported so that `rsample`-adjacent packages can use the same underlying code. 
 
+* The `obj_sum()` method for `rsplit` objects was updated.
+
 * Changed the inheritance structure for `rsplit` objects from specific to general and simplified the methods for the `complement()` generic.
 
 

R/rsplit.R

@@ -139,7 +139,7 @@ obj_sum.rsplit <- function(x, ...) {
   else
     paste(length(x$out_id))
 
-  paste0("rsplit [",
+  paste0("split [",
          length(x$in_id), "/",
          out_char, "]")
 }

tests/testthat/print_test_output/obj_sum

@@ -0,0 +1,8 @@
+> set.seed(233)
+> print(validation_split(mtcars))
+# Validation Set Split (0.75/0.25)  
+# A tibble: 1 x 2
+  splits         id        
+  <list>         <chr>     
+1 <split [24/8]> validation
+

tests/testthat/test_rsplit.R

@@ -51,6 +51,10 @@ test_that('print methods', {
     set.seed(233)
     print(validation_split(mtcars)$splits[[1]])
   })
+  verify_output(test_path("print_test_output", "obj_sum"), {
+    set.seed(233)
+    print(validation_split(mtcars))
+  })
 })
 
 test_that("default complement method errors", {