NSE в тидиверсе с выбором ()

Question

Я прочитал несколько вопросов об стеке потока по NSE с помощью dplyr ( здесь , здесь и здесь ), но я все еще пытаюсь применить его к своему использовать.

Это мой пример

Эта работа

yo <- tibble(ah = 1:10, meh = 11:20)
yup <- yo %>% select(ABX = meh)

Но я бы хотел сделать эту работу:

i=1
newnames <- c("ABX", "TDX")
yup <- yo %>% select(newnames[i] = meh)

Несколько вещей, которые я пытался безуспешно:

yup <- yo %>% select_(newnames[i] = "meh")
yup <- yo %>% select(!!rlang::sym(newnames[i]) = meh)
yup <- yo %>% select(as.name(newnames[i]) = meh)

Любая помощь? Заранее спасибо.

Answer 1

yup <- yo %>% select(!!newnames[i] := meh)

> yup
# A tibble: 10 x 1
     ABX
   <int>
 1    11
 2    12
 3    13
 4    14
 5    15
 6    16
 7    17
 8    18
 9    19
10    20

Не уверен, что вы читали программирование с помощью dplyr vignette , но я нашел это очень полезным для улучшения моего понимания NSE в тидиверсе.