Skip to content
Create a gist now

Instantly share code, notes, and snippets.

@wch /server.r
Last active Apr 19, 2016

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
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
revuel commented Mar 11, 2015

Very usefull example, lots of thanks.

@yizhexu
yizhexu commented Jul 1, 2015

Thank you! This is a really useful example!

@vluong
vluong commented Nov 11, 2015

How can I see an example of this?

@LilianaPacheco

Thank you!!!

@irenge
irenge commented Apr 10, 2016

cool code

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.