Передача имен переменных в команду fre

Я пытаюсь передать набор переменных в select input и использовать их имена для команды expss::fre.

У меня есть объект с именами столбцов и их метками, такими как 'миварс':

a1_1, "Do you like apples?"
a1_2, "Do you like oranges?"

Я использую их:

selectInput(vars, "Select variable", myvars)

Затем в разделе «сервер» я хотел бы использовать его для создания простой таблицы частот.

output$view <- renderTable( {
        fre(input$variable)
}

Проблема в том, что в fre я должен передать переменную с именем набора данных:

fre(data$a1_1)

Поэтому я пробовал с eval, quo, !!, paste0("data$",input$vars) и другими, но безуспешно.

когда я пытаюсь с switch:

switch(input$vars, "a1_1"=fre(data$a1_1), "a1_2"=fre(data$a1_2))

Он отлично работает, но мне нужно более гибкое решение. Как сделать это хорошо?