replaced plot with summary table

shiny-app/server.R

@@ -4,8 +4,10 @@ library(shiny)
 shinyServer(function(input, output) {
   emergency2013 <- read.csv("./data/emergency2013.csv")
   
-  output$distPlot <- renderPlot({
+  output$mytable1 <- renderDataTable({
+    library(ggplot2)
+    emergency2013[, input$show_vars, drop = FALSE]
     
-    plot(emergency2013$erdatemm, emergency2013$vstctgry)
+      
   })
 })

shiny-app/ui.R

@@ -13,9 +13,11 @@ shinyUI(fluidPage(
                          names(emergency2013), selected = names(emergency2013))
     ),
     
-    # Show a plot of the generated distribution
+    # Show a summary table of the selected variables
     mainPanel(
-      plotOutput("distPlot")
+      tabsetPanel(
+        id = 'dataset',
+        tabPanel('emergency2013', dataTableOutput('mytable1')))
     )
   )
 ))