style and docs: run devtools::document() and styler::style_pkg() (#65)

Co-authored-by: sbreitbart-NOAA <[email protected]>

Author: github-actions[bot]

R/ggplot2-scales.R

@@ -22,8 +22,9 @@
 #' ggplot(mtcars, aes(mpg, disp, color = as.factor(gear))) +
 #'   geom_point(size = 4) +
 #'   scale_color_nmfs("regional",
-#'                    interpolate = FALSE,
-#'                    discrete = TRUE)
+#'     interpolate = FALSE,
+#'     discrete = TRUE
+#'   )
 #' @export
 scale_color_nmfs <- function(
     palette = "oceans",
@@ -36,21 +37,24 @@ scale_color_nmfs <- function(
   pal_length <- length(nmfs_palettes[[palette]])
 
   if (discrete) {
-    if (interpolate){
+    if (interpolate) {
       ggplot2::discrete_scale(
         aesthetics = "colour",
         palette = pal,
         ...
       )
     } else {
       cli::cli_alert_info("The {palette} palette has {pal_length} colors.")
-      rlang::warn(message = "An error will occur if there are too few palette colors for your plot.
+      rlang::warn(
+        message = "An error will occur if there are too few palette colors for your plot.
 To avoid this error, use a larger palette or `interpolate = TRUE`.",
-                 .frequency = "once",
-                 .frequency_id = "too_few_colors_warning_color")
+        .frequency = "once",
+        .frequency_id = "too_few_colors_warning_color"
+      )
       ggplot2::scale_color_manual(
         values = nmfs_palette(palette)(pal_length),
-        ...)
+        ...
+      )
     }
   } else {
     ggplot2::scale_color_gradientn(colours = pal(256), ...)
@@ -73,8 +77,9 @@ To avoid this error, use a larger palette or `interpolate = TRUE`.",
 #' ggplot(mtcars, aes(mpg, disp, color = as.factor(gear))) +
 #'   geom_point(size = 4) +
 #'   scale_fill_nmfs("regional",
-#'                    interpolate = FALSE,
-#'                    discrete = TRUE)
+#'     interpolate = FALSE,
+#'     discrete = TRUE
+#'   )
 #' @export
 scale_fill_nmfs <- function(
     palette = "oceans",
@@ -87,21 +92,24 @@ scale_fill_nmfs <- function(
   pal_length <- length(nmfs_palettes[[palette]])
 
   if (discrete) {
-    if (interpolate){
+    if (interpolate) {
       ggplot2::discrete_scale(
         aesthetics = "fill",
         palette = pal,
         ...
       )
     } else {
       cli::cli_alert_info("The {palette} palette has {pal_length} colors.")
-      rlang::warn(message = "An error will occur if there are too few palette colors for your plot.
+      rlang::warn(
+        message = "An error will occur if there are too few palette colors for your plot.
 To avoid this error, use a larger palette or `interpolate = TRUE`.",
-                  .frequency = "once",
-                  .frequency_id = "too_few_colors_warning_fill")
+        .frequency = "once",
+        .frequency_id = "too_few_colors_warning_fill"
+      )
       ggplot2::scale_fill_manual(
         values = nmfs_palette(palette)(pal_length),
-        ...)
+        ...
+      )
     }
   } else {
     ggplot2::scale_fill_gradientn(colours = pal(256), ...)

man/scale_color_nmfs.Rd

@@ -10,9 +10,11 @@ test_that("nmfs_cols creates a valid plot", {
 p_discrete_interp <- ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
   geom_bar() +
   theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
-  scale_fill_nmfs(palette = "oceans",
-                  discrete = TRUE,
-                  interpolate = TRUE)
+  scale_fill_nmfs(
+    palette = "oceans",
+    discrete = TRUE,
+    interpolate = TRUE
+  )
 
 test_that("scale_fill works with discrete = TRUE", {
   skip_on_cran()
@@ -28,14 +30,20 @@ test_that("scale_fill works with discrete = TRUE", {
   )
 })
 
-p_discrete <- ggplot(mpg, aes(x = cyl,
-                              y = cty,
-                              fill = as.factor(cyl))) +
-  geom_point(shape = 22,
-             size = 3) +
-  scale_fill_nmfs(palette = "oceans",
-                  discrete = TRUE,
-                  interpolate = FALSE)
+p_discrete <- ggplot(mpg, aes(
+  x = cyl,
+  y = cty,
+  fill = as.factor(cyl)
+)) +
+  geom_point(
+    shape = 22,
+    size = 3
+  ) +
+  scale_fill_nmfs(
+    palette = "oceans",
+    discrete = TRUE,
+    interpolate = FALSE
+  )
 
 test_that("scale_fill works with discrete = TRUE and interpolate = FALSE", {
   skip_on_cran()