inst/shiny/myNewApp/server.R

In Bioconductor/SOUNDBoard: Statistically-informed Multi-Omics Reports for Tumor and Other Boards

library(shiny)
library(datasets)

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