Merge pull request #85 from adamlilith/solstice2022_2023

Remove `ellipseNames()`
adamlilith · Sep 28, 2024 · b707915 · b707915
2 parents 8dda56d + 6f6f006
commit b707915
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/cull.r b/R/cull.r
@@ -16,7 +16,7 @@
 cull <- function(...) {
 
 	# input/output
-	x <- list(...)
+	dots <- x <- list(...)
 
 	# if data frames or matrices
 	if (class(x[[1]]) %in% c('data.frame', 'matrix')) {
@@ -35,7 +35,7 @@ cull <- function(...) {
 	}
 
 	# name elements of output same as names of x
-	inNames <- ellipseNames(...)
+	inNames <- names(dots)
 	if (length(inNames) == length(x)) names(x) <- inNames
 
 	x