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

## ----eval=FALSE---------------------------------------------------------------
# # From CRAN
# install.packages("shinyDTC")
# # From GitHub
# devtools::install_github("sigbertklinke/shinyDTC")

## ----eval=FALSE---------------------------------------------------------------
# ui <- fluidPage(
#   timerInput("my_timer", label = "Timer Controller", max = 100)
# )
# 
# server <- function(input, output, session) {
#   # Timer logic can be added here
# }
# 
# shinyApp(ui, server)

## ----eval=FALSE---------------------------------------------------------------
# observeEvent(input$some_event, {
#   updateTimerInput(session, "my_timer", value = 50)
# })

## ----eval=FALSE---------------------------------------------------------------
# # Trigger the step button
# stepTimer("my_timer")
# # Reset the timer
# resetTimer("my_timer")

## ----eval=FALSE---------------------------------------------------------------
# # A minimal example
# runAppx()

## ----eval=FALSE---------------------------------------------------------------
# # Launch the "mini" application with additional data
# data <- data.frame(a = 1:10, b = 11:20)
# runAppx(example = "mini", x = data)  # runAppx("mini", data) would be OK too

## ----eval=FALSE---------------------------------------------------------------
# runAppx()

## ----eval=FALSE---------------------------------------------------------------
# runAppx("kmeans", faithful)  # Default data set