From 6c12536aae2774dd192ccf5d08866d5cb2c58d47 Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Wed, 3 Feb 2021 18:52:03 +0000
Subject: [PATCH 1/6] change default position for added classes

---
 R/apparent.R                  | 3 +--
 R/misc.R                      | 2 +-
 R/nest.R                      | 2 +-
 R/rset.R                      | 2 +-
 tests/testthat/test_initial.R | 2 +-
 5 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/R/apparent.R b/R/apparent.R
index e5481b32..192a5178 100644
--- a/R/apparent.R
+++ b/R/apparent.R
@@ -24,8 +24,7 @@ apparent <- function(data, ...) {
 
   split_objs <-
     add_class(split_objs,
-              cls = c("apparent", "rset"),
-              at_end = FALSE)
+              cls = c("apparent", "rset"))
 
   split_objs
 }
diff --git a/R/misc.R b/R/misc.R
index 699f18ed..72d5aebd 100644
--- a/R/misc.R
+++ b/R/misc.R
@@ -33,7 +33,7 @@ names0 <- function(num, prefix = "x") {
   paste0(prefix, ind)
 }
 
-add_class <- function(x, cls, at_end = TRUE) {
+add_class <- function(x, cls, at_end = FALSE) {
   class(x) <- if (at_end)
     c(class(x), cls)
   else
diff --git a/R/nest.R b/R/nest.R
index 94d13ab6..2616d777 100644
--- a/R/nest.R
+++ b/R/nest.R
@@ -79,7 +79,7 @@ nested_cv <- function(data, outside, inside)  {
 
   out <- dplyr::mutate(outside, inner_resamples = inside)
 
-  out <- add_class(out, cls = "nested_cv", at_end = FALSE)
+  out <- add_class(out, cls = "nested_cv")
 
   attr(out, "outside") <- cl$outside
   attr(out, "inside") <- cl$inside
diff --git a/R/rset.R b/R/rset.R
index 19abb474..a44ec4a9 100644
--- a/R/rset.R
+++ b/R/rset.R
@@ -71,7 +71,7 @@ new_rset <-  function(splits, ids, attrib = NULL,
   }
 
   if (length(subclass) > 0) {
-    res <- add_class(res, cls = subclass, at_end = FALSE)
+    res <- add_class(res, cls = subclass)
   }
 
   fingerprint <- rlang::hash(res)
diff --git a/tests/testthat/test_initial.R b/tests/testthat/test_initial.R
index 79144a10..5f47600a 100644
--- a/tests/testthat/test_initial.R
+++ b/tests/testthat/test_initial.R
@@ -9,7 +9,7 @@ dat1 <- data.frame(a = 1:20, b = letters[1:20])
 test_that('default param', {
   set.seed(11)
   rs1 <- initial_split(dat1)
-  expect_equal(class(rs1), c("rsplit", "mc_split"))
+  expect_equal(class(rs1), c("mc_split", "rsplit"))
   tr1 <- training(rs1)
   ts1 <- testing(rs1)
   expect_equal(nrow(tr1), nrow(dat1)*3/4)

From cd7a2e80c533aac57a6231d43b20949f6db0288f Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Wed, 3 Feb 2021 18:55:58 +0000
Subject: [PATCH 2/6] simplified the definition of various methods for the
 `complement()` generic and added a `.default` method

---
 NAMESPACE                    | 10 ++--------
 NEWS.md                      |  2 ++
 R/complement.R               | 37 +++++++++++++++---------------------
 man/complement.Rd            | 34 +++++++++++++++++++++++++++++++--
 tests/testthat/test_rsplit.R |  7 ++++++-
 5 files changed, 57 insertions(+), 33 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 42b3a661..4bff7c51 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -7,17 +7,12 @@ S3method(.get_fingerprint,rset)
 S3method(as.data.frame,rsplit)
 S3method(as.integer,rsplit)
 S3method(complement,apparent_split)
-S3method(complement,boot_split)
-S3method(complement,group_vfold_split)
-S3method(complement,loo_split)
-S3method(complement,mc_split)
-S3method(complement,perm_split)
+S3method(complement,default)
 S3method(complement,rof_split)
+S3method(complement,rsplit)
 S3method(complement,sliding_index_split)
 S3method(complement,sliding_period_split)
 S3method(complement,sliding_window_split)
-S3method(complement,val_split)
-S3method(complement,vfold_split)
 S3method(dim,rsplit)
 S3method(gather,rset)
 S3method(labels,rset)
@@ -257,7 +252,6 @@ export(reg_intervals)
 export(rolling_origin)
 export(rsample2caret)
 export(rset_reconstruct)
-export(rsplit_complement)
 export(sliding_index)
 export(sliding_period)
 export(sliding_window)
diff --git a/NEWS.md b/NEWS.md
index 26115bac..7611aa4d 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -12,6 +12,8 @@
 
 * A few internal functions were exported so that `rsample`-adjacent packages can use the same underlying code. 
 
+* Changed the inheritance structure for `rsplit` objects from specific to general and simplified the methods for the `complement()` generic.
+
 
 # rsample 0.0.8
 
diff --git a/R/complement.R b/R/complement.R
index 33be164b..d1ca8ce0 100644
--- a/R/complement.R
+++ b/R/complement.R
@@ -5,14 +5,9 @@
 #'
 #' Given an `rsplit` object, `complement()` will determine which
 #'   of the data rows are contained in the assessment set. To save space,
-#'   many of the `rset` objects will not contain indices for the
+#'   many of the `rsplit` objects will not contain indices for the
 #'   assessment split.
 #'
-#' `rsplit_complement()` handles the determination for sets for most resampling
-#' methods. Unless the row indices for the assessment set are already
-#' determined, this function selects all of the rows that are not in the
-#' analysis set and returns those as the assessment set.
-#'
 #' @param x An `rsplit` object
 #' @param ... Not currently used
 #' @return A integer vector.
@@ -29,41 +24,30 @@ complement <- function(x, ...)
 
 #' @export
 #' @rdname complement
-rsplit_complement <- function(x, ...) {
+complement.rsplit <- function(x, ...) {
   if (!is_missing_out_id(x)) {
     return(x$out_id)
   } else {
     (1:nrow(x$data))[-unique(x$in_id)]
   }
 }
-
-#' @export
-complement.vfold_split <- rsplit_complement
-#' @export
-complement.mc_split  <- rsplit_complement
-#' @export
-complement.val_split <- rsplit_complement
-#' @export
-complement.loo_split <- rsplit_complement
-#' @export
-complement.group_vfold_split <- rsplit_complement
-#' @export
-complement.boot_split <- rsplit_complement
-#' @export
-complement.perm_split <- rsplit_complement
 #' @export
+#' @rdname complement
 complement.rof_split <- function(x, ...) {
   get_stored_out_id(x)
 }
 #' @export
+#' @rdname complement
 complement.sliding_window_split <- function(x, ...) {
   get_stored_out_id(x)
 }
 #' @export
+#' @rdname complement
 complement.sliding_index_split <- function(x, ...) {
   get_stored_out_id(x)
 }
 #' @export
+#' @rdname complement
 complement.sliding_period_split <- function(x, ...) {
   get_stored_out_id(x)
 }
@@ -83,6 +67,7 @@ get_stored_out_id <- function(x) {
 }
 
 #' @export
+#' @rdname complement
 complement.apparent_split <- function(x, ...) {
   if (!is_missing_out_id(x)) {
     return(x$out_id)
@@ -91,6 +76,14 @@ complement.apparent_split <- function(x, ...) {
   }
 }
 
+#' @export
+complement.default <- function(x, ...) {
+  cls <- paste0("'", class(x), "'", collapse = ", ")
+  rlang::abort(
+    paste("No `complement()` method for this class(es)", cls)
+  )
+}
+
 #' Get the indices of the analysis set from the assessment set
 #' @param ind A vector of integers for which rows of data belong in the
 #' assessment set.
diff --git a/man/complement.Rd b/man/complement.Rd
index 9fee0813..9b31077e 100644
--- a/man/complement.Rd
+++ b/man/complement.Rd
@@ -2,12 +2,27 @@
 % Please edit documentation in R/complement.R
 \name{complement}
 \alias{complement}
-\alias{rsplit_complement}
+\alias{complement.rsplit}
+\alias{complement.rof_split}
+\alias{complement.sliding_window_split}
+\alias{complement.sliding_index_split}
+\alias{complement.sliding_period_split}
+\alias{complement.apparent_split}
 \title{Determine the Assessment Samples}
 \usage{
 complement(x, ...)
 
-rsplit_complement(x, ...)
+\method{complement}{rsplit}(x, ...)
+
+\method{complement}{rof_split}(x, ...)
+
+\method{complement}{sliding_window_split}(x, ...)
+
+\method{complement}{sliding_index_split}(x, ...)
+
+\method{complement}{sliding_period_split}(x, ...)
+
+\method{complement}{apparent_split}(x, ...)
 }
 \arguments{
 \item{x}{An \code{rsplit} object}
@@ -20,6 +35,21 @@ A integer vector.
 \description{
 This method and function help find which data belong in the analysis and
 assessment sets.
+
+#' @export
+complement.vfold_split <- rsplit_complement
+#' @export
+complement.mc_split  <- rsplit_complement
+#' @export
+complement.val_split <- rsplit_complement
+#' @export
+complement.loo_split <- rsplit_complement
+#' @export
+complement.group_vfold_split <- rsplit_complement
+#' @export
+complement.boot_split <- rsplit_complement
+#' @export
+complement.perm_split <- rsplit_complement
 }
 \details{
 Given an \code{rsplit} object, \code{complement()} will determine which
diff --git a/tests/testthat/test_rsplit.R b/tests/testthat/test_rsplit.R
index 8df16d58..c6fdb0a6 100644
--- a/tests/testthat/test_rsplit.R
+++ b/tests/testthat/test_rsplit.R
@@ -53,7 +53,12 @@ test_that('print methods', {
   })
 })
 
-
+test_that("default complement method errors", {
+  expect_error(
+    complement("a string"),
+    "No `complement[(][)]` method for this class[(]es[)]"
+  )
+})
 
 
 

From 026e8725478c9aa0bb0b69becc1e1219e4e6d75d Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Wed, 3 Feb 2021 18:56:26 +0000
Subject: [PATCH 3/6] fixed string for error message

---
 R/misc.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/misc.R b/R/misc.R
index 72d5aebd..9262271e 100644
--- a/R/misc.R
+++ b/R/misc.R
@@ -89,7 +89,7 @@ split_unnamed <- function(x, f) {
 #' @export
 #' @rdname get_fingerprint
 .get_fingerprint.default <- function(x, ...) {
-  cls <- paste("'", class(x), "'", sep = ", ")
+  cls <- paste0("'", class(x), "'", collapse = ", ")
   rlang::abort(
     paste("No `.get_fingerprint()` method for this class(es)", cls)
   )

From 37bb971e94ad0e0c989f3d486cf53bcd7fca055e Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Wed, 3 Feb 2021 19:06:50 +0000
Subject: [PATCH 4/6] results of the reverse dependency checks

---
 revdep/README.md   | 101 +++++----
 revdep/data.sqlite | Bin 24576 -> 49152 bytes
 revdep/failures.md | 496 ++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 557 insertions(+), 40 deletions(-)

diff --git a/revdep/README.md b/revdep/README.md
index fa91bc70..7ceb3548 100644
--- a/revdep/README.md
+++ b/revdep/README.md
@@ -2,48 +2,71 @@
 
 |field    |value                        |
 |:--------|:----------------------------|
-|version  |R version 4.0.0 (2020-04-24) |
-|os       |macOS Mojave 10.14.6         |
-|system   |x86_64, darwin17.0           |
-|ui       |RStudio                      |
-|language |(EN)                         |
-|collate  |en_US.UTF-8                  |
-|ctype    |en_US.UTF-8                  |
-|tz       |America/New_York             |
-|date     |2020-06-03                   |
+|version  |R version 4.0.3 (2020-10-10) |
+|os       |Ubuntu 18.04.5 LTS           |
+|system   |x86_64, linux-gnu            |
+|ui       |X11                          |
+|language |en                           |
+|collate  |en_GB.UTF-8                  |
+|ctype    |en_GB.UTF-8                  |
+|tz       |Europe/London                |
+|date     |2021-02-03                   |
 
 # Dependencies
 
-|package    |old     |new     |Δ  |
-|:----------|:-------|:-------|:--|
-|rsample    |0.0.6   |0.0.7   |*  |
-|assertthat |0.2.1   |0.2.1   |   |
-|cli        |2.0.2   |2.0.2   |   |
-|crayon     |1.3.4   |1.3.4   |   |
-|digest     |0.6.25  |0.6.25  |   |
-|dplyr      |1.0.0   |1.0.0   |   |
-|ellipsis   |0.3.1   |0.3.1   |   |
-|fansi      |0.4.1   |0.4.1   |   |
-|furrr      |0.1.0   |0.1.0   |   |
-|future     |1.17.0  |1.17.0  |   |
-|generics   |0.0.2   |0.0.2   |   |
-|globals    |0.12.5  |0.12.5  |   |
-|glue       |1.4.1   |1.4.1   |   |
-|lifecycle  |0.2.0   |0.2.0   |   |
-|listenv    |0.8.0   |0.8.0   |   |
-|magrittr   |1.5     |1.5     |   |
-|pillar     |1.4.4   |1.4.4   |   |
-|pkgconfig  |2.0.3   |2.0.3   |   |
-|purrr      |0.3.4   |0.3.4   |   |
-|R6         |2.4.1   |2.4.1   |   |
-|Rcpp       |1.0.4.6 |1.0.4.6 |   |
-|rlang      |0.4.6   |0.4.6   |   |
-|stringi    |1.4.6   |1.4.6   |   |
-|tibble     |3.0.1   |3.0.1   |   |
-|tidyr      |1.1.0   |1.1.0   |   |
-|tidyselect |1.1.0   |1.1.0   |   |
-|utf8       |1.1.4   |1.1.4   |   |
-|vctrs      |0.3.0   |0.3.0   |   |
+|package    |old    |new        |Δ  |
+|:----------|:------|:----------|:--|
+|rsample    |0.0.8  |0.0.8.9001 |*  |
+|assertthat |0.2.1  |0.2.1      |   |
+|cli        |2.3.0  |2.3.0      |   |
+|cpp11      |0.2.6  |0.2.6      |   |
+|crayon     |1.4.0  |1.4.0      |   |
+|digest     |0.6.27 |0.6.27     |   |
+|dplyr      |1.0.4  |1.0.4      |   |
+|ellipsis   |0.3.1  |0.3.1      |   |
+|fansi      |0.4.2  |0.4.2      |   |
+|furrr      |0.2.2  |0.2.2      |   |
+|future     |1.21.0 |1.21.0     |   |
+|generics   |0.1.0  |0.1.0      |   |
+|globals    |0.14.0 |0.14.0     |   |
+|glue       |1.4.2  |1.4.2      |   |
+|lifecycle  |0.2.0  |0.2.0      |   |
+|listenv    |0.8.0  |0.8.0      |   |
+|magrittr   |2.0.1  |2.0.1      |   |
+|modeldata  |0.1.0  |NA         |*  |
+|parallelly |1.23.0 |1.23.0     |   |
+|pillar     |1.4.7  |1.4.7      |   |
+|pkgconfig  |2.0.3  |2.0.3      |   |
+|purrr      |0.3.4  |0.3.4      |   |
+|R6         |2.5.0  |2.5.0      |   |
+|rlang      |0.4.10 |0.4.10     |   |
+|slider     |0.1.5  |0.1.5      |   |
+|tibble     |3.0.6  |3.0.6      |   |
+|tidyr      |1.1.2  |1.1.2      |   |
+|tidyselect |1.1.0  |1.1.0      |   |
+|utf8       |1.1.4  |1.1.4      |   |
+|vctrs      |0.3.6  |0.3.6      |   |
+|warp       |0.2.0  |0.2.0      |   |
 
 # Revdeps
 
+## Failed to check (15)
+
+|package       |version |error |warning |note |
+|:-------------|:-------|:-----|:-------|:----|
+|baguette      |?       |      |        |     |
+|broom         |?       |      |        |     |
+|butcher       |?       |      |        |     |
+|embed         |?       |      |        |     |
+|MachineShop   |?       |      |        |     |
+|probably      |?       |      |        |     |
+|psfmi         |?       |      |        |     |
+|recipes       |?       |      |        |     |
+|solitude      |?       |      |        |     |
+|tfdatasets    |?       |      |        |     |
+|tidymodels    |?       |      |        |     |
+|tidyposterior |?       |      |        |     |
+|tidyrules     |?       |      |        |     |
+|timetk        |?       |      |        |     |
+|tune          |?       |      |        |     |
+
diff --git a/revdep/data.sqlite b/revdep/data.sqlite
index 683642dedc56ecc35956a91538839d7626650264..529451dd0c65031f37e4cf2d112e1680a3433b10 100644
GIT binary patch
literal 49152
zcmeHQOKcoRdL}gz^`JN{*`~QNtyPIeLQ2b->7MtDZN;=iIgBY%JEZMRmX6%h)8w?+
z(>?BoBzo7#auXy#E}NXP0kS}_mtcbhf*{Eu*;A53fFOqratp8svX=w_lD#B*2?FH%
zs~^+D8B&tHwn@51BH2}4U0wD6_1EK{`o3EG^0MLSY}0l+s>cc=7e+=$M_yxWWMt$v
ze$L}3`i$Y?WE8;P(ZuzBm$yf<Z~pEC?w*`5N2I?<Pfh$_!kqZ+{gR7#Aps!)Aps!)
zAps!)Aps!)Aps!)A%R0Ffr&pGS)H65{WVW*n!0DVZ2CEMv$43azR1=WUSD2h6vO7a
zs<y3e>FmzQv8l&A@E$$!9-BMI*n8n)@3Hm8udL5gjO(eM?*<X)uKh}CY^pFl>Kj%|
ze`K^C-E;H@ExqgB3m*)FC&Lmgt=wAt3LBD+t*)>zZB*22zdn89^wjk9=x<K&+J(2n
zKdHVthLOC?44<gBQK>2Jf$q45ZN)XAxQ=RA9)5JEFFL4W5Jk!OCzD}!8;f@r8;#Y*
zJX=~>TVGgS4nyIecNQ8eODk{8v(+~tD*8NZ8(O<B@0RbVUR;hK6+_;xuGv=04WB~^
z9M3a4da@8m^{}m5%xmjRYwOxJd#Jjst2?xE)?4ADj_&%VmwXN{!K1&lwz@LUe5<QE
zuHIs{?{$4IexKjzsLl?5DlAjtp&^f4TN)jkx_o(bi|eMNdumJd)adVtKJ7%YY|cW8
zuw)NZ(+{q%(b{}WGE&liO8+4JrSu1qA$|W)TAL`8kbsbYkbsbYkbsbYkbsbYkbsbY
zkbsbYkib!pfHIc)xi7;#qr+QcX@>6J;@9rWOP#Lmc<#$<{??Z6;$qpbwhe1*-5x)c
znw)GJwzl4QYY}xEKaDUsh+4L#UreQ@rz1~~t9H7ke&s|;xf-}*xQin6x+qy0|7x<V
zTpUeZnQAq|_yWbBLcS-YpOOU6OaCkVbo`xj?XzD$^E;=%Gxo<P|LVlwkN)$>f6&dN
z|Jm)N$1hJzTzNKA_@*||b?hemb~~|K$<iMxkcTW6i^ZB;trg1Eyqs4uay}y$n3As-
zO8Eb^8O>B(cc%W;8PjmRnRn-B?B;!4^JeN_n{mAsJUeuc;t|pvCko*bjv{x9!kTKD
z4s-n`3Zdz)%QjWR)LV6?*}mCgmhCa_gJSS?!L#SVWAxDQ+PGn5KF}ST?!pf^&)RT7
zX^!f)$*1ISkJPqdBCDBqKm2gFGjULTZL@W}>igaK^XD&3>66cXsqi<c-6;dUP*>w^
z|Bme#-UsZC>NHh&1Yha!a28HC3cm)cbF;eF{vfNhZ>+4YFQO?FE7@XIE|;pMf}&Jw
zds;%VUaTZqf}?d>+~D?W4%eCQ!lIdJZ?Tr)pt;!a_s!<oc1O>(Rm)P_xh=!XIj-lo
z3>$yBJ?8>j&hfn6Tu`GNN*7*c8~o1fh84Y_5qnyTFzy1IL&4>YLjSMzQguz$Be!Lp
zJ*t-Pm5Z6KmN5;>f0Ws>d^U%Orr{;hyATk0O|>?;FTFZ@YyEbn+RM-Gl2g@Xvzd%#
zXF96ot0ugjxNiD}*~&aHwk+NAbeETumzku2BCt&~d^Q`_?AGGi&BoH*^`+I7S(eRa
z;mW0#cx}UF_#ZizksQ6z>F;L71AS*cuD)Rk#bUOQ&sR&OTCrA?l|hBe#m`LPDBkB?
z;n4TkZui{yOL6~w2bPQP4%XUscd!eu7D{DVDORhMe#6c0G2BDng?G<Brpj?Ier&32
zoEe`YEq{qdX}#0bTYL4ZR53u;FrSeN{pwYq-a^7m550Pg)BDynRP6Dot2s749b0eH
z_b?1Ndo_#6SEW=zH;gfNK(&SHQBtjW>VWFTR(ou!d;et6lKI@a>DYE>uWs}CyrRgJ
zYE{nf>6PVTy^x$v9eT69pW3&wp=OU!WjiMltB9t$<<m@VuX16y`GO+XFk3G68!jm~
zIdwYp%I%CERNtQE9_jjGK6Q2qzs{u3;rC4Xmq(=ElYUG3Z|UEpA4&ft{hjm!=})CU
zlD;mzFSVq1q&w10=_P4Os!2KNT>Agg|CRoi^bga2o&J;bchcWV@1`H5x6@5zB0fR_
zLIOepLIOepLIOepLIOepLIOepLIR&Z37knyj(WbO&qNnj&!sMn(zbeUoAoZQOr)+L
zwzcE<rtW^RFLe20YL?&Y+ODTNhV8sK5Hp=lUFB&yc1t(i7y5&jcyN=p$K#7D_Y3{O
zsq?AJqpocl_|{E-J{g!CPfd^Fdpe`5yU!)ApFNwJ8g&f-1fGenF49%k-Ru|_;wy<V
zi@st`Cj%2y_2B!i^S#S)DfQB5;wz1Fd%|ZaXYLF?6JMRCa)pl6vBdQ$O2J)lC*!LW
z6(MrooET4CJ{tvS|Nq7GzmG^ik^WWsN9k{+KbQVc`j)hdmA@u6q+gKcrRSxS>Hk3z
z@evXb5)cv)5)cv)5)cv)5)cv)5)cv)5)cwN^b#1qNPFkukD$Ht6BkmKCIeRl1usac
zD+q=@2#R?wotot_vFCwrxt~Z~<*|XUfk&OEsMx_kQ4*HdlaW_}BCyV%n&eIc3Z>7c
zrYA$!0>66(ce(q3KYSVwM~(xEcxEj1(qzIjKyeeNQ2fA$z;if>9Jq6ULTTUvCPTLX
zzk33AxjTSD(kSwe*8UVhisL(_XXCBIvwYJu->VyKxdmduZeh=EV(V|bjW<d|`~ofl
zIy0<*PLTEt_qOp4JdgxK3`=Kh##?_?=Gwl4tfQ9=$(ASA9lYLUD(jVINK)E)tUuB<
zpA#tXO~~%B5>UFf(E?y2Oru(@cmp>e9Q!>(fDR%B3AQ)$qU@K{^*1*Sz(Fi8r`Zl|
z4G$gyvqZ<>+pdSc1zZ$hqHtn)gj=X*nWkE-Nh$zFfRF&g-rKtwiPJSc(1)dr?)NsW
z50PeK+cqP*iOgg4@7djqsXx%og9UHun_k8SR%QQWocZKQn;Y;JQ8o5aT_b!GshzME
z3u`x*miVrBRfGR=s3MZjxH}*;dBix>V`$<?YeXUvi8fT2X{)W_+Isv$92`QJ5M=N;
zqdFir-wF$%nYwD3JHr}8^6{RD_1EE}7H1&8Cn*pWnZN|}Qh;yJ_9=vphh%ITO^29O
zTwQel{OGCx(F|$8eKIpF)&LNvHPjx~3T#UUV~wHZ(9+v>3n?uZKp=FGL*?b@09$B!
z2lmZ2eM<{~5<|*>Hm3t75hsEno956)6qb$}DMlyPpnir%3{&q6Pv6?#fEq1svE&~g
zCK%k-9K0jr=$q(SEr6AHG6KnLSa(BOBi~XV0KmjMJkJi<aq#FPJmuEekH7Klg~i5?
zzw!Ho<%kCXDn9Svpskjz`6MBgbMxTB*~dWXAyQ4Q{|V#+@>*oQU;Q^We3uBA!1J@O
z0;sOG1x0#8bD>xJ)Ts^_85)fKh~ssJJ~-swt<@EXZ;gYv>P%sQI5(_*)EH9e`i8|m
zDozMn75iZ$Ia%i7&jN;o(Vc44LU(PLZg#^8{sko<a2arFGC*t*V-kWKB2z3Ol4ec;
z&}~yST^%t_2q`3V8%G{dMiI=2B8LEtC`r&&A_1-+s*VNQr8gr45S-3oc5#dO*)~Rc
zI|0NTgM*i-jA47OvtVkqVXYgUsn^+E#|BJ^x|N$YV3r1r1T+y?!4T1lA#pCDfjB`^
zHrd;%V~|ad3WLvrrJ6hFEjFyT13oM$pD>sk)`E}D#Hq8VL8`H@s=hZ51J&Q%u<pcU
zT2GhBhIOkaggRSvp<9?C>Pr1*2jc**>I13^%%9ntm|JN!4+pf-JfRi}W}aCX*qw~0
zZe!dgA*tp=b;k`O2=ZumeZbFXY6!!jmvF0l<Wbf%F^T2J-$9)lK(V|~wv}b;gawO+
zPJ=+N)N#0BX?c$vXcf2-dO?KwqoVwxYHfkpiwMVni&JXX*efmDr~?I=R|>V9>pE7p
zP{985V&w)bBE;v`F&xa@c$F2hXxIS7EgPC{xo8$|++EHTHmt?HQ{!dzgPmLGQ0okJ
zf%Y5rqa6$yD`?PlR?aF}1(qFRebLr5_aOl}ALuZ_5DHvp+m_*>lz6R@&CA*9wRzU{
z9VduFd9x+NgeXCtj1ayBlx{`WTP`(9^v5LRIwmr4PYr}A)tlo1i%cOrYh6}==DYba
z*w_dR*+Jrlj$y?hgkqiDY%Hum66o}Dcm1YmXkn)P*_7nEoTqHK)d!;j8B}0L6q)EA
zc#Eev09P%fA|W9}FlU6K4uxAirfZbVM}tWYbbs_t^eNswLfZna`{DddI1#=VqIR$I
z28eN&+W+-n#c@4uZSfQvqc?`KAvauKBRKD-Z({O9WN+FwS|K&PJGV-}`(k|N_0n7X
z`2Z7&A!UoVRa}^X()is5|J~g2^bA=S;Up=iE@l)e7CDg(P`6{E#Q|H&Cqn$Gwr+Om
zqOU>}i3+yRe$fNr9tUSqRinI;H%U@-538!d<wE~_Z_}|m%+m?RPLnOu4q6F+$J1uB
zX`qjMiY&Hu5FVmS!otaR0D{JnF)m10?x3@wxgSczXzXQkLCb`_5K#I+SW!Ge(P)?$
zq9_=RQ3^6S^bU{%3P?SsSpLU&<9NnFwk4MTm^Vl3=Ala*vHZungPMw1{&N?GSpN4`
zxnlV*mj45;flp`oKR^@mahLy<Y^_u((<E9f|7j*Jmj8Uz3zqPKUqmeb;U5soe=KM}
z^X30Q_a~PBV)-wY{{vnC+W(&h#h-K`%_a)xZwvlE!T)zO`3?pD-xj{A2tDmg@c+f%
z{XCZM5nmMu{=Y*__=rJD@c$)t0ml4GF&~lO|I60}|KA~IBNqIBJ-Wl#Y6brvh_wa(
zADpU(mqlFg|0VbidzO2o`Tu$>@wEOwJCYlbo=yM!+1-;rO8q1?dg9{fRYVQ@?AlY~
zS7RF29`IpsLQ<*KD&>k&DeocaEtQTKNpI)*1R-RE>xk<MKVv|nUoDqW-6A-N`w1{h
z=-`glu>q3@)i*YPV^iPl=K`i)PB<L`a|YC_fSI^jDHLmaxND2pM0cckiMO9Uptg~6
zk4tU8cj=k)Q&VqT1ey2`M|Y<<1`GQyv-x$SgU!6yQuhkJ%*<-Idd=6&tg2=G?Hj9a
zl2K<Bxlk-uN;Rb{7s`8VTCV4ljK!bQ0T8_WIr?UUUmcs{AA))%_7Npde~5Qu>5s5E
zpPxhF?Q{cl#@%4ADedbUI3$8++PA9>dKaL!;Mk2Lva2oB;b(wpo8_BhXFuVcZ<t|?
zfA58hK_8WQx;~2f>a0@8E2VNCC)HHSr9BgmVy&*!5_?-e)lLef6P=Xkq@p8y;!d3Q
zNggxg?dPDAI=6fOLgL5+j#eL-B4dWER7;@$ukAfO33KFRM|9|q0JtyhTiIxad~7O9
zi~Qj`-v$0!qhlCZ67n1&W%>ayA9cs`p4^@U?wl;l0A4zTZ-3O{4CMDD1rqq{&j5cN
zoQu~tsD3W6)G<ICIImd(tv_ah&T;KD<#<vyhxmbj`hm9j0<;hKodaASP<k$KnnO|E
zJ&YWkXb3zAVd7>fmaytW*Rw%FU{q&&=OYdS;ST|j_i27#RC=84uw0|Qr<aIIa$tcS
z-y(o^M32C$*n6C#A^}#vZFmG6ycclf+@sFu-rCaoLL=Mgv}VJDFlYG*lCu#H0ub<o
zh)>W1IC^k)B)t#Hj$Xrn)a?2pLVxYerMq_*Z$+rS9-^MiV-QW>iyMw_FJpsyK`wmC
z8{F}_JuvijcsBq#k6at!MV;|^W(-PS^T80q2r!IzLQ^+)*g6okZV0ZXrrWSXN`*HZ
z`yr?=Zu-FKKL(BtCrJcHcVBDNS&$s>a&2pF%K%K7y~;Lb;6U4$neXKVfcvJ}F@Sre
zyX0Eid)py*+pA2Q+n51v9e0rq*!7K>YyH{i9l&#WE`zSQy?MeiIkN_3yV|(9bc;WS
zg8}6Xew0k9q9_@hBq!r70DC4u@&|eV_n_i$$HX1fmuv<NJV4``HgD~Ww{SMcwGv2W
zf7L7`RCA4O1-j8lH!LukY?vJ}1rT!p*pJ$3R|l_7fW!BKbitv(gniwj?ui<~>lqgW
z1y+dM5AsAy2(khCo=z%85)fO1bcmt3w9rlIo12Jsi8Q5YqnU)rf7f>c-V$m`*wP(l
z0$vi`%`zbI!{YK|hc^wJT?;x1B2*ygJzC>3;KYFQ;{|g{tyY5ksV))ZUXkTIJOrIA
z{OUNWQ>n_88(gF<Vg|Ci1e^|F{efshx)tQh8yC+@_dqYevHWrm%a2pY3OVCGI6`*b
zSCkSV`IC@+j+W1(FmE-M>#Xg0UALa2!*|<$6OQ0cjwn7r=u!#X7YP~w%k1d$F&O{=
z_sAp$?6<n+jx*1;Odn}DR3G?!6NCdXOn;uA+KfY+J)?;!1N{ZzSdt2WgZ_~oQ2gzd
z{SaN)+u^~vuhTKQI`|=Yk^?yhb_m=}7=&fu!Rw3%`xpo+U<!bVKb|N62M6QqYo)~G
zS{(@g0!R42jAD1lUmkT5brxGvkB@@Qy%I^*b~K}vwVf@%j|R;021NK|bOT{wD#Th)
z+=p&}caQ^Y1L)8`Nwxw0(%fEm*T)7M@ND_C0mEB@Y9NgN1egYB>O=3kj?U!)4Z9RU
zr1=b-KEyCUGktdJbzUBtC-95UjGrK!a8W^{$w9zs@U)BrJ-&dWKwQA}53Bi^@D|7+
zZ-H3<gDMQI8)Hs1BTY<2lS}Ss)-2ZlZ9VXgi1oi%{||WiKPfIXvHl<8`4Q{?0M_@h
z*Z<{gzEr4)^?x+A7wdmc4OnMl{V&%4Akq`-e<BJL>wg`5>D?Un!MlN%XkbsCSpP>W
zCGwbl68wZ>{r~ZK3u*mN`~SyJeSbtsr(c}7e!evR+PT%Uzk25V)4wtHZA6QYkbsbY
zkbscDA&|hXF*82d17G1Vo54+Zg?zbGEmg|>K$Sv0U#QDT$ikuDglAmcudeYPykk?>
z`)vFY>6Jr}Fu}$V$pe~I<VvAdluNZz5{pu(;|sCUk;0eVzp{U2Bh?<8%35C>ztXeV
z=!mHy%FX9Xl|n(uD|@sHv&|<q@gI7#wJsl6;hutzONE^m$7lOAj2$__VdaBbhJUe8
ztL6u6SjLyyM+!ygOh2~Lv8InrrR^7z&}Z0kuv=$9&2kw$sTH|amixe>WXbhX`6wB)
bed*vDM>;-6HU2`f#__p+gE~Gg@b>=)Ra1Ff

delta 414
zcmY+Au};G<5QbBn1}JgtA|iyUs;U@ZVr5|I1`84rPvFE?YLV1Y>>zb&AA!=9jR}bb
zI(6d#c$E&k0lu^gmOT95-Tn9LW-~JTZajA=_dGAy{>J?LvdO)RtKU!g#;C{E?1!z`
zJ9}kn+2=QGen%IoH{g*^;*Ql)tFf^n%NDENbwHhq$2Wb?UqS1id@1~;KUhaooT8kZ
z#8%~CA5n5fdQQqoS!H0597W`;CWST@N~KGrZA$tz&9#KAZfu8$hEiBzz}AQzkZx>r
zrfekv$HEplj*YScO{O~9C!M&2R27?D;hrlOW|%8%X1i{>D0L!|Y=Yo0AgA%INJnZ6
z_aj{(qfM7zJxMSr%FuTXkS8EfMa20hl}$%brw(^qH7T{uvD#$~w;&M@6<Axx!!vDP
Ib9=mxKi@NW>Hq)$

diff --git a/revdep/failures.md b/revdep/failures.md
index 9a207363..e663be6f 100644
--- a/revdep/failures.md
+++ b/revdep/failures.md
@@ -1 +1,495 @@
-*Wow, no problems at all. :)*
\ No newline at end of file
+# baguette
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# broom
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# butcher
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# embed
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# MachineShop
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# probably
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# psfmi
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# recipes
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# solitude
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# tfdatasets
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# tidymodels
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# tidyposterior
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# tidyrules
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# timetk
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```
+# tune
+
+<details>
+
+* Version: 
+* GitHub: https://github.com/tidymodels/rsample
+* Source code: NA
+* Number of recursive dependencies: 0
+
+</details>
+
+## Error before installation
+
+### Devel
+
+```
+
+
+
+
+
+
+```
+### CRAN
+
+```
+
+
+
+
+
+
+```

From 600813015ee8ee62dcaf247724dc4b345e717ecc Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Thu, 4 Feb 2021 10:49:36 +0000
Subject: [PATCH 5/6] update documentation

---
 man/complement.Rd | 22 +---------------------
 1 file changed, 1 insertion(+), 21 deletions(-)

diff --git a/man/complement.Rd b/man/complement.Rd
index 9b31077e..81a36607 100644
--- a/man/complement.Rd
+++ b/man/complement.Rd
@@ -35,32 +35,12 @@ A integer vector.
 \description{
 This method and function help find which data belong in the analysis and
 assessment sets.
-
-#' @export
-complement.vfold_split <- rsplit_complement
-#' @export
-complement.mc_split  <- rsplit_complement
-#' @export
-complement.val_split <- rsplit_complement
-#' @export
-complement.loo_split <- rsplit_complement
-#' @export
-complement.group_vfold_split <- rsplit_complement
-#' @export
-complement.boot_split <- rsplit_complement
-#' @export
-complement.perm_split <- rsplit_complement
 }
 \details{
 Given an \code{rsplit} object, \code{complement()} will determine which
 of the data rows are contained in the assessment set. To save space,
-many of the \code{rset} objects will not contain indices for the
+many of the \code{rsplit} objects will not contain indices for the
 assessment split.
-
-\code{rsplit_complement()} handles the determination for sets for most resampling
-methods. Unless the row indices for the assessment set are already
-determined, this function selects all of the rows that are not in the
-analysis set and returns those as the assessment set.
 }
 \examples{
 set.seed(28432)

From 028a7e60ab833fed9804fadc2a4f22fd702023a6 Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah.frick@gmx.de>
Date: Thu, 4 Feb 2021 10:50:07 +0000
Subject: [PATCH 6/6] un-export `default_complement()`

---
 NAMESPACE                 |  1 -
 R/complement.R            |  8 +-------
 man/default_complement.Rd | 21 ---------------------
 3 files changed, 1 insertion(+), 29 deletions(-)
 delete mode 100644 man/default_complement.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 4bff7c51..e2efb2b0 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -210,7 +210,6 @@ export(bootstraps)
 export(caret2rsample)
 export(complement)
 export(contains)
-export(default_complement)
 export(ends_with)
 export(everything)
 export(form_pred)
diff --git a/R/complement.R b/R/complement.R
index d1ca8ce0..a3114543 100644
--- a/R/complement.R
+++ b/R/complement.R
@@ -84,13 +84,7 @@ complement.default <- function(x, ...) {
   )
 }
 
-#' Get the indices of the analysis set from the assessment set
-#' @param ind A vector of integers for which rows of data belong in the
-#' assessment set.
-#' @param n A single integer for the total number of rows in the data set.
-#' @return A named list of integer vectors.
-#' @export
-#' @keywords internal
+# Get the indices of the analysis set from the assessment set
 default_complement <- function(ind, n) {
   list(analysis = setdiff(1:n, ind),
        assessment = unique(ind))
diff --git a/man/default_complement.Rd b/man/default_complement.Rd
deleted file mode 100644
index 7f3a1a87..00000000
--- a/man/default_complement.Rd
+++ /dev/null
@@ -1,21 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/complement.R
-\name{default_complement}
-\alias{default_complement}
-\title{Get the indices of the analysis set from the assessment set}
-\usage{
-default_complement(ind, n)
-}
-\arguments{
-\item{ind}{A vector of integers for which rows of data belong in the
-assessment set.}
-
-\item{n}{A single integer for the total number of rows in the data set.}
-}
-\value{
-A named list of integer vectors.
-}
-\description{
-Get the indices of the analysis set from the assessment set
-}
-\keyword{internal}