Browse Source

Avoid R CMD check NOTE

pull/11/head
Philipp Baumann 4 years ago
parent
commit
0f1eaa807f
  1. 6
      R/select-spc.R

6
R/select-spc.R

@ -12,8 +12,8 @@
#' @export
#'
select_spc_vars <- function(spc_tbl,
lcol_spc = spc_pre,
lcol_xvalues = xvalues_pre,
lcol_spc = "spc_pre",
lcol_xvalues = "xvalues_pre",
every = NULL) {
lcol_spc <- rlang::enquo(lcol_spc)
lcol_spc_nm <- rlang::quo_name(lcol_spc)
@ -30,7 +30,7 @@ select_spc_vars <- function(spc_tbl,
pos_sel <- seq(1L, ncol(spc), every)
spc_sel <- spc[, ..pos_sel]
spc_sel <- spc[, pos_sel, with = FALSE]
spc_lst_out <- stats::setNames(
map(purrr::transpose(spc_sel), data.table::as.data.table),

Loading…
Cancel
Save