Add scales::comma to the y-axis of plot_catch (so there are commas

between the thousands if the numbers go that high

DESCRIPTION

@@ -65,4 +65,4 @@ Remotes:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NAMESPACE

@@ -135,6 +135,7 @@ importFrom(rlang,enquo)
 importFrom(rlang,quo_name)
 importFrom(rlang,sym)
 importFrom(rosettafish,en2fr)
+importFrom(scales,comma)
 importFrom(stats,as.formula)
 importFrom(stats,binomial)
 importFrom(stats,coef)

R/catches.R

@@ -223,6 +223,7 @@ plot_catch <- function(dat,
       values = pal, drop = FALSE, breaks = gears,
       labels = gears
     ) +
+    scale_y_continuous(labels = scales::comma) +
     coord_cartesian(xlim = xlim + c(-0.5, 0.5), expand = FALSE) +
     xlab("") + ylab(ylab_gg) +
     ggplot2::theme(legend.position = "bottom") +

R/gfplot.R

@@ -26,6 +26,7 @@
 #'   update.formula formula as.formula density sd
 #' @importFrom methods as
 #' @importFrom grDevices chull
+#' @importFrom scales comma
 #' @importFrom stats t.test
 #' @importFrom utils read.csv
 #' @importFrom rosettafish en2fr