# Define server logic to summarize and view selected dataset ---- | |
server <- 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) | |
}) | |
} |