Nothing
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()
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.