rlang: см. var в функции объединения tidyr

Question

Вот мои данные:

df <- tibble::tribble(
   ~A,  ~B, ~C,
  "a", "b", 2L,
  "a", "b", 4L,
  "c", "d", 3L,
  "c", "d", 5L
  )

var <- "AB"

Я хочу получить этот вывод:

df1 <- df %>% 
  unite("AB", c("A", "B")) %>% 
  group_by(AB) %>% 
  nest()

Однако я хочу сослаться на var, возможно, используя rlang. Я не хочу вводить вручную «AB». Я попробовал следующее, но не получил желаемый результат. Пожалуйста, помогите.

df1 <- df %>% 
  unite(var, c("A", "B")) %>% 
  group_by(!!var) %>% 
  nest()

Answer 1

Это решило проблему:

df1 <- df %>% 
  unite(!!var, c("A", "B")) %>% 
  group_by(!!sym(var)) %>% 
  nest()