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

## ----eval=FALSE---------------------------------------------------------------
#  library(shiny)
#  library(IDEAFilter)
#  library(dplyr)
#  shinyApp(
#    ui = fluidPage(
#      titlePanel("Filter Data Example"),
#      fluidRow(
#        column(8, dataTableOutput("data_summary")),
#        column(4, IDEAFilter_ui("data_filter")))),
#    server = function(input, output, session) {
#      filtered_data <- IDEAFilter("data_filter", data = iris, verbose = FALSE)
#      output$data_summary <-
#        renderDataTable(filtered_data(),
#      options = list(scrollX = TRUE, pageLength = 5))
#    }
#  )

## ----eval=FALSE---------------------------------------------------------------
#  library(shiny)
#  library(IDEAFilter)
#  app <- system.file("examples", "starwars_app", package = "IDEAFilter")
#  runApp(app)

## ----eval=FALSE---------------------------------------------------------------
#  list(
#    is_droid = list(filter_na = TRUE, filter_fn = ~ isTRUE(.x)),
#    mass = list(filter_fn = ~ .x < 50))
#  )