Clean up on swipe app_data update

t4c/app.R

@@ -158,18 +158,10 @@ server <- function(input, output, session) {
       app_data$results
     )
 
-    # update outputs
+    # update app_data
     app_data$iter <- app_data$iter + 1L
     next_q <- question()
-    if (!is.null(next_q)) {
-      # output$question_text <- renderText({next_q$`Question Text`})
-    } else {
-      # output$question_text <- renderText("No more questions.")
-      app_data$complete <- TRUE
-    }
-
-    # update results table
-    # output$results_table <- renderDataTable({app_data$results})
+    if (is.null(next_q)) app_data$complete <- TRUE
   })
 
   observeEvent(input$splash_next_screen, {