Merge pull request #215 from grantmcdermott/master

Drop ggpubr dependency

DESCRIPTION

@@ -14,7 +14,6 @@ Imports:
     Matrix,
     pbapply,
     ggplot2,
-    ggpubr,
     DRDID (>= 1.1.0),
     generics,
     methods,
@@ -30,4 +29,5 @@ Suggests:
     plm,
     here,
     knitr,
-    covr
+    covr,
+    backports

NAMESPACE

@@ -39,7 +39,6 @@ export(trimmer)
 import(BMisc)
 import(data.table)
 import(ggplot2)
-import(ggpubr)
 import(stats)
 import(utils)
 importFrom(DRDID,drdid_panel)

NEWS.md

@@ -1,11 +1,13 @@
-# did 2.2.0
+# did 2.2.0 (development version)
 
   * Code improvements that made the package faster and more memory efficient
 
   * Improved automated testing and regression testing
 
   * Check if data is balanced if `panel = TRUE` and `allow_unbalanced_panel = TRUE`. If it is, disable `allow_unbalanced_panel` and proceed with panel data setup. This is different from the previous behavior, which would always proceed as if `panel = FALSE`.
 
+  * Significantly reduced the number of recursive package dependencies, enabling faster installation times and a smaller build footprint. 
+
 # did 2.1.2
 
   * Added wrapper function for HonestDiD package

R/gplot.R

@@ -34,15 +34,15 @@ gplot <- function(ssresults, ylim=NULL, xlab=NULL, ylab=NULL, title="Group", xga
     p <- p + geom_hline(aes(yintercept = ref_line), linetype = 'dashed')
   }
   if (theming) {
-    p <- p + ggpubr::theme_pubr() +
+    p <- p + theme_classic() +
       theme(plot.title = element_text(color="darkgray", face="bold", size=12),
             axis.title = element_text(color="darkgray", face="bold", size=12),
             strip.background = element_rect(fill = 'white', color = 'white'),
             strip.text = element_text(color = 'darkgray', face = 'bold', size = 12, hjust = 0),
             legend.position = 'bottom')
   }
   if (!legend) {
-    p  <- p + ggpubr::rremove("legend")
+    p  <- p + theme(legend.position = "none")
   }
 
   p
@@ -94,14 +94,14 @@ splot <- function(ssresults, ylim=NULL, xlab=NULL, ylab=NULL, title="Group",
     p <- p + geom_vline(aes(xintercept = ref_line), linetype = 'dashed')
   }
   if (theming) {
-    p <- p + ggpubr::theme_pubr() +
+    p <- p + theme_classic() +
       theme(plot.title = element_text(color="darkgray", face="bold", size=12),
             axis.title = element_text(color="darkgray", face="bold", size=12),
             legend.position = 'none')
   }
 
   if (!legend) {
-    p  <- p + ggpubr::rremove("legend")
+    p  <- p + theme(legend.position = "none")
   }
 
   p

R/imports.R

@@ -9,7 +9,6 @@
 #' @import stats
 #' @import utils
 #' @import ggplot2
-#' @import ggpubr
 #' @import BMisc
 #' @import data.table
 #' @importFrom tidyr gather