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
37
38
39
|
#' @rdname find_columns
#' @export
get_columns <- function(data,
select = NULL,
exclude = NULL,
ignore_case = FALSE,
regex = FALSE,
verbose = TRUE,
...) {
columns <- .select_nse(
select,
data,
exclude,
ignore_case = ignore_case,
regex = regex,
verbose = FALSE
)
# save attributes
a <- attributes(data)
if (!length(columns) || is.null(columns)) {
if (isTRUE(verbose)) {
insight::format_warning("No column names that matched the required search pattern were found.")
}
return(NULL)
}
out <- data[columns]
# add back attributes
out <- .replace_attrs(out, a)
out
}
#' @rdname find_columns
#' @export
data_select <- get_columns
|
