init_filter_states {teal.slice} | R Documentation |
Initialize FilterStates
object
Description
Initialize FilterStates
object
Usage
init_filter_states(
data,
data_reactive = reactive(NULL),
dataname,
datalabel = NULL,
...
)
Arguments
data |
( |
data_reactive |
( |
dataname |
( |
datalabel |
( |
... |
optional, additional arguments for specific classes: keys. |
Value
Object of class FilterStates
.
Examples
# use non-exported function from teal.slice
init_filter_states <- getFromNamespace("init_filter_states", "teal.slice")
df <- data.frame(
character = letters,
numeric = seq_along(letters),
date = seq(Sys.Date(), length.out = length(letters), by = "1 day"),
datetime = seq(Sys.time(), length.out = length(letters), by = "33.33 hours")
)
rf <- init_filter_states(
data = df,
dataname = "DF"
)
library(shiny)
ui <- fluidPage(
actionButton("clear", tags$span(icon("xmark"), "Remove all filters")),
rf$ui_add(id = "add"),
rf$ui_active("states"),
verbatimTextOutput("expr"),
)
server <- function(input, output, session) {
rf$srv_add(id = "add")
rf$srv_active(id = "states")
output$expr <- renderText({
deparse1(rf$get_call(), collapse = "\n")
})
observeEvent(input$clear, rf$clear_filter_states())
}
if (interactive()) {
shinyApp(ui, server)
}
[Package teal.slice version 0.5.1 Index]