inst/app/server.R

In personr: Test Your Personality

function(input, output, session) {
  # store responses
  vs <- shiny::reactiveValues(rs = integer(50))
  shiny::observe({
    for (i in 1:50) {
      r_n <- paste("item", i, sep = "_")
      r <- input[[r_n]]
      if (!is.null(r)) {
        vs$rs[i] <- as.integer(r)
      }
    }
  })

  # generate report when button pressed
  shiny::observeEvent(input$submit, {
    personr::report(vs$rs, personr:::personr_globals$wd)
  })

  # stop Shiny when browser is closed
  session$onSessionEnded(function() {
    stopApp()
  })
}