함수를 호출하면 오류가 발생합니다 / 수동으로 줄을 실행하면

좋아, 내 문제를 설명하는 적절한 방법을 찾기 위해 약간 고심하고 있습니다. 멍청한 질문이라면 미안하지만 아직 배우는 중입니다.

정기적으로 "CountX_YYYY"라는 이름의 일련의 작은 data.frame이 있습니다 (X는 특정 경우를, YYYY는 주어진 연도를 나타냄). 다음과 같이 특정 유형 (X)을 가져 와서 모두 바인딩하고 ID (연도)를 정리하여 시작하는 함수를 작성했습니다.

library(dplyr)

analysis <- function(case_pattern){

  cases <- mget(ls(pattern = case_pattern)) %>%
    bind_rows(.id = "id") %>%
    rename(year = id) %>%
    mutate(year = str_sub(year,-4))

  return(cases)
}

어디에 case_pattern사용되며, 예를 들어,"^Count1"

매우 간단한 코드이며 아래 에서처럼 함수 본문을 수동으로 실행하면 정상적으로 작동합니다.

case_pattern <- "^Count1"

cases <- mget(ls(pattern = case_pattern)) %>%
    bind_rows(.id = "id") %>%
    rename(year = id) %>%
    mutate(year = str_sub(year,-4))

그러나 함수를 호출하여 똑같은 작업을 수행하면 :

case_pattern <- "^Count1"
analysis(case_pattern)

다음 오류가 발생합니다.

Error: This tidyselect interface doesn't support predicates yet.
i Contact the package author and suggest using `eval_select()`.

(아래, 역 추적, 도움이되는지 모르겠습니다)

29.
stop(fallback) 
28.
signal_abort(cnd) 
27.
abort(c("This tidyselect interface doesn't support predicates yet.", 
    i = "Contact the package author and suggest using `eval_select()`.")) 
26.
as_indices_sel_impl(out, vars = vars, strict = strict, data) 
25.
walk_data_tree(new, data_mask, context_mask) 
24.
reduce_sels(node, data_mask, context_mask, init = init) 
23.
eval_c(expr, data_mask, context_mask) 
22.
walk_data_tree(expr, data_mask, context_mask) 
21.
vars_select_eval(vars, expr, strict, data = x, name_spec = name_spec, 
    uniquely_named = uniquely_named, type = type) 
20.
withCallingHandlers(expr, simpleError = function(cnd) {
    abort(conditionMessage(cnd), parent = cnd)
}) 
19.
instrument_base_errors(expr) 
18.
doTryCatch(return(expr), name, parentenv, handler) 
17.
tryCatchOne(expr, names, parentenv, handlers[[1L]]) 
16.
tryCatchList(expr, classes, parentenv, handlers) 
15.
tryCatch(instrument_base_errors(expr), vctrs_error_subscript = function(cnd) {
    cnd$subscript_action <- subscript_action(type)
    cnd$subscript_elt <- "column"
    cnd_signal(cnd) ... 
14.
with_subscript_errors(vars_select_eval(vars, expr, strict, data = x, 
    name_spec = name_spec, uniquely_named = uniquely_named, type = type), 
    type = type) 
13.
eval_select_impl(x, names, {
    {
        sel
    } ... 
12.
rename_impl(NULL, .vars, quo(c(...)), strict = .strict) 
11.
tidyselect::vars_rename(names(.data), !!!enquos(...)) 
10.
rename.data.frame(., year = id) 
9.
rename(., year = id) 
8.
function_list[[i]](value) 
7.
freduce(value, `_function_list`) 
6.
`_fseq`(`_lhs`) 
5.
eval(quote(`_fseq`(`_lhs`)), env, env) 
4.
eval(quote(`_fseq`(`_lhs`)), env, env) 
3.
withVisible(eval(quote(`_fseq`(`_lhs`)), env, env)) 
2.
mget(ls(pattern = case_pattern)) %>% bind_rows(.id = "id") %>% 
    rename(year = id) %>% mutate(year = str_sub(year, -4))
1.
analysis(case_pattern)

이 오류를 식별 / 이해할 수 없었지만 두 가지 방법 모두 동일한 출력을 제공해야하는 것 같습니다. 그렇지 않습니까?

어쨌든 미리 감사드립니다!