## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

data.table::setDTthreads(1)

## ----eval=FALSE---------------------------------------------------------------
#  # Run the interactive shiny app
#  occupationMeasurement::app()

## ----eval=FALSE---------------------------------------------------------------
#  library(occupationMeasurement)
#  
#  app(
#    # Learn more about the workings of the app with the demo questionnaire
#    questionnaire = questionnaire_demo()
#  )