Show plot data

UoMResearchIT · Aug 9, 2018 · b373f1f · b373f1f
1 parent 4ee4c74
commit b373f1f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/worked_example/app.R b/worked_example/app.R
@@ -40,7 +40,8 @@ ui <- fluidPage(
 
       # Show a plot of the generated distribution
       mainPanel(
-         plotOutput("gapminderPlot")
+         plotOutput("gapminderPlot"),
+         tableOutput("graphData")
       )
    )
 )
@@ -54,6 +55,10 @@ server <- function(input, output) {
        filter(continent %in% input$continent)
    })
 
+   output$graphData <- renderTable({
+     plotData()
+   })
+
    output$gapminderPlot <- renderPlot({
       plotData() %>% 
        produceGapminderPlot()