1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#' @inheritParams extract_column_names
#' @rdname data_relocate
#' @examples
#' # Remove columns
#' head(data_remove(iris, "Sepal.Length"))
#' head(data_remove(iris, starts_with("Sepal")))
#' @export
data_remove <- function(data,
select = NULL,
exclude = NULL,
ignore_case = FALSE,
regex = FALSE,
verbose = FALSE,
...) {
## TODO set verbose = TRUE by default in a later update?
# evaluate arguments
select <- .select_nse(
select,
data,
exclude = NULL,
ignore_case = ignore_case,
regex = regex,
verbose = verbose
)
# nothing to remove?
if (!length(select)) {
return(data)
}
out <- data[!colnames(data) %in% select]
out <- .replace_attrs(out, attributes(data))
out
}
|
