Remove ggplot2 warnings + redo package doc Remove ggplot2::aes_string…

… and use linewidth

DESCRIPTION

@@ -35,7 +35,7 @@ Imports:
     rlang,
     tibble,
     tidyr (>= 1.0.0),
-    ggplot2
+    ggplot2 (>= 3.4.0)
 RoxygenNote: 7.2.3
 Roxygen: list(markdown = TRUE)
 Suggests: 

NAMESPACE

@@ -53,6 +53,7 @@ importFrom(ggplot2,"%+replace%")
 importFrom(rlang,"!!!")
 importFrom(rlang,"!!")
 importFrom(rlang,":=")
+importFrom(rlang,.data)
 importFrom(stats,as.formula)
 importFrom(stats,mad)
 importFrom(stats,median)

R/anomalize-package.R

@@ -1,5 +1,4 @@
-#' anomalize: Tidy anomaly detection
-#'
+#' @description
 #' The 'anomalize' package enables a "tidy" workflow for detecting anomalies in data.
 #' The main functions are time_decompose(), anomalize(), and time_recompose().
 #' When combined, it's quite simple to decompose time series, detect anomalies,
@@ -14,14 +13,14 @@
 #'
 #' To learn more about `anomalize`, start with the vignettes:
 #'  `browseVignettes(package = "anomalize")`
-#'
-#'
-#' @docType package
-#' @name anomalize_package
-#'
 #' @aliases anomalize-package
-#' @importFrom rlang := !! !!!
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+#' @importFrom rlang := !! !!! .data
 #' @importFrom dplyr %>% n row_number contains quo_name
 #' @importFrom stats median mad qt as.formula
 #' @import ggplot2
+## usethis namespace: end
 NULL

R/plot_anomalies.R

@@ -27,7 +27,6 @@
 #' library(dplyr)
 #' library(ggplot2)
 #'
-#' data(tidyverse_cran_downloads)
 #'
 #' #### SINGLE TIME SERIES ####
 #' tidyverse_cran_downloads %>%
