0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
shinyWidgets
/
examples
/
bookmarking
/
[
Home
]
File: test-switchInput.R
library("shiny") library("shinyWidgets") ui <- function(request) { fluidPage( tags$h1("shinyWidgets - bookmarking"), textInput(inputId = "txt", label = "Text"), switchInput(inputId = "swh", label = "Switch"), checkboxInput(inputId = "chk", label = "Checkbox"), bookmarkButton() ) } server <- function(input, output, session) { } enableBookmarking("url") shinyApp(ui, server)