inst/examples/quetzio_custom_txts.R

In StatisMike/shiny.quetzio: Create a questionnaire module in ShinyApp

#### Usage during development  ####
# Get all values for given language
quetzio_txt("en")

# Get specific text
quetzio_txt("en", "submit_done")

#### How to use 'custom_txts' during initialization of quetzio ####
## Only run example in interactive R sessions

if (interactive()) {

  # load libraries
  library(shiny)
  library(shiny.quetzio)

  # create ui
  ui <- fluidPage(Quetzio_UI("my_quetzio"))

  server <- function(input, output, session) {

    # initialize new quetzio
    questionnaire <- Quetzio_create(
      source_method = "raw",
      source_object = quetzio_examples$questions_lists$simple_quetzio,
      module_id = "my_quetzio",
      # specify some custom texts to show up
      custom_txts = list(
        modal_title = "Something is not right!",
        modal_content = "Please correct your answers:",
        submit_enabled = "Do it!",
        submit_disabled = "Can't do!"
      )
    )
  }
  shinyApp(ui, server)
}