deprecate functions

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: shinyWidgets
 Title: Custom Inputs Widgets for Shiny
-Version: 0.7.6.9300
+Version: 0.7.6.9400
 Authors@R: c(
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre", "cph")),
   person("Fanny", "Meyer", role = "aut"),
@@ -32,14 +32,9 @@ Imports:
     grDevices,
     rlang
 Suggests: 
-    shinydashboard,
     testthat,
     covr,
-    shinydashboardPlus (>= 2.0.0),
-    bs4Dash,
-    argonR,
-    argonDash,
-    tablerDash,
     ggplot2,
     DT,
-    scales
+    scales,
+    shinydashboard

NEWS.md

@@ -1,4 +1,4 @@
-shinyWidgets 0.7.7
+shinyWidgets 0.8.0
 ======================
 
 * `airDatepickerInput()` : added argument `disabledDaysOfWeek` to disable day(s) of the week.
@@ -9,6 +9,12 @@ shinyWidgets 0.7.7
 * `verticalTabsetPanel()` does not render output content when using Bootstrap 5 [#570](https://github.com/dreamRs/shinyWidgets/issues/570).
 
 
+### Deprecated functions
+
+* `useShinydashboard()`, `useShinydashboardPlus()`, `useTablerDash()`, `useArgonDash()`, `useBs4Dash()`, `setShadow()`, `setSliderColor()` are deprecated and will be removed in a future release.
+* `selectizeGroupUI/selectizeGroupServer` module is deprecated, use equivalent [Select Group Input Module](https://dreamrs.github.io/datamods/reference/select-group.html) in package [datamods](https://github.com/dreamRs/datamods/)
+
+
 
 shinyWidgets 0.7.6
 ======================

R/deprecated.R

@@ -0,0 +1,114 @@
+
+#' Deprecated function
+#'
+#' Those functions are deprecated and will be removed in a futur release of shinyWidgets
+#'
+#' @name deprecated
+#'
+NULL
+
+
+#'
+#' @export
+#' @rdname deprecated
+#'
+useShinydashboard <- function() {
+  .Deprecated(
+    msg = paste(
+      "useShinydashboard has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you want to create value box in shiny, see package bslib.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/useShinydashboard.R"
+    )
+  )
+}
+
+
+#' @export
+#' @rdname deprecated
+#'
+useShinydashboardPlus <- function() {
+  .Deprecated(
+    msg = paste(
+      "useShinydashboardPlus has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you want to create value box in shiny, see package bslib.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/useShinydashboardPlus.R"
+    )
+  )
+}
+
+
+#'
+#' @export
+#' @rdname deprecated
+#'
+useTablerDash <- function() {
+  .Deprecated(
+    msg = paste(
+      "useTablerDash has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/useTablerDash.R"
+    )
+  )
+}
+
+#'
+#' @export
+#' @rdname deprecated
+#'
+useArgonDash <- function() {
+  .Deprecated(
+    msg = paste(
+      "useArgonDash has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/useArgonDash.R"
+    )
+  )
+}
+
+#' @param ... Deprecated arguments
+#'
+#' @export
+#' @rdname deprecated
+#'
+useBs4Dash <- function(...) {
+  .Deprecated(
+    msg = paste(
+      "useBs4Dash has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/useBs4Dash.R"
+    )
+  )
+}
+
+#' @param id,class Deprecated arguments
+#'
+#' @export
+#' @rdname deprecated
+#'
+setShadow <- function(id = NULL, class = NULL) {
+  .Deprecated(
+    msg = paste(
+      "setShadow has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/setShadow.R"
+    )
+  )
+}
+
+
+#' @param color,sliderId Deprecated arguments
+#'
+#' @export
+#' @rdname deprecated
+#'
+setSliderColor <- function(color, sliderId) {
+  .Deprecated(
+    msg = paste(
+      "setSliderColor has been deprecated and will be removed in a future release of shinyWidgets.",
+      "If you absolutely need to use this function, copy the source code into your project",
+      "https://github.com/dreamRs/shinyWidgets/blob/26838f9e9ccdc90a47178b45318d110f5812d6e1/R/setSliderColor.R"
+    )
+  )
+}

R/module-selectizeGroup.R

@@ -24,6 +24,14 @@
 #' @example examples/selectizeGroup-subset.R
 selectizeGroupUI <- function(id, params, label = NULL, btn_label = "Reset filters", inline = TRUE) {
 
+  .Deprecated(
+    msg = paste(
+      "selectizeGroupUI/selectizeGroupServer have been deprecated and will be removed in a future release of shinyWidgets.",
+      "For a replacement see module select_group_ui / select_group_server in package datamods: ",
+      "https://dreamrs.github.io/datamods/reference/select-group.html"
+    )
+  )
+
   # Namespace
   ns <- NS(id)