allowing font size to be specified in theme_pr

PlanktonTeam · Nov 13, 2023 · 2bd7449 · 2bd7449
1 parent 15b04b5
commit 2bd7449
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/R/theme_pr.R b/R/theme_pr.R
@@ -4,14 +4,16 @@
 #'
 #' @importFrom ggplot2 '%+replace%'
 #'
+#' @param FontSize use to set font size with base_size
+#'
 #' @export
 #' @return planktonr theme
 #'
 #' @examples
 #' \dontrun{ggplot() + geom_blank() + theme_pr()}
-theme_pr <- function(){
+theme_pr <- function(FontSize = 16){
   font <- "Georgia"   #assign font family up front
-  ggplot2::theme_bw(base_size = 16) %+replace%    #replace elements we want to change
+  ggplot2::theme_bw(base_size = FontSize) %+replace%    #replace elements we want to change
     ggplot2::theme(
       legend.position = "bottom",
       strip.background = ggplot2::element_blank(),

diff --git a/man/theme_pr.Rd b/man/theme_pr.Rd