Merge pull request #218 from tidymodels/add_class

juliasilge · web-flow · commit ef458a5a9997 · 2021-02-10T19:36:18.000-06:00
removed `at_end` arg
diff --git a/R/misc.R b/R/misc.R
@@ -33,11 +33,8 @@ names0 <- function(num, prefix = "x") {
   paste0(prefix, ind)
 }
 
-add_class <- function(x, cls, at_end = FALSE) {
-  class(x) <- if (at_end)
-    c(class(x), cls)
-  else
-    c(cls, class(x))
+add_class <- function(x, cls) {
+  class(x) <- c(cls, class(x))
   x
 }
 

Original file line number	Diff line number	Diff line change
`@@ -33,11 +33,8 @@ names0 <- function(num, prefix = "x") {`
`33`	`33`	`paste0(prefix, ind)`
`34`	`34`	`}`
`35`	`35`
`36`		`-add_class <- function(x, cls, at_end = FALSE) {`
`37`		`- class(x) <- if (at_end)`
`38`		`- c(class(x), cls)`
`39`		`- else`
`40`		`- c(cls, class(x))`
	`36`	`+add_class <- function(x, cls) {`
	`37`	`+ class(x) <- c(cls, class(x))`
`41`	`38`	`x`
`42`	`39`	`}`
`43`	`40`