use packer for buttons group bindings

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: shinyWidgets
 Title: Custom Inputs Widgets for Shiny
-Version: 0.7.6.9910
+Version: 0.7.6.9920
 Authors@R: c(
   person("Victor", "Perrier", email = "[email protected]", role = c("aut", "cre", "cph")),
   person("Fanny", "Meyer", role = "aut"),

R/dependencies.R

@@ -505,3 +505,14 @@ html_dependency_pickr <- function() {
     script = "colorpickr.js"
   )
 }
+
+
+
+html_dependency_buttons_group <- function() {
+  htmlDependency(
+    name = "sw-buttons-group",
+    version = packageVersion("shinyWidgets"),
+    src = c(file = system.file("packer", package = "shinyWidgets")),
+    script = "buttons-group.js"
+  )
+}

R/input-checkboxgroupbuttons.R

@@ -49,7 +49,7 @@ checkboxGroupButtons <- function(inputId,
   if (size != "normal") {
     divClass <- paste0(divClass, " btn-group-", size)
   }
-  checkboxGroupButtonsTag <- tags$div(
+  tags$div(
     class = "form-group shiny-input-container shiny-input-checkboxgroup shiny-input-container-inline",
     style = css(width = validateCssUnit(width)),
     label_input(inputId, label),
@@ -81,9 +81,9 @@ checkboxGroupButtons <- function(inputId,
           )
         })
       )
-    )
+    ),
+    html_dependency_buttons_group()
   )
-  attachShinyWidgetsDep(checkboxGroupButtonsTag)
 }
 
 

R/input-radiogroupbuttons.R

@@ -64,7 +64,7 @@ radioGroupButtons <- function(inputId,
     divClass <- paste0(divClass, " btn-group-", size)
   }
 
-  TAG <- tags$div(
+  tags$div(
     class = "form-group shiny-input-container shiny-input-radiogroup shiny-input-container-inline",
     style = css(width = validateCssUnit(width)),
     label_input(inputId, label),
@@ -96,9 +96,9 @@ radioGroupButtons <- function(inputId,
           )
         })
       )
-    )
+    ),
+    html_dependency_buttons_group()
   )
-  attachShinyWidgetsDep(TAG)
 }
 
 #' @importFrom bslib is_bs_theme theme_version
@@ -133,8 +133,8 @@ markup_buttons_radio_bs3 <- function(inputId, choices, selected, status, size, c
         tags$button(
           class = paste0("btn radiobtn btn-", statusElement),
           class = if (value %in% selected) "active",
-          if (displayIcon) tags$span(class="radio-btn-icon-yes", checkIcon$yes),
-          if (displayIcon) tags$span(class="radio-btn-icon-no", checkIcon$no),
+          if (displayIcon) tags$span(class = "radio-btn-icon-yes", checkIcon$yes),
+          if (displayIcon) tags$span(class = "radio-btn-icon-no", checkIcon$no),
           disabled = if (isTRUE(disabled)) "disabled",
           class = if (isTRUE(disabled)) "disabled",
           tags$input(