R：在 `tidytable::complete()` 中将字符串转换为变量名

Question

我有一个 tidytable，我想运行 complete 用于一组给定的列，但由于某些我无法弄清楚的原因，usual methods将字符串转换为变量名不起作用：

input <- tidytable::tidytable(a = sample(LETTERS, size = 100, replace = TRUE), 
                             b = sample(letters, size = 100, replace = TRUE), 
                             c = runif(n = 100))

expected <- input %>% tidytable::complete.(a, b)

columns <- c("a", "b")

attempt1 <- input %>% tidytable::complete.(!!columns) # Error in get_bys(x, y, by) : by.y columns not in y
attempt2 <- input %>% tidytable::complete.(!!!columns) # Error in get_bys(x, y, by) : by.y columns not in y
attempt3 <- input %>% tidytable::complete.(eval(as.name(columns)))  # Error in get_bys(x, y, by) : by.y columns not in y
attempt4 <- input %>% tidytable::complete.(eval(quote(columns))) # Error in get_bys(x, y, by) : by.y columns not in y

attempt5 <- input %>% tidytable::complete.(as.name(columns)) # Error in CJ(`as.name(columns)` = .Primitive("quote")(a), unique = TRUE,  : 'sorted' is TRUE but element 1 is non-atomic, which can't be sorted; try setting sorted = FALSE
attempt6 <- input %>% tidytable::complete.(vars(tidytable::any_of("a"))) # Error in CJ(`vars(tidytable::any_of(a))` = list(~tidytable::any_of(a)), : 'sorted' is TRUE but element 1 is non-atomic, which can't be sorted; try setting sorted = FALSE

attempt7 <- input %>% tidytable::complete.(as.name(columns, sorted = FALSE)) # Error in as.name(columns, sorted = FALSE) : unused argument (sorted = FALSE)
attempt8 <- input %>% tidytable::complete.(vars(tidytable::any_of("a", sorted = FALSE), sorted = FALSE)) # Error in CJ(`vars(tidytable::any_of(a))` = list(~tidytable::any_of(a)), : 'sorted' is TRUE but element 1 is non-atomic, which can't be sorted; try setting sorted = FALSE

Answer 1

我们需要 syms 转换为符号然后计算 (!!!)

input %>% 
   tidytable::complete.(!!! rlang::syms(columns))

-输出

# A tidytable: 657 × 3
   a     b         c
   <chr> <chr> <dbl>
 1 A     a        NA
 2 A     b        NA
 3 A     c        NA
 4 A     d        NA
 5 A     e        NA
 6 A     f        NA
 7 A     g        NA
 8 A     h        NA
 9 A     i        NA
10 A     j        NA
# … with 647 more rows

R：在 `tidytable::complete()` 中将字符串转换为变量名

R: turn string into variable names in `tidytable::complete()`

r

tidytable