revert pkg:: from examples

insightsengineering · Mar 5, 2024 · d309301 · d309301
1 parent a4b36dd
commit d309301
Show file tree

Hide file tree

Showing 20 changed files with 240 additions and 240 deletions.
diff --git a/R/FilterStateChoices.R b/R/FilterStateChoices.R
@@ -46,25 +46,25 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("ChoicesFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("ChoicesFilterState"),
 #'     fs$ui("fs")
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_choices"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_choices"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_choices"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_choices"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_choices"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_choices"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_choices", "set drop NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_choices", "set keep NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_choices", "set selection: a, b", width = "100%"), shiny::tags$br(),
-#'     actionButton("button4_choices", "deselect all", width = "100%"), shiny::tags$br(),
-#'     actionButton("button0_choices", "set initial state", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_choices", "set drop NA", width = "100%"), tags$br(),
+#'     actionButton("button2_choices", "set keep NA", width = "100%"), tags$br(),
+#'     actionButton("button3_choices", "set selection: a, b", width = "100%"), tags$br(),
+#'     actionButton("button4_choices", "deselect all", width = "100%"), tags$br(),
+#'     actionButton("button0_choices", "set initial state", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStateDate.R b/R/FilterStateDate.R
@@ -47,26 +47,26 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("DateFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("DateFilterState"),
 #'     fs$ui("fs")
 #'   )),
-#'   column(4, shiny::tags$div(
+#'   column(4, tags$div(
 #'     id = "outputs", # div id is needed for toggling the element
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_date"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_date"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_date"), shiny::tags$br()
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_date"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_date"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_date"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_date", "set drop NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_date", "set keep NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_date", "set a range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button4_date", "set full range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button0_date", "set initial state", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_date", "set drop NA", width = "100%"), tags$br(),
+#'     actionButton("button2_date", "set keep NA", width = "100%"), tags$br(),
+#'     actionButton("button3_date", "set a range", width = "100%"), tags$br(),
+#'     actionButton("button4_date", "set full range", width = "100%"), tags$br(),
+#'     actionButton("button0_date", "set initial state", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStateDatettime.R b/R/FilterStateDatettime.R
@@ -47,26 +47,26 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("DatetimeFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("DatetimeFilterState"),
 #'     fs$ui("fs")
 #'   )),
-#'   column(4, shiny::tags$div(
+#'   column(4, tags$div(
 #'     id = "outputs", # div id is needed for toggling the element
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_datetime"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_datetime"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_datetime"), shiny::tags$br()
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_datetime"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_datetime"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_datetime"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_datetime", "set drop NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_datetime", "set keep NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_datetime", "set a range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button4_datetime", "set full range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button0_datetime", "set initial state", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_datetime", "set drop NA", width = "100%"), tags$br(),
+#'     actionButton("button2_datetime", "set keep NA", width = "100%"), tags$br(),
+#'     actionButton("button3_datetime", "set a range", width = "100%"), tags$br(),
+#'     actionButton("button4_datetime", "set full range", width = "100%"), tags$br(),
+#'     actionButton("button0_datetime", "set initial state", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStateExpr.R b/R/FilterStateExpr.R
@@ -36,17 +36,17 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("ChoicesFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("ChoicesFilterState"),
 #'     filter_state$ui("fs")
 #'   )),
-#'   column(8, shiny::tags$div(
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_choices"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_choices"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_choices"), shiny::tags$br()
+#'   column(8, tags$div(
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_choices"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_choices"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_choices"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStateLogical.R b/R/FilterStateLogical.R
@@ -38,25 +38,25 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("LogicalFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("LogicalFilterState"),
 #'     fs$ui("fs")
 #'   )),
-#'   column(4, shiny::tags$div(
+#'   column(4, tags$div(
 #'     id = "outputs", # div id is needed for toggling the element
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_logical"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_logical"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_logical"), shiny::tags$br()
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_logical"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_logical"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_logical"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_logical", "set drop NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_logical", "set keep NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_logical", "set a selection", width = "100%"), shiny::tags$br(),
-#'     actionButton("button0_logical", "set initial state", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_logical", "set drop NA", width = "100%"), tags$br(),
+#'     actionButton("button2_logical", "set keep NA", width = "100%"), tags$br(),
+#'     actionButton("button3_logical", "set a selection", width = "100%"), tags$br(),
+#'     actionButton("button0_logical", "set initial state", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStateRange.R b/R/FilterStateRange.R
@@ -50,28 +50,28 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("RangeFilterState"),
+#'   column(4, tags$div(
+#'     tags$h4("RangeFilterState"),
 #'     fs$ui("fs")
 #'   )),
-#'   column(4, shiny::tags$div(
+#'   column(4, tags$div(
 #'     id = "outputs", # div id is needed for toggling the element
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
-#'     textOutput("condition_range"), shiny::tags$br(),
-#'     shiny::tags$h4("Unformatted state"), # display raw filter state
-#'     textOutput("unformatted_range"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_range"), shiny::tags$br()
+#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState
+#'     textOutput("condition_range"), tags$br(),
+#'     tags$h4("Unformatted state"), # display raw filter state
+#'     textOutput("unformatted_range"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_range"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_range", "set drop NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_range", "set keep NA", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_range", "set drop Inf", width = "100%"), shiny::tags$br(),
-#'     actionButton("button4_range", "set keep Inf", width = "100%"), shiny::tags$br(),
-#'     actionButton("button5_range", "set a range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button6_range", "set full range", width = "100%"), shiny::tags$br(),
-#'     actionButton("button0_range", "set initial state", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_range", "set drop NA", width = "100%"), tags$br(),
+#'     actionButton("button2_range", "set keep NA", width = "100%"), tags$br(),
+#'     actionButton("button3_range", "set drop Inf", width = "100%"), tags$br(),
+#'     actionButton("button4_range", "set keep Inf", width = "100%"), tags$br(),
+#'     actionButton("button5_range", "set a range", width = "100%"), tags$br(),
+#'     actionButton("button6_range", "set full range", width = "100%"), tags$br(),
+#'     actionButton("button0_range", "set initial state", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilterStates-utils.R b/R/FilterStates-utils.R
@@ -35,7 +35,7 @@
 #'
 #' library(shiny)
 #' ui <- fluidPage(
-#'   actionButton("clear", shiny::tags$span(icon("xmark"), "Remove all filters")),
+#'   actionButton("clear", tags$span(icon("xmark"), "Remove all filters")),
 #'   rf$ui_add(id = "add"),
 #'   rf$ui_active("states"),
 #'   verbatimTextOutput("expr"),

diff --git a/R/FilterStatesDF.R b/R/FilterStatesDF.R
@@ -46,35 +46,35 @@
 #'   useShinyjs(),
 #'   include_css_files(pattern = "filter-panel"),
 #'   include_js_files(pattern = "count-bar-labels"),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Active filters"),
+#'   column(4, tags$div(
+#'     tags$h4("Active filters"),
 #'     filter_states_df$ui_active("fsdf")
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Manual filter control"),
-#'     filter_states_df$ui_add("add_filters"), shiny::tags$br(),
-#'     shiny::tags$h4("Condition (i.e. call)"), # display the subset expression generated by this FilterStates
-#'     textOutput("call_df"), shiny::tags$br(),
-#'     shiny::tags$h4("Formatted state"), # display human readable filter state
-#'     textOutput("formatted_df"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Manual filter control"),
+#'     filter_states_df$ui_add("add_filters"), tags$br(),
+#'     tags$h4("Condition (i.e. call)"), # display the subset expression generated by this FilterStates
+#'     textOutput("call_df"), tags$br(),
+#'     tags$h4("Formatted state"), # display human readable filter state
+#'     textOutput("formatted_df"), tags$br()
 #'   )),
-#'   column(4, shiny::tags$div(
-#'     shiny::tags$h4("Programmatic filter control"),
-#'     actionButton("button1_df", "set NUM1 < 30", width = "100%"), shiny::tags$br(),
-#'     actionButton("button2_df", "set NUM2 %in% c(20, 21)", width = "100%"), shiny::tags$br(),
-#'     actionButton("button3_df", "set CHAR1 %in% c(\"B\", \"C\", \"D\")", width = "100%"), shiny::tags$br(),
-#'     actionButton("button4_df", "set CHAR2 == \"F\"", width = "100%"), shiny::tags$br(),
-#'     actionButton("button5_df", "set DATE <= 2020-02-02", width = "100%"), shiny::tags$br(),
-#'     actionButton("button6_df", "set DATETIME <= 2020-02-02", width = "100%"), shiny::tags$br(),
-#'     shiny::tags$hr(),
-#'     actionButton("button7_df", "remove NUM1", width = "100%"), shiny::tags$br(),
-#'     actionButton("button8_df", "remove NUM2", width = "100%"), shiny::tags$br(),
-#'     actionButton("button9_df", "remove CHAR1", width = "100%"), shiny::tags$br(),
-#'     actionButton("button10_df", "remove CHAR2", width = "100%"), shiny::tags$br(),
-#'     actionButton("button11_df", "remove DATE", width = "100%"), shiny::tags$br(),
-#'     actionButton("button12_df", "remove DATETIME", width = "100%"), shiny::tags$br(),
-#'     shiny::tags$hr(),
-#'     actionButton("button0_df", "clear all filters", width = "100%"), shiny::tags$br()
+#'   column(4, tags$div(
+#'     tags$h4("Programmatic filter control"),
+#'     actionButton("button1_df", "set NUM1 < 30", width = "100%"), tags$br(),
+#'     actionButton("button2_df", "set NUM2 %in% c(20, 21)", width = "100%"), tags$br(),
+#'     actionButton("button3_df", "set CHAR1 %in% c(\"B\", \"C\", \"D\")", width = "100%"), tags$br(),
+#'     actionButton("button4_df", "set CHAR2 == \"F\"", width = "100%"), tags$br(),
+#'     actionButton("button5_df", "set DATE <= 2020-02-02", width = "100%"), tags$br(),
+#'     actionButton("button6_df", "set DATETIME <= 2020-02-02", width = "100%"), tags$br(),
+#'     tags$hr(),
+#'     actionButton("button7_df", "remove NUM1", width = "100%"), tags$br(),
+#'     actionButton("button8_df", "remove NUM2", width = "100%"), tags$br(),
+#'     actionButton("button9_df", "remove CHAR1", width = "100%"), tags$br(),
+#'     actionButton("button10_df", "remove CHAR2", width = "100%"), tags$br(),
+#'     actionButton("button11_df", "remove DATE", width = "100%"), tags$br(),
+#'     actionButton("button12_df", "remove DATETIME", width = "100%"), tags$br(),
+#'     tags$hr(),
+#'     actionButton("button0_df", "clear all filters", width = "100%"), tags$br()
 #'   ))
 #' )
 #'

diff --git a/R/FilteredData-utils.R b/R/FilteredData-utils.R
@@ -95,8 +95,8 @@ eval_expr_with_msg <- function(expr, env) {
 #'   actionButton("hide_content", label = "hide", icon = icon("xmark")),
 #'   actionButton("show_content", label = "show", icon = icon("check")),
 #'   actionButton("toggle_content", label = "toggle", icon = icon("angle-down")),
-#'   shiny::tags$br(),
-#'   shiny::tags$div(
+#'   tags$br(),
+#'   tags$div(
 #'     id = "content",
 #'     verbatimTextOutput("printout")
 #'   )

diff --git a/R/count_labels.R b/R/count_labels.R
@@ -39,7 +39,7 @@
 #' )
 #'
 #' ui <- fluidPage(
-#'   shiny::tags$div(
+#'   tags$div(
 #'     class = "choices_state",
 #'     include_js_files("count-bar-labels.js"),
 #'     include_css_files(pattern = "filter-panel"),

diff --git a/man/ChoicesFilterState.Rd b/man/ChoicesFilterState.Rd