remove run from examples

Author: ChristineStawitz-NOAA

DESCRIPTION

@@ -6,12 +6,13 @@ Authors@R:
            family = "Stawitz",
            role = c("aut", "cre"),
            email = "christine.stawitz@noaa.gov")
-Description: This is a package that implements a color palette in line with the NOAA Fisheries Branding Guide
+Description: This is a package that implements a color palette in line with the NOAA Fisheries Branding Guide.
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.1
-Imports: ggplot2
+Imports: 
+    ggplot2
 Suggests: 
     testthat

R/nmfs_cols.R

@@ -103,11 +103,13 @@ display_nmfs_palette <- function(name, n, ...) {
 #' @param ... Additional arguments passed to discrete_scale() or
 #'            scale_color_gradientn(), used respectively when discrete is TRUE or FALSE
 #' @importFrom ggplot2 ggplot geom_point discrete_scale scale_color_gradientn aes
-#'@examples
-#'  p <- ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
+#' @examples
+#' \dontrun{
+#'  ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
 #'  geom_point(size = 4) +
 #'    scale_color_nmfs("coral")
-#'@export
+#' }
+#' @export
 scale_color_nmfs <- function(palette = "oceans", discrete = TRUE, reverse = FALSE, ...) {
   pal <- nmfs_palette(palette = palette, reverse = reverse)
 
@@ -126,11 +128,13 @@ scale_color_nmfs <- function(palette = "oceans", discrete = TRUE, reverse = FALS
 #' @param ... Additional arguments passed to discrete_scale() or
 #'            scale_fill_gradientn(), used respectively when discrete is TRUE or FALSE
 #' @importFrom ggplot2 ggplot geom_bar theme discrete_scale scale_fill_gradientn element_text
-#'@examples
-#'  ggplot2::ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
+#' @examples
+#' \dontrun{
+#'  ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
 #'  geom_bar() +
 #'    theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
 #'    scale_fill_nmfs(palette = "crustacean", discrete=FALSE)
+#' }
 #'@export
 scale_fill_nmfs <- function(palette = "oceans", discrete = TRUE, reverse = FALSE, ...) {
   pal <- nmfs_palette(palette = palette, reverse = reverse)