chore: remove ggthemes to avoid archiving

mcanouil · Nov 14, 2023 · 234a4b3 · 234a4b3
1 parent fcb6ad0
commit 234a4b3
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: insane
 Title: INsulin Secretion ANalysEr
-Version: 1.0.2
+Version: 1.0.3
 Authors@R: 
     person(given = "Mickaël",
            family = "Canouil",
@@ -30,7 +30,6 @@ Imports:
     DT (>= 0.13),
     ggplot2 (>= 3.3.2),
     ggpubr (>= 0.3.0),
-    ggthemes (>= 4.2.0),
     glue (>= 1.4.1),
     patchwork (>= 1.0.1),
     purrr (>= 0.3.4),

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,10 @@
+# insane 1.0.3
+
+## Chores
+
+- In `DESCRIPTION`, `inst/app/app.R`, and `R/go_insane.R`,
+  - chore: remove `ggthemes` to avoid archiving.
+
 # insane 1.0.2
 
 ## Chores
@@ -32,8 +39,8 @@
 
 ## New features
 
-* New Shiny app in `inst/app/`.
-* New `deploy()` (`R/deploy.R`) function to easily deploy (copy) the shiny app to a specified directory.
-* New `go_insane()` (`R/go_insane.R`) function to easily run (`shiny::runApp()`) the shiny app.
-* New vignette `insane` describing the Shiny app.
-* New vignette `protocol`, describing the experimental protocol on which the Shiny app is built on.
+- New Shiny app in `inst/app/`.
+- New `deploy()` (`R/deploy.R`) function to easily deploy (copy) the shiny app to a specified directory.
+- New `go_insane()` (`R/go_insane.R`) function to easily run (`shiny::runApp()`) the shiny app.
+- New vignette `insane` describing the Shiny app.
+- New vignette `protocol`, describing the experimental protocol on which the Shiny app is built on.
diff --git a/R/go_insane.R b/R/go_insane.R
@@ -13,7 +13,6 @@
 #' @importFrom DT dataTableOutput renderDataTable
 #' @import ggplot2
 #' @import ggpubr
-#' @import ggthemes
 #' @importFrom patchwork plot_annotation wrap_plots
 #' @importFrom glue glue glue_collapse
 #' @importFrom purrr set_names pmap map map2 map2_dbl map2_chr map2_df

diff --git a/inst/app/app.R b/inst/app/app.R
@@ -7,7 +7,6 @@ suppressPackageStartupMessages({
     library("DT")
     library("ggplot2")
     library("ggpubr")
-    library("ggthemes")
     library("glue")
     library("purrr")
     library("readxl")
@@ -23,8 +22,7 @@ percent <- function(x) paste(round(x * 100, digits = 0), " %")
 
 ggplot2_themes <- c(
   paste0("ggplot2::", grep("^theme_", ls("package:ggplot2"), value = TRUE), "()"),
-  paste0("ggpubr::", grep("^theme_", ls("package:ggpubr"), value = TRUE), "()"),
-  paste0("ggthemes::", grep("^theme_", ls("package:ggthemes"), value = TRUE), "()")
+  paste0("ggpubr::", grep("^theme_", ls("package:ggpubr"), value = TRUE), "()")
 ) %>% 
   setdiff(paste0("ggplot2::theme_", c("get", "set", "replace", "update"), "()")) %>% 
   setdiff(paste0("ggpubr::theme_", c("cleveland"), "()")) %>%