if (interactive()) {
library(surveydown)
# Basic sd_ui() usage in app.R:
# library(surveydown)
#
# ui <- sd_ui()
#
# server <- function(input, output, session) {
# sd_server()
# }
#
# shiny::shinyApp(ui = ui, server = server)
# Find a working directory and start from a template:
sd_create_survey(template = "default")
# This creates survey.qmd and app.R - launch the survey using app.R
}
Run the code above in your browser using DataLab