@@ -80,7 +79,7 @@ plot_anomalies.tbl_time <- function(data, time_recomposed = FALSE, ncol = 1,
     date_col   <- tibbletime::get_index_char(data)
 
     g <- data %>%
-        ggplot2::ggplot(ggplot2::aes_string(x = date_col, y = "observed"))
+        ggplot2::ggplot(ggplot2::aes(x = .data[[date_col]], y = .data[["observed"]]))
 
 
     if (time_recomposed) {
@@ -94,8 +93,8 @@ plot_anomalies.tbl_time <- function(data, time_recomposed = FALSE, ncol = 1,
     }
 
     g <- g +
-        ggplot2::geom_point(ggplot2::aes_string(color = "anomaly"), size = size_dots, alpha = alpha_dots) +
-        ggplot2::geom_point(ggplot2::aes_string(x = date_col, y = "observed", color = "anomaly"),
+        ggplot2::geom_point(ggplot2::aes(color = .data[["anomaly"]]), size = size_dots, alpha = alpha_dots) +
+        ggplot2::geom_point(ggplot2::aes(x = .data[[date_col]], y = .data[["observed"]], color = .data[["anomaly"]]),
                            size = size_circles, shape = 1, alpha = alpha_circles,
                            data = data %>% dplyr::filter(anomaly == "Yes"),
                            inherit.aes = FALSE) +

R/plot_anomaly_decomposition.R

@@ -27,8 +27,6 @@
 #' library(dplyr)
 #' library(ggplot2)
 #'
-#' data(tidyverse_cran_downloads)
-#'
 #' tidyverse_cran_downloads %>%
 #'     filter(package == "tidyquant") %>%
 #'     ungroup() %>%
@@ -78,11 +76,11 @@ plot_anomaly_decomposition.tbl_time <- function(data, ncol = 1, color_no = "#2c3
     date_col   <- tibbletime::get_index_char(data)
 
     data_anomaly_tbl <- data %>%
-        dplyr::select(!! date_expr, observed:remainder, anomaly) %>%
+        dplyr::select(!!date_expr, observed:remainder, anomaly) %>%
         tidyr::gather(key = key, value = value, -dplyr::one_of(c(!! date_col, 'anomaly')), factor_key = T)
 
     g <- data_anomaly_tbl  %>%
-        ggplot2::ggplot(ggplot2::aes_string(x = date_col, y = "value", color = "anomaly")) +
+        ggplot2::ggplot(ggplot2::aes(x = .data[[date_col]], y = .data$value, color = .fata$anomaly)) +
         # Points
         ggplot2::geom_point(size = size_dots, alpha = alpha_dots) +
         # Circles

R/tidyquant_theme_compat.R

@@ -15,10 +15,10 @@ theme_tq <- function(base_size = 11, base_family = "") {
         ggplot2::theme(
 
             # Base Inherited Elements
-            line               =  ggplot2::element_line(colour = blue, size = 0.5, linetype = 1,
+            line               =  ggplot2::element_line(colour = blue, linewidth = 0.5, linetype = 1,
                                                         lineend = "butt"),
             rect               =  ggplot2::element_rect(fill = white, colour = blue,
-                                                        size = 0.5, linetype = 1),
+                                                        linewidth = 0.5, linetype = 1),
             text               =  ggplot2::element_text(family = base_family, face = "plain",
                                                         colour = blue, size = base_size,
                                                         lineheight = 0.9, hjust = 0.5, vjust = 0.5, angle = 0,
@@ -27,14 +27,14 @@ theme_tq <- function(base_size = 11, base_family = "") {
             # Axes
             axis.line          = ggplot2::element_blank(),
             axis.text          = ggplot2::element_text(size = ggplot2::rel(0.8)),
-            axis.ticks         = ggplot2::element_line(color = grey, size = ggplot2::rel(1/3)),
+            axis.ticks         = ggplot2::element_line(color = grey, linewidth = ggplot2::rel(1/3)),
             axis.title         = ggplot2::element_text(size = ggplot2::rel(1.0)),
 
             # Panel
             panel.background   = ggplot2::element_rect(fill = white, color = NA),
-            panel.border       = ggplot2::element_rect(fill = NA, size = ggplot2::rel(1/2), color = blue),
-            panel.grid.major   = ggplot2::element_line(color = grey, size = ggplot2::rel(1/3)),
-            panel.grid.minor   = ggplot2::element_line(color = grey, size = ggplot2::rel(1/3)),
+            panel.border       = ggplot2::element_rect(fill = NA, linewidth = ggplot2::rel(1/2), color = blue),
+            panel.grid.major   = ggplot2::element_line(color = grey, linewidth = ggplot2::rel(1/3)),
+            panel.grid.minor   = ggplot2::element_line(color = grey, linewidth = ggplot2::rel(1/3)),
             panel.grid.minor.x = ggplot2::element_blank(),
             panel.spacing      = ggplot2::unit(.75, "cm"),
 
@@ -70,12 +70,12 @@ theme_tq_dark <- function(base_size = 11, base_family = "") {
         ggplot2::theme(
 
             # Axes
-            axis.ticks         = ggplot2::element_line(color = blue, size = ggplot2::rel(1/3)),
+            axis.ticks         = ggplot2::element_line(color = blue, linewidth = ggplot2::rel(1/3)),
 
             # Panel
             panel.background   = ggplot2::element_rect(fill = grey, color = NA),
-            panel.grid.major   = ggplot2::element_line(color = white, size = ggplot2::rel(1/3)),
-            panel.grid.minor   = ggplot2::element_line(color = white, size = ggplot2::rel(1/3)),
+            panel.grid.major   = ggplot2::element_line(color = white, linewidth = ggplot2::rel(1/3)),
+            panel.grid.minor   = ggplot2::element_line(color = white, linewidth = ggplot2::rel(1/3)),
 
             # Complete theme
             complete = TRUE
@@ -95,12 +95,12 @@ theme_tq_green <- function(base_size = 11, base_family = "") {
         ggplot2::theme(
 
             # Axes
-            axis.ticks         = ggplot2::element_line(color = blue, size = ggplot2::rel(1/3)),
+            axis.ticks         = ggplot2::element_line(color = blue, linewidth = ggplot2::rel(1/3)),
 
             # Panel
             panel.background   = ggplot2::element_rect(fill = green, color = NA),
-            panel.grid.major   = ggplot2::element_line(color = white, size = ggplot2::rel(1/3)),
-            panel.grid.minor   = ggplot2::element_line(color = white, size = ggplot2::rel(1/3)),
+            panel.grid.major   = ggplot2::element_line(color = white, linewidth = ggplot2::rel(1/3)),
+            panel.grid.minor   = ggplot2::element_line(color = white, linewidth = ggplot2::rel(1/3)),
 
             # Complete theme
             complete = TRUE