Remove some dependencies

Author: HorridTom

DESCRIPTION

@@ -10,11 +10,11 @@ Description: Creates spc charts with control limits and centre line
     calculations partitioned into distinct periods.
 License: GPL-3
 Imports: 
+    cowplot,
     DiagrammeR,
     dplyr (>= 1.1.1),
     fpCompare,
     ggplot2 (>= 3.4.2),
-    ggpubr (>= 0.6.0),
     lifecycle (>= 1.0.3),
     magrittr (>= 2.0.3),
     rlang (>= 1.1.0),

R/add_annotation_data.R

@@ -139,7 +139,8 @@ add_annotations_to_plot_pp <- function(p,
                                                 segment.inflect = FALSE,
                                                 segment.square = FALSE,
                                                 arrow = grid::arrow(length = grid::unit(0.015, "npc")),
-                                                na.rm = TRUE)
+                                                na.rm = TRUE,
+                                                max.overlaps = Inf)
   } else {
     p_annotated <- p + ggrepel::geom_text_repel(ggplot2::aes(x = x,
                                                              y = cl,
@@ -153,7 +154,8 @@ add_annotations_to_plot_pp <- function(p,
                                                 force             = 0,
                                                 hjust             = 0,
                                                 min.segment.length = Inf,
-                                                na.rm = TRUE)
+                                                na.rm = TRUE,
+                                                max.overlaps = Inf)
   }
 
   return(p_annotated)

R/visualisation.R

@@ -128,12 +128,20 @@ create_spc_plot <- function(df,
     p_mr <- p_mr + 
       ggplot2::labs(caption = caption)
 
-    p <- ggpubr::ggarrange(p, p_mr,
-                           ncol = 1,
-                           nrow = 2,
-                           legend = "right",
-                           common.legend = TRUE,
-                           align = "v")
+    legend <- cowplot::get_legend(p)
+    
+    p_no_legend <- p + ggplot2::theme(legend.position = "none")
+    p_mr_no_legend <- p_mr + ggplot2::theme(legend.position = "none")
+    
+    p <- cowplot::plot_grid(
+      cowplot::plot_grid(p_no_legend, p_mr_no_legend, 
+                         ncol = 1, 
+                         align = "v"),
+      legend,
+      ncol = 2,
+      rel_widths = c(1, 0.2)
+    )
+  
   }
 
   return(p)
@@ -159,7 +167,7 @@ create_timeseries_plot <- function(df,
     ggplot2::theme(panel.grid.major.y = ggplot2::element_blank(),
                    panel.grid.major.x = ggplot2::element_line(
                      colour = "grey80"
-                     ),
+                   ),
                    panel.grid.minor = ggplot2::element_blank(),
                    panel.background = ggplot2::element_blank(),
                    axis.text.x = ggplot2::element_text(angle = 45,
@@ -259,18 +267,18 @@ format_SPC <- function(cht,
                                       override.aes = list(
                                         alpha = if(
                                           !is.na(first_display_period)
-                                          ) {
-                                        c(1, 0.4)
-                                      } else {
-                                        c(1)
-                                      }
+                                        ) {
+                                          c(1, 0.4)
+                                        } else {
+                                          c(1)
+                                        }
                                       )
                                     )
       ) +
       ggplot2::theme(panel.grid.major.y = ggplot2::element_blank(),
                      panel.grid.major.x = ggplot2::element_line(
                        colour = "grey80"
-                       ),
+                     ),
                      panel.grid.minor = ggplot2::element_blank(),
                      panel.background = ggplot2::element_blank(),
                      axis.text.x = ggplot2::element_text(angle = 45,

data-raw/algorithm_documentation_data.R

@@ -117,8 +117,8 @@ get_log_explanation_table <- function() {
 algorithm_flow_chart_string <- get_algorithm_flow_chart_string()
 log_explanation_table <- get_log_explanation_table()
 
-usethis::use_data(algorithm_flow_chart_string,
-                  log_explanation_table,
-                  internal = TRUE,
-                  overwrite = TRUE)
+# usethis::use_data(algorithm_flow_chart_string,
+#                   log_explanation_table,
+#                   internal = TRUE,
+#                   overwrite = TRUE)