Extract column values from dataframe with selectinput

Question

For example, I have a dataframe mtcars I want to extract only the column values based on the variable choices in the selectinput.

Sample code:

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

Ex: mtcars$mpg

I want only to extract the mpg vector values: 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

YBS · Accepted Answer · 2020-07-19 04:31:20Z

0

Try this

output$data <- renderText({
      paste(mtcars[[as.name(input$variable)]])
})

answered Jul 19, 2020 at 4:31

YBS

21.5k2 gold badges15 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Extract column values from dataframe with selectinput

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related