我有一個 tidytable，我想complete為給定的一組列運行，但由于某種我無法弄清楚的原因，將字串轉換為變數名的常用方法不起作用：
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
uj5u.com熱心網友回復：
我們需要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
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/446291.html
下一篇：在R中的特定模式之后提取字串