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

## ----hide-columns-------------------------------------------------------------
# filtered <- dataFilterServer("filter", reactive(example_bar),
#     hide.columns = c("internal_id", "batch")
# )

## ----hide-columns-toggle------------------------------------------------------
# filtered <- dataFilterServer("filter", reactive(example_bar),
#     hide.columns = c("internal_id", "batch"),
#     col.visibility = TRUE
# )

## ----resolve-helper-----------------------------------------------------------
# DT::datatable(
#     example_bar,
#     rownames = FALSE,
#     options = list(
#         columnDefs = list(list(
#             visible = FALSE,
#             targets = resolve_column_targets(example_bar, c("internal_id", "batch"))
#         ))
#     )
# )

## ----minimal------------------------------------------------------------------
# library(shiny)
# library(VizModules)
# 
# ui <- fluidPage(
#     plotthis_BarPlotOutputUI("bar"),
#     dataFilterUI("filter"),
#     plotthis_BarPlotInputsUI("bar", example_bar)
# )
# 
# server <- function(input, output, session) {
#     # Returns a reactive of only the currently-visible rows.
#     filtered <- dataFilterServer("filter", reactive(example_bar))
# 
#     # The plot tracks the filter automatically.
#     plotthis_BarPlotServer("bar", data = filtered)
# }
# 
# if (interactive()) shinyApp(ui, server)

## ----multi--------------------------------------------------------------------
# library(shiny)
# library(shinyjs)
# library(VizModules)
# 
# ui <- fluidPage(
#     useShinyjs(),
#     fluidRow(
#         column(6, plotthis_BarPlotOutputUI("bar")),
#         column(6, plotthis_BoxPlotOutputUI("box"))
#     ),
#     dataFilterUI("filter"),
#     fluidRow(
#         column(6, plotthis_BarPlotInputsUI("bar", example_bar)),
#         column(6, plotthis_BoxPlotInputsUI("box", example_bar))
#     )
# )
# 
# server <- function(input, output, session) {
#     # One filtered reactive, shared by both modules.
#     filtered <- dataFilterServer("filter", reactive(example_bar))
# 
#     plotthis_BarPlotServer("bar", data = filtered)
#     plotthis_BoxPlotServer("box", data = filtered)
# }
# 
# if (interactive()) shinyApp(ui, server)

## ----run-example--------------------------------------------------------------
# shiny::runApp(
#     system.file("examples", "linked-filter", package = "VizModules")
# )