Minor updates and fixes.

NEWS.md

@@ -1,6 +1,7 @@
 # memery 0.6.0
 
 * Documentation updates.
+* Minor code updates and fixes.
 
 # memery 0.5.7
 

R/car_shiny.R

@@ -31,7 +31,7 @@
 #' file <- "memery-car-shiny.gif" # outfile
 #' set.seed(1)
 #' p1 <- ggplot(data.frame(x = rbeta(100000, 10, 3)), aes(x)) +
-#'   geom_histogram(colour = "white", fill = "#88888880", size = 1, bins = 30)
+#'   geom_histogram(colour = "white", fill = "#88888880", linewidth = 1, bins = 30)
 #'
 #' means <- (8:1)^3
 #' sds <- 10*(8:1)
@@ -42,7 +42,7 @@
 #'
 #' p2 <- ggplot(d, aes(x, y)) +
 #'   geom_boxplot(colour = "white", fill = "#5495CF80", outlier.colour = NA) +
-#'   geom_point(shape = 21, colour = "white", fill = "#5495CF80", size = 1,
+#'   geom_point(shape = 21, colour = "white", fill = "#5495CF80", linewidth = 1,
 #'              position = position_jitter(0.15)) +
 #'   scale_x_discrete(expand = c(0, 0.02)) + scale_y_continuous(expand = c(0.02, 0)) +
 #'   theme_void() +

R/inset.R

@@ -135,11 +135,11 @@ inset_templates <- function(type){
 memetheme <- function(base_size = 14, base_family = "", base_col = "white"){
   ggplot2::theme_gray(base_size = base_size, base_family = base_family) +
   ggplot2::theme(
-    panel.grid.major = ggplot2::element_line(size = 0.5, colour = "gray"),
+    panel.grid.major = ggplot2::element_line(linewidth = 0.5, colour = "gray"),
     title = ggplot2::element_text(colour = base_col),
     axis.text = ggplot2::element_text(colour = base_col),
     axis.ticks = ggplot2::element_line(colour = base_col),
-    axis.line = ggplot2::element_line(size = 1, colour = base_col),
+    axis.line = ggplot2::element_line(linewidth = 1, colour = base_col),
     axis.ticks.length = ggplot2::unit(0.35, "cm"), legend.position = "bottom",
     legend.justification = "right", legend.title = ggplot2::element_blank(),
     legend.text = ggplot2::element_text(size = base_size), text = ggplot2::element_text(size = 18),

R/meme.R

@@ -126,7 +126,7 @@
 #'   "Figure 1. (A) shows a plot and (B) shows another plot.")
 #' out <- tempfile("meme", fileext = c("1.png", "2.png", "3.png", "4.gif"))
 #'
-#' p <- ggplot(d, aes(x, y)) + geom_line(colour = "cornflowerblue", size = 2) +
+#' p <- ggplot(d, aes(x, y)) + geom_line(colour = "cornflowerblue", linewidth = 2) +
 #'   geom_point(colour = "orange", size = 4) + facet_wrap(~grp) +
 #'   labs(title = txt[1], subtitle = txt[2], caption = txt[3])
 #'
@@ -160,7 +160,7 @@
 #' \dontrun{
 #' # Not run due to file size, software requirements, web source
 #' # GIF meme. Requires magick package.
-#' p <- ggplot(d, aes(x, y)) + geom_line(colour = "white", size = 2) +
+#' p <- ggplot(d, aes(x, y)) + geom_line(colour = "white", linewidth = 2) +
 #'   geom_point(colour = "orange", size = 1) + facet_wrap(~grp) +
 #'   labs(title = "The wiggles", subtitle = "Plots for cats",
 #'        caption = "Figure 1. Gimme sine waves.")
@@ -213,7 +213,7 @@ meme <- function(img, label, file, size = 1, family = "Impact", col = "white", s
     shadow <- rep(shadow, length.out = n)
   }
 
-  p0 <- ggplot2::ggplot(data.frame(x = c(0, 1), y = c(0, 1)), ggplot2::aes_string("x", "y")) +
+  p0 <- ggplot2::ggplot(data.frame(x = c(0, 1), y = c(0, 1)), ggplot2::aes(.data[["x"]], .data[["y"]])) +
     ggplot2::annotation_custom(g0, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) +
     cowplot::theme_nothing()
   if(ext2 == "png") Cairo::CairoPNG(file, width = width, height = height, bg = bg)

R/memery.R

@@ -1,3 +1,5 @@
+globalVariables(".data")
+
 #' @name memery
 "_PACKAGE"
 

codemeta.json

@@ -262,5 +262,5 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "668.854KB"
+  "fileSize": "125.885KB"
 }

docs/pkgdown.yml

@@ -3,7 +3,7 @@ pkgdown: 2.1.0
 pkgdown_sha: ~
 articles:
   memery: memery.html
-last_built: 2024-09-10T22:16Z
+last_built: 2024-09-10T22:38Z
 urls:
   reference: https://leonawicz.github.io/memery/reference
   article: https://leonawicz.github.io/memery/articles

inst/WORDLIST

@@ -1,3 +1,5 @@
+CMD
+Codecov
 Github
 ImageMagick
 RStudio