{shinysurveys} provides easy-to-use, minimalistic code for creating and deploying surveys in Shiny. Originally inspired by Dean Attali's shinyforms, our package provides a framework for robust surveys, similar to Google Forms, in R with Shiny.
You can install the development version of shinysurveys on from Github as follows:
# Install/update shinysurveys with the development version from GitHub.
# If devtools is not installed, uncomment the line below.
# install.packages("devtools")
devtools::install_github("jdtrat/shinysurveys")
# Load package
library(shinysurveys)
A survey made with our package might look like this:
You can run a demo survey with the function shinysurveys::demo_survey().
Aside from demo_survey(), {shinysurveys} exports two functions: surveyOutput() and renderSurvey(). The former goes in the UI portion of a Shiny app, and the latter goes in the server portion. To create a survey, you can build a data frame with your questions. The following columns are required.
- question: The question to be asked.
- option: A possible response to the question. In multiple choice questions, for example, this would be the possible answers. For questions without discrete answers, such as a numeric input, this would be the default option shown on the input.
- input_type: What type of response is expected? Currently supported types include
numeric,mcfor multiple choice,text,select, andy/nfor yes/no questions. - input_id: The id for Shiny inputs.
- dependence: Does this question (row) depend on another? That is, should it only appear if a different question has a specific value? This column contains the input_id of whatever question this one depends upon.
- dependence_value: This column contains the specific value that the dependence question must take for this question (row) to be shown.
- required: logical TRUE/FALSE signifying if a question is required. Surveys can only be submitted when all required questions are answered.
Our demo survey can be created as follows:
library(shiny)
library(shinysurveys)
df <- data.frame(question = "What is your favorite food?",
option = "Your Answer",
input_type = "text",
input_id = "preferred_name",
dependence = NA,
dependence_value = NA,
required = F)
ui <- fluidPage(
surveyOutput(df = df,
survey_title = "Hello, World!",
survey_description = "Welcome! This is a demo survey showing off the {shinysurveys} package.")
)
server <- function(input, output, session) {
renderSurvey(df = df)
observeEvent(input$submit, {
showModal(modalDialog(
title = "Congrats, you completed your first shinysurvey!",
"You can customize what actions happen when a user finishes a survey using input$submit."
))
})
}
shinyApp(ui, server)
-
Dependencies can be added so a specific question will appear based on a participant's answer to preceding questions. The
dependencecolumn takes an input_id of a preceding question and, if the participant answers with the value independence_value, the new question will be shown. -
Required questions can be specified by adding the value
TRUEto therequiredcolumn. If a required question is not answered, the user will not be able to submit their responses. -
URL-based user tracking functionality lets you keep track of participants easily and systematically. If you deploy your survey on shinyapps.io, or run it locally in a browser, you can add a URL parameter after the backslash as follows:
?user_id=UNIQUE_ID. A live demo can be found here: https://jdtrat-apps.shinyapps.io/shinysurveys_user_tracking/?user_id=hadley
For a more in-depth explanation of {shinysurveys}, please see the vignette A survey of {shinysurveys}.
If you want to see a feature, or report a bug, please file an issue or open a pull-request! As this package is just getting off the ground, we welcome all feedback and contributions. See our contribution guidelines for more details on getting involved!
Please note that the shinysurveys project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.