inst/examples/filters/server.R

In mtrybulec/interviewer: interviewer - computer-aided interviewing in R/Shiny

library(interviewer)
library(shiny)

function(input, output, session) {

    responses <- interviewer::buildResponses(
        id = c("a", "b", "c"),
        label = c("response A", "response B", "response C")
    )

    output$questionnaireOutput <-
        interviewer::questionnaire(
            label = "Filters DEMO",
            welcome = list(
                shiny::p("Welcome!"),
                shiny::HTML("<p>This demo shows how <strong>filters</strong> can be defined in <strong>interviewer</strong>.</p>")
            ),

            interviewer::question.single(
                id = "FilterSource",
                label = "Filter source (responses A and B filter one of the next questions)",
                responses = responses
            ),

            interviewer::pageBreak(),

            function() {
                if (getResponseIds("FilterSource") == "a") {
                    interviewer::question.single(
                        id = "FilterTargetA",
                        label = "Filter target A (asked if the response to the first question was 'response A')",
                        responses = responses
                    )
                } else if (getResponseIds("FilterSource") == "b") {
                    list(
                        interviewer::question.single(
                            id = "FilterTargetB",
                            label = "Filter target B (asked if the response to the first question was 'response B'; 'Reponse C' here will show the next question)",
                            responses = responses
                        ),

                        # Note that the page break is under a filter; it will take effect if the response to FilterSource is "b".
                        interviewer::pageBreak(),

                        function() {
                            if (getResponseIds("FilterTargetB") == "c") {
                                interviewer::question.single(
                                    id = "FilterTargetBC",
                                    label = "Filter target B -> C (asked if the response to the first question was 'response B' and 'response C')",
                                    responses = responses
                                )
                            }
                        }
                    )
                }
            },

            interviewer::question.single(
                id = "NonFilter",
                label = "Not filtered (asked regardless of the response to the first question)",
                responses = responses
            ),

            interviewer::pageBreak(),

            interviewer::question.single(
                id = "Final",
                label = "Final",
                responses = responses
            ),

            goodbye = "Done!",
            exit = function(data) {
                cat("Done:\n")
                print(data)
            }
        )

}