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

## -----------------------------------------------------------------------------
# parent_session <- .subset2(session, "parent")
# 
# updateSelectInput(
#   session = parent_session,
#   inputId = "data_toydata",
#   selected = "CZmaturaS_ShinyItemAnalysis"
# )