445 unify html tags

R/draggable_buckets.R

@@ -66,12 +66,12 @@ draggable_buckets <- function(input_id, label, elements = character(), buckets)
   elements_iterator$it <- 0
 
   shiny::tagList(
-    shiny::singleton(shiny::tags$head(
+    shiny::singleton(tags$head(
       shiny::includeScript(system.file("widgets/draggable_buckets.js", package = "teal.widgets"))
     )),
     include_css_files("draggable_buckets.css"),
     shiny::div(
-      shiny::tags$span(label),
+      tags$span(label),
       render_unbucketed_elements(elements = elements, elements_iterator = elements_iterator, widget_id = input_id),
       render_buckets(buckets = buckets, elements_iterator = elements_iterator, widget_id = input_id),
       class = "draggableBuckets",
@@ -81,7 +81,7 @@ draggable_buckets <- function(input_id, label, elements = character(), buckets)
 }
 
 render_unbucketed_elements <- function(elements, elements_iterator, widget_id) {
-  shiny::tags$div(
+  tags$div(
     lapply(elements, function(element) {
       elements_iterator$it <- elements_iterator$it + 1
       render_draggable_element(
@@ -115,7 +115,7 @@ render_buckets <- function(buckets, elements_iterator, widget_id) {
 }
 
 render_draggable_element <- function(value, id, widget_id) {
-  shiny::tags$div(
+  tags$div(
     value,
     id = id,
     class = "element",
@@ -128,8 +128,8 @@ render_draggable_element <- function(value, id, widget_id) {
 }
 
 render_bucket <- function(name, elements = NULL, elements_iterator = NULL, widget_id = NULL) {
-  shiny::tags$div(
-    shiny::tags$div(
+  tags$div(
+    tags$div(
       paste0(name, ":"),
       class = "bucket-name",
       ondragover = "allowDrop(event)",

R/include_css_js.R

@@ -16,5 +16,5 @@ include_css_files <- function(pattern = "*") {
   if (length(css_files) == 0) {
     return(NULL)
   }
-  return(shiny::singleton(shiny::tags$head(lapply(css_files, shiny::includeCSS))))
+  return(shiny::singleton(tags$head(lapply(css_files, shiny::includeCSS))))
 }

R/nested_closeable_modal.R

@@ -49,7 +49,7 @@
 #'           footer = NULL,
 #'           easyClose = TRUE
 #'         ),
-#'         div(
+#'         tags$div(
 #'           "This modal can be closed by running", tags$code("$('#modal_1').modal('hide')"),
 #'           "in the JS console!",
 #'           "Note that removing the parent will remove the child.

R/optionalInput.R

@@ -53,7 +53,7 @@
 #' }
 #'
 #' ui <- ui_grid(
-#'   div(
+#'   tags$div(
 #'     optionalSelectInput(
 #'       inputId = "c1",
 #'       label = "Fixed choices",
@@ -63,7 +63,7 @@
 #'     ),
 #'     verbatimTextOutput(outputId = "c1_out")
 #'   ),
-#'   div(
+#'   tags$div(
 #'     optionalSelectInput(
 #'       inputId = "c2",
 #'       label = "Single choice",
@@ -72,15 +72,15 @@
 #'     ),
 #'     verbatimTextOutput(outputId = "c2_out")
 #'   ),
-#'   div(
+#'   tags$div(
 #'     optionalSelectInput(
 #'       inputId = "c3",
 #'       label = "NULL choices",
 #'       choices = NULL
 #'     ),
 #'     verbatimTextOutput(outputId = "c3_out")
 #'   ),
-#'   div(
+#'   tags$div(
 #'     optionalSelectInput(
 #'       inputId = "c4",
 #'       label = "Default",
@@ -89,7 +89,7 @@
 #'     ),
 #'     verbatimTextOutput(outputId = "c4_out")
 #'   ),
-#'   div(
+#'   tags$div(
 #'     optionalSelectInput(
 #'       inputId = "c5",
 #'       label = "Named vector",
@@ -98,7 +98,7 @@
 #'     ),
 #'     verbatimTextOutput(outputId = "c5_out")
 #'   ),
-#'   div(
+#'   tags$div(
 #'     selectInput(
 #'       inputId = "c6_choices", label = "Update choices", choices = letters, multiple = TRUE
 #'     ),
@@ -222,7 +222,7 @@ optionalSelectInput <- function(inputId, # nolint
   )
 
   if (!is.null(label_help)) {
-    ui_picker[[3]] <- append(ui_picker[[3]], list(div(class = "label-help", label_help)), after = 1)
+    ui_picker[[3]] <- append(ui_picker[[3]], list(tags$div(class = "label-help", label_help)), after = 1)
   }
 
   ui_fixed <- tags$div(
@@ -243,7 +243,7 @@ optionalSelectInput <- function(inputId, # nolint
     label_help
   )
 
-  div(
+  tags$div(
     include_css_files(pattern = "picker_input"),
 
     # when selected values in ui_picker change
@@ -280,7 +280,7 @@ optionalSelectInput <- function(inputId, # nolint
       )
       tags$script(js)
     },
-    div(ui_picker, ui_fixed)
+    tags$div(ui_picker, ui_fixed)
   )
 }
 
@@ -498,7 +498,7 @@ optionalSliderInput <- function(inputId, label, min, max, value, label_help = NU
   slider <- sliderInput(inputId, label, min, max, value, ...)
 
   if (!is.null(label_help)) {
-    slider[[3]] <- append(slider[[3]], list(div(class = "label-help", label_help)), after = 1)
+    slider[[3]] <- append(slider[[3]], list(tags$div(class = "label-help", label_help)), after = 1)
   }
 
   if (hide) {
@@ -557,7 +557,7 @@ optionalSliderInputValMinMax <- function(inputId, label, value_min_max, label_he
   slider <- optionalSliderInput(inputId, label, vals$min, vals$max, vals$value, ...)
 
   if (!is.null(label_help)) {
-    slider[[3]] <- append(slider[[3]], list(div(class = "label-help", label_help)), after = 1)
+    slider[[3]] <- append(slider[[3]], list(tags$div(class = "label-help", label_help)), after = 1)
   }
   return(slider)
 }

R/panel_group.R

@@ -184,7 +184,7 @@ panel_item <- function(title, ..., collapsed = TRUE, input_id = NULL) {
 
     tagList(
       include_css_files(pattern = "panel.css"),
-      shiny::tags$head(shiny::includeScript(system.file("js/panel_group.js", package = "teal.widgets"))),
+      tags$head(shiny::includeScript(system.file("js/panel_group.js", package = "teal.widgets"))),
       res_tag
     )
   })

R/plot_with_settings.R

@@ -7,8 +7,8 @@ plot_with_settings_ui <- function(id) {
   ns <- NS(id)
 
   tagList(
-    shiny::singleton(shiny::tags$head(
-      shiny::tags$script(
+    shiny::singleton(tags$head(
+      tags$script(
         # nolint start
         sprintf(
           '$(document).on("shiny:connected", function(e) {
@@ -185,10 +185,10 @@ plot_with_settings_ui <- function(id) {
 #'     id = "plot_with_settings"
 #'   ),
 #'   fluidRow(
-#'     column(4, h3("Brush"), verbatimTextOutput("brushing_data")),
-#'     column(4, h3("Click"), verbatimTextOutput("clicking_data")),
-#'     column(4, h3("DblClick"), verbatimTextOutput("dblclicking_data")),
-#'     column(4, h3("Hover"), verbatimTextOutput("hovering_data"))
+#'     column(4, tags$h3("Brush"), verbatimTextOutput("brushing_data")),
+#'     column(4, tags$h3("Click"), verbatimTextOutput("clicking_data")),
+#'     column(4, tags$h3("DblClick"), verbatimTextOutput("dblclicking_data")),
+#'     column(4, tags$h3("Hover"), verbatimTextOutput("hovering_data"))
 #'   )
 #' )
 #'
@@ -331,7 +331,7 @@ plot_with_settings_srv <- function(id,
     })
 
     output$slider_ui <- renderUI({
-      div(
+      tags$div(
         optionalSliderInputValMinMax(
           inputId = ns("height"),
           label = "Plot height",
@@ -411,7 +411,7 @@ plot_with_settings_srv <- function(id,
 
     output$plot_out_main <- renderUI({
       req(plot_suppress(plot_r()))
-      div(
+      tags$div(
         align = graph_align,
         plotOutput(
           ns("plot_main"),
@@ -452,11 +452,11 @@ plot_with_settings_srv <- function(id,
 
     observeEvent(input$expand, {
       showModal(
-        div(
+        tags$div(
           class = "plot-modal",
           modalDialog(
             easyClose = TRUE,
-            div(
+            tags$div(
               class = "plot-modal-sliders",
               optionalSliderInputValMinMax(
                 inputId = ns("height_in_modal"),
@@ -486,11 +486,11 @@ plot_with_settings_srv <- function(id,
                 round = TRUE
               )
             ),
-            div(
+            tags$div(
               class = "float-right",
               type_download_ui(ns("modal_downbutton"))
             ),
-            div(
+            tags$div(
               align = "center",
               uiOutput(ns("plot_out_modal"), class = "plot_out_container")
             )
@@ -551,7 +551,7 @@ type_download_ui <- function(id) {
     right = TRUE,
     label = "",
     inputId = ns("downl"),
-    div(
+    tags$div(
       radioButtons(ns("file_format"),
         label = "File type",
         choices = c("png" = "png", "pdf" = "pdf", "svg" = "svg"),

R/standard_layout.R

@@ -22,8 +22,8 @@
 #' @examples
 #' library(shiny)
 #' standard_layout(
-#'   output = white_small_well(h3("Tests")),
-#'   encoding = div(
+#'   output = white_small_well(tags$h3("Tests")),
+#'   encoding = tags$div(
 #'     tags$label("Encodings", class = "text-primary"),
 #'     panel_item(
 #'       "Tests",
@@ -58,34 +58,34 @@ standard_layout <- function(output,
 
   # if encoding=NULL then forms is placed below output
 
-  tag_output <- div(
+  tag_output <- tags$div(
     class = "well",
-    div(class = "pre-output", pre_output),
-    div(class = "output", output),
-    div(class = "post-output", post_output)
+    tags$div(class = "pre-output", pre_output),
+    tags$div(class = "output", output),
+    tags$div(class = "post-output", post_output)
   )
 
   tag_enc_out <- if (!is.null(encoding)) {
     tagList(
-      div(
+      tags$div(
         class = "col-md-3",
-        div(class = "well", encoding),
+        tags$div(class = "well", encoding),
         if (is.null(forms)) {
           NULL
         } else {
-          div(class = "form-group", forms)
+          tags$div(class = "form-group", forms)
         }
       ),
-      div(class = "col-md-9", tag_output)
+      tags$div(class = "col-md-9", tag_output)
     )
   } else {
-    div(
+    tags$div(
       class = "col-md-12",
       tag_output,
       if (is.null(forms)) {
         NULL
       } else {
-        div(class = "form-group", forms)
+        tags$div(class = "form-group", forms)
       }
     )
   }

R/table_with_settings.R

@@ -107,11 +107,11 @@ table_with_settings_srv <- function(id, table_r, show_hide_signal = reactive(TRU
 
     observeEvent(input$expand, {
       showModal(
-        div(
+        tags$div(
           class = "table-modal",
           modalDialog(
             easyClose = TRUE,
-            div(
+            tags$div(
               class = "float-right",
               type_download_ui_table(ns("modal_downbutton"))
             ),
@@ -137,7 +137,7 @@ type_download_ui_table <- function(id) {
     right = TRUE,
     label = "",
     inputId = ns("dwnl"),
-    div(
+    tags$div(
       class = "modal-download-ui-table-container",
       radioButtons(ns("file_format"),
         label = "File type",
@@ -149,7 +149,7 @@ type_download_ui_table <- function(id) {
       ),
       conditionalPanel(
         condition = paste0("input['", ns("file_format"), "'] != '.csv'"),
-        div(
+        tags$div(
           class = "lock-btn",
           title = "on / off",
           shinyWidgets::prettyToggle(
@@ -166,7 +166,7 @@ type_download_ui_table <- function(id) {
             animation = "pulse"
           )
         ),
-        div(
+        tags$div(
           class = "paginate-ui",
           shinyWidgets::numericInputIcon(
             inputId = ns("lpp"),

R/verbatim_popup.R

@@ -42,7 +42,7 @@ verbatim_popup_ui <- function(id, button_label, type = c("button", "link"), ...)
 
   shiny::tagList(
     shiny::singleton(
-      shiny::tags$head(shiny::includeScript(system.file("js/verbatim_popup.js", package = "teal.widgets")))
+      tags$head(shiny::includeScript(system.file("js/verbatim_popup.js", package = "teal.widgets")))
     ),
     shinyjs::useShinyjs(),
     do.call(ui_function, c(ui_args, list(...)))
@@ -118,7 +118,7 @@ button_click_observer <- function(click_event,
         shiny::modalDialog(
           shiny::tagList(
             include_css_files(pattern = "verbatim_popup"),
-            shiny::tags$div(
+            tags$div(
               class = "mb-4",
               shiny::actionButton(
                 paste0(copy_button_id, 1),
@@ -127,7 +127,7 @@ button_click_observer <- function(click_event,
               ),
               shiny::modalButton("Dismiss")
             ),
-            shiny::tags$pre(id = copied_area_id, modal_content()),
+            tags$pre(id = copied_area_id, modal_content()),
           ),
           title = modal_title,
           footer = shiny::tagList(