mod_filterExample | R Documentation |
xxxxx
mod_filterExample_ui(id)
mod_filterExample_server(id, objBefore, objAfter, query)
id |
A |
objBefore |
An instance of the class |
objAfter |
xxx |
query |
A |
NA
if (interactive()) {
data(ft_na, package='DaparToolshed')
ui <- mod_filterExample_ui("example")
server <- function(input, output, session) {
mod_filterExample_server(
id = "example",
objBefore = reactive({ft_na[[1]]}),
objAfter = reactive({ft_na[[1]][-c(2, 6)]}),
query = reactive({"query"})
)
}
shinyApp(ui = ui, server = server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.