From 3bc4cb8915ca06d37cfef9b9ec4c2b7054a60ad3 Mon Sep 17 00:00:00 2001 From: Hannah Frick Date: Wed, 10 Feb 2021 15:31:07 +0000 Subject: [PATCH] removed `at_end` arg as we were not using it and likely will not either in future (discussed in #216) --- R/misc.R | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/R/misc.R b/R/misc.R index 9262271e..117e0729 100644 --- 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 }