better select input styling

RinteRface · Jun 23, 2024 · 94956f9 · 94956f9
1 parent bcb56a3
commit 94956f9
Show file tree

Hide file tree

Showing 19 changed files with 128 additions and 109 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -14,11 +14,11 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1.9000
+RoxygenNote: 7.3.1
 URL: https://github.com/RinteRface/shiny386
 BugReports: https://github.com/RinteRface/shiny386/issues
 Imports: 
-    htmltools,
+    htmltools (>= 0.5.2),
     shiny,
     magrittr,
     httpuv
diff --git a/R/inputs.R b/R/inputs.R
@@ -604,6 +604,10 @@ update_checkbox_group_input_386 <- function (session, inputId, label = NULL, cho
 
 
 #' Create a Bootstrap 386 select input
+#'
+#' @note Incompatible with selectize. Set to FALSE
+#' by default to have correct CSS rendering.
+#'
 #' @inheritParams shiny::selectInput
 #' @export
 #' @examples
@@ -627,7 +631,25 @@ update_checkbox_group_input_386 <- function (session, inputId, label = NULL, cho
 #'  shinyApp(ui, server)
 #'
 #' }
-select_input_386 <- shiny::selectInput
+select_input_386 <- function(
+    inputId, label, choices, selected = NULL, multiple = FALSE,
+    selectize = FALSE, width = NULL, size = NULL
+) {
+  args <- as.list(match.call())[-1]
+  defaults <- formals(sys.function())
+  defaults <- defaults[!(names(defaults) %in% names(args))]
+
+  htmltools::tagQuery(
+    do.call(
+      shiny::selectInput,
+      dropNulls(c(args, defaults))
+    )
+  )$
+    find("select")$
+    addClass("custom-select")$
+    removeClass("form-control")$
+    allTags()
+}
 
 
 

diff --git a/R/shiny386-package.R b/R/shiny386-package.R
@@ -5,5 +5,4 @@
 #' @name shiny386
 #' @import htmltools
 #' @import shiny
-#' @docType package
-NULL
+"_PACKAGE"
diff --git a/man/checkbox_group_input_386.Rd b/man/checkbox_group_input_386.Rd
diff --git a/man/modal.Rd b/man/modal.Rd
diff --git a/man/navbar.Rd b/man/navbar.Rd
diff --git a/man/radio_input_386.Rd b/man/radio_input_386.Rd
diff --git a/man/select_input_386.Rd b/man/select_input_386.Rd
diff --git a/man/shiny386.Rd b/man/shiny386.Rd
diff --git a/man/tab_panel_386.Rd b/man/tab_panel_386.Rd
diff --git a/man/tabset_panel_386.Rd b/man/tabset_panel_386.Rd
diff --git a/man/update_checkbox_group_input_386.Rd b/man/update_checkbox_group_input_386.Rd
diff --git a/man/update_checkbox_input_386.Rd b/man/update_checkbox_input_386.Rd
diff --git a/man/update_radio_input_386.Rd b/man/update_radio_input_386.Rd
diff --git a/man/update_select_input_386.Rd b/man/update_select_input_386.Rd