Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(shiny)
- library(datasets)
- # Define server logic required to summarize and view the selected
- # dataset
- shinyServer(function(input, output) {
- # Return the requested dataset
- datasetInput <- reactive({
- switch(input$dataset,
- "rock" = rock,
- "pressure" = pressure,
- "cars" = cars)
- })
- # Generate a summary of the dataset
- output$summary <- renderPrint({
- dataset <- datasetInput()
- summary(dataset)
- })
- # Show the first "n" observations
- output$view <- renderTable({
- head(datasetInput(), n = input$obs)
- })
- })
Add Comment
Please, Sign In to add comment