Ocasio-Cortez

Author: jrosell

.Rbuildignore

@@ -4,3 +4,4 @@
 ^docs$
 ^pkgdown$
 ^\.github$
+^README\.Rmd$

DESCRIPTION

@@ -1,22 +1,22 @@
 Package: ggaoc
-Title: Alexandria Ocasio Cortez inspired ggplots
+Title: Alexandria Ocasio-Cortez inspired ggplots
 Version: 0.0.0.9000
 Authors@R: c(
     person("Jordi", "Rosell", , "jroselln@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-4349-1458")),
     person("Frankie T.", "Hull", , "frankiethull@gmail.com", role = "aut")
   )
 Description: The ggaoc package provides a theme, palette, and other useful
-    functions to customise ggplots and give them a Alexandria Ocasio
-    Cortez inspired look.
+    functions to customise ggplots and give them a Alexandria
+    Ocasio-Cortez inspired look.
 License: MIT + file LICENSE
 Encoding: UTF-8
 Language: en
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 Depends: 
     R (>= 4.4)
-URL: https://github.com/jrosell/ggaoc, https://jrosell.github.io/ggaoc/
+URL: https://github.com/jrosell/ggaoc
 Suggests: 
     devtools,
     gapminder,

R/dev.R

@@ -9,8 +9,8 @@
 rebuild_package_and_check <- function() {
   previous_version <- "0.0.0.9000"
   usethis::use_description(list(
-      "Title" = "Alexandria Ocasio Cortez inspired ggplots",
-      "Description" = "The ggaoc package provides a theme, palette, and other useful functions to customise ggplots and give them a Alexandria Ocasio Cortez inspired look.",
+      "Title" = "Alexandria Ocasio-Cortez inspired ggplots",
+      "Description" = "The ggaoc package provides a theme, palette, and other useful functions to customise ggplots and give them a Alexandria Ocasio-Cortez inspired look.",
       "Version" = previous_version,
       "Authors@R" = c(
         utils::person(
@@ -50,7 +50,7 @@ rebuild_package_and_check <- function() {
   )
   imports_packages <- c(
       "ggplot2",
-      "showtext"   
+      "showtext"
   )
   imports_packages |> purrr::walk(
       \(x){usethis::use_package(x, type = "Imports"); x}

R/theme-aoc.R

@@ -2,21 +2,19 @@
 #' @export
 theme_aoc <- \(){  
   if(!requireNamespace("showtext")) {
-    stop("{showtext] package is requried.")
+    stop("{showtext} package is requried.")
   }
-  library(showtext)
-  font_add_google("Nunito", "nunito")
-  font_families()
+  sysfonts::font_add_google("Nunito", "nunito")
   ggplot2::theme_minimal(base_family = "nunito") +
     ggplot2::theme(
       legend.position = "none",
-      axis.text = element_text(color = "grey20"),
-      axis.title = element_text(color = "grey20"),
-      axis.line = element_line(color = "grey20"),
-      panel.grid.minor = element_blank(),
-      panel.grid.major.x = element_blank(),
-      panel.grid.major.y = element_line(color = "grey60", linetype = "dashed"),
-      plot.title = element_text(face = "bold", hjust = 0.5)
+      axis.text = ggplot2::element_text(color = "grey20"),
+      axis.title = ggplot2::element_text(color = "grey20"),
+      axis.line = ggplot2::element_line(color = "grey20"),
+      panel.grid.minor = ggplot2::element_blank(),
+      panel.grid.major.x = ggplot2::element_blank(),
+      panel.grid.major.y = ggplot2::element_line(color = "grey60", linetype = "dashed"),
+      plot.title = ggplot2::element_text(face = "bold", hjust = 0.5)
     )
 }
 
@@ -25,7 +23,7 @@ theme_aoc <- \(){
 #' @param ... additional parameters to the labs function
 #' @export
 labs_aoc <- function(title, ...) {
-    labs(
+    ggplot2::labs(
       title = toupper(title),
       ...
     )
@@ -35,14 +33,14 @@ labs_aoc <- function(title, ...) {
 #' @rdname scale_color_aoc
 #' @export
 scale_color_aoc <- \() {
-  scale_color_manual(values = c("darkgreen", "green"))
+  ggplot2::scale_color_manual(values = c("darkgreen", "green"))
 }
 
 #' A labeller function to supply to facet_grid() or facet_wrap() for the argument labeller.
 #' @param ... optional parameters to the labeller function
 #' @export
 labeller_aoc <- function(...) {
-  labeller(.default = toupper, ...)
+  ggplot2::labeller(.default = toupper, ...)
 }
 
 #' @rdname scale_color_aoc

README.Rmd

@@ -13,16 +13,16 @@ knitr::opts_chunk$set(
 )
 ```
 
-# ggaoc
+# ggaoc: Alexandria Ocasio-Cortez inspired ggplots
 
 The ggaoc package provides a theme, palette, and other useful functions to
-customise ggplots and give them a Alexandria Ocasio Cortez inspired look.
+customise ggplots and give them a Alexandria Ocasio-Cortez inspired look.
 
 ## Why
 
 All begins with this tweet:
 
-![Plot by Alexandria Ocasio Cortez](man/figures/aoc.jpg)
+![Plot by Alexandria Ocasio-Cortez](man/figures/aoc.jpg)
 
 
 ## How