No, that was a silly idea

This reverts commit 44f9e8d.

dashboard/app.R

@@ -10,20 +10,19 @@ ui <- fluidPage(
 
   textInput("timePeriod", "Time period (in hours)", value = 3),
 
-  uiOutput("responseUI")
+  plotOutput("responsePlot")
 )
 
 # Define server logic required to draw a histogram
 server <- function(input, output, session) {
 
   readData <- reactiveFileReader(1000, 
                        session,
-                       outputPath,
+                       "../data/responses.csv",
                        read.csv, 
                        header = FALSE)
 
   getData <- function() {
-
     dat <- readData()
 
     currentTime <- Sys.time()
@@ -36,9 +35,8 @@ server <- function(input, output, session) {
 
   }
 
-  output$responseUI <- renderUI({
-    if(file.exists(outputPath)) {
-      dat <- getData()
+  output$responsePlot <- renderPlot({
+    dat <- getData()
 
     p <- ggplot(dat, aes(V2)) +
       geom_bar() +
@@ -49,13 +47,7 @@ server <- function(input, output, session) {
       labs() +
       theme_minimal()
 
-    tagList(
-      plotOutput(p)
-    )} else {
-      tagList(
-        renderText("There are no responses yet")
-      )
-    }
+    return(p)
   })
 }