rm(list = ls()) runWithoutInstall <- T ifelse(runWithoutInstall, sapply(list.files(path = "../R/", pattern="*R", full.names = T), source), library(shinypipe))
This vignette shows different usages of creating widgets through ui.params module. See source for the call to ui.params that creates these widgets. For practical applications of ui.params, check out the basic.Rmd vignette.
dates <- as.Date("2017-01-05") + (0:5)*3 ui.params("params", unbounded.num = list(1), num.with.lower.bound.0 = list(2, c(0)), num.with.upper.bound.6 = list(3, c(NA,6)), bounded.num = list(3, c(0,10)), bounded.num.with.steps = list(4, c(0,10), step = 2), num.range = list(c(4,6), c(0,10), step = 2), overidden.label = list(2, NA, label = "Num with overidden label", width = '100%'), date = list(dates[3]), unbounded.date.range = list(range(dates)), bounded.date = list(dates[3], range(dates), step = 2), bounded.date.range = list(dates[2:3], range(dates), step = 2), text = list("", NA, placeholder = "name"), text.from.options = list("negative", c("positive", "negative")), multiple.selection = list("", c("a", "b", "c", "d", "e"), multiple = T), feature = list(F, label="Turn feature ON"), # Also illustrates overridding the label custom.widget = list(selectizeInput, multiple = T, choices = c(2,3,5,7)) )
params <- callModule(s.params, "params") renderPrint(params())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.