inst/examples/server.R

In r2social: Seamless Integration of Sharing and Connect Buttons in Markdown and Apps

server <- function(input, output, session) {
  output$summary <- renderPrint({
    dataset <- get(input$dataset, "package:datasets")
    summary(dataset)
  })

  output$table <- renderTable({
    dataset <- get(input$dataset, "package:datasets")
    dataset
  })
}