Create a gist now

Instantly share code, notes, and snippets.

@wch /server.r
Last active May 25, 2017

What would you like to do?
Shiny example: dynamic input fields
data_sets <- c("mtcars", "morley", "rock")
shinyServer(function(input, output) {
# Drop-down selection box for which data set
output$choose_dataset <- renderUI({
selectInput("dataset", "Data set", as.list(data_sets))
})
# Check boxes
output$choose_columns <- renderUI({
# If missing input, return to avoid error later in function
if(is.null(input$dataset))
return()
# Get the data set with the appropriate name
dat <- get(input$dataset)
colnames <- names(dat)
# Create the checkboxes and select them all by default
checkboxGroupInput("columns", "Choose columns",
choices = colnames,
selected = colnames)
})
# Output the data
output$data_table <- renderTable({
# If missing input, return to avoid error later in function
if(is.null(input$dataset))
return()
# Get the data set
dat <- get(input$dataset)
# Make sure columns are correct for data set (when data set changes, the
# columns will initially be for the previous data set)
if (is.null(input$columns) || !(input$columns %in% names(dat)))
return()
# Keep the selected columns
dat <- dat[, input$columns, drop = FALSE]
# Return first 20 rows
head(dat, 20)
})
})
shinyUI(pageWithSidebar(
headerPanel(""),
sidebarPanel(
uiOutput("choose_dataset"),
uiOutput("choose_columns"),
br(),
a(href = "https://gist.github.com/4211337", "Source code")
),
mainPanel(
tableOutput("data_table")
)
))

JRPTrad commented Nov 29, 2014

Thanks, great code btw! Is this possible to extend so that it can be used with GoogleVis Charts by any chance?

revuel commented Mar 11, 2015

Very usefull example, lots of thanks.

yizhexu commented Jul 1, 2015

Thank you! This is a really useful example!

vluong commented Nov 11, 2015

How can I see an example of this?

Thank you!!!

irenge commented Apr 10, 2016

cool code

Thank you!

i just needed this for my project

Thank you! Clean and useful code.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment