Извлеките значения столбцов из фрейма данных с помощью selectinput

Например, у меня есть mtcars фрейма данных, я хочу извлечь только значения столбцов на основе выбора переменных в selectinput.

Образец кода:

shinyApp(
  ui = fluidPage(
    varSelectInput("variable", "Variable:", mtcars),
    verbatimTextOutput('data')
  ),
  server = function(input, output) {
   
    output$data <- renderText({
      mtcars$input$variable
    })
   
  }
)

Пример: mtcars $ mpg

Я хочу только извлечь значения вектора миль на галлон: 21,0 21,0 22,8 21,4 18,7 18,1 14,3 24,4 22,8 19,2 17,8 16,4 17,3 15,2 10,4 10,4 14,7 32,4 30,4 33,9 21,5 15,5 15,2 13,3 19,2 27,3 26,0 30,4 15,8 19,7 15,0 21,4