test smaller title size

R/theme_paleta.R

@@ -74,7 +74,7 @@ set_paleta_font <- function() {
 #'   `base_family`.
 #' @param plot_title_face Font face ("plain", "italic", "bold", "bold.italic")
 #'   for plot title. Default is "bold".
-#' @param plot_title_size Plot title text size in pts. Default is 18.
+#' @param plot_title_size Plot title text size in pts. Default is 16.
 #' @param plot_title_margin Margin at the bottom of the plot title. Default
 #'   set at 10.
 #' @param plot_title_colour Colour of the plot title text. Default
@@ -133,7 +133,7 @@ set_paleta_font <- function() {
 theme_paleta <- function(base_family = set_paleta_font(),
                          base_size = 11.5,
                          plot_title_family = base_family,
-                         plot_title_size = 18,
+                         plot_title_size = 16,
                          plot_title_face = "bold",
                          plot_title_colour = NULL,
                          plot_title_margin = 10,

R/theme_unicef.R

@@ -163,7 +163,7 @@ set_unicef_font <- function(alt = paleta_fonts$paleta_noto) {
 #'   by what UNICEF font is available in the system via `set_unicef_font()`.
 #'   If none of the UNICEF fonts are available, the default becomes
 #'   *Noto Sans*.
-#' @param base_size Base font size. Default is 5.
+#' @param base_size Base font size. Default is 11.5.
 #' @param plot_title_family Font family to use for the plot title. Default is
 #'   `base_family`.
 #' @param plot_title_colour Colour of the plot title text. Default
@@ -214,7 +214,7 @@ set_unicef_font <- function(alt = paleta_fonts$paleta_noto) {
 #' @export
 #'
 theme_unicef <- function(base_family = set_unicef_font(),
-                         base_size = 5,
+                         base_size = 11.5,
                          plot_title_family = base_family,
                          plot_title_colour = unicef_black,
                          subtitle_family = base_family,

R/theme_wb.R

@@ -103,23 +103,23 @@ wb_palettes <- list(
   ),
   wb_bright_oranges = c("#F05023", "#F3734F", "#F6967B", "#F9B9A7", "#FCDCD3"),
   wb_bright_yellows = c("#FDB714", "#FDC543", "#FDD372", "#FEE2A1", "#FEF0D0"),
-  wb_bright_reds = c("#EB1C2D", "#EF4957", "#F37681", "#F7A4AB", "#FBD1D5"),
-  wb_light_oranges = c("#F78D28", "#F8A353", "#FABA7E", "#FBD1A9", "#FDE8D4"),
-  wb_bright_aquas = c("#009CA7", "#33AFB8", "#66C3CA", "#99D7DB", "#CCEBED"),
-  wb_bright_greens = c("#00AB51", "#33BB73", "#66CC96", "#99DDB9", "#CCEEDC"),
+  wb_bright_reds =    c("#EB1C2D", "#EF4957", "#F37681", "#F7A4AB", "#FBD1D5"),
+  wb_light_oranges =  c("#F78D28", "#F8A353", "#FABA7E", "#FBD1A9", "#FDE8D4"),
+  wb_bright_aquas =   c("#009CA7", "#33AFB8", "#66C3CA", "#99D7DB", "#CCEBED"),
+  wb_bright_greens =  c("#00AB51", "#33BB73", "#66CC96", "#99DDB9", "#CCEEDC"),
   wb_bright_purples = c("#872B90", "#9F55A6", "#B77FBC", "#CFAAD2", "#E7D4E8"),
-  wb_light_aquas = c("#00A996", "#33BAAB", "#66CBC0", "#99DCD5", "#CCEDEA"),
-  wb_dark_reds = c("#98252B", "#AC5055", "#C17C7F", "#D5A7AA", "#EAD3D4"),
-  wb_dark_oranges = c("#E16A2D","#E78757", "#EDA581", "#F3C3AB", "#F9E1D5"),
-  wb_browns = c("#B88C1D", "#C6A34A", "#D4BA77", "#E2D1A4", "#F0E8D1"),
-  wb_dark_purples = c("#614776", "#806B91", "#A090AC", "#BFB5C8", "#DFDAE3"),
-  wb_dark_aquas = c("#006068", "#337F86", "#669FA4", "#99BFC2", "#CCDFE0"),
-  wb_dark_greens = c("#006450", "#338373", "#66A296", "#99C1B9", "#CCE0DC")
+  wb_light_aquas =    c("#00A996", "#33BAAB", "#66CBC0", "#99DCD5", "#CCEDEA"),
+  wb_dark_reds =      c("#98252B", "#AC5055", "#C17C7F", "#D5A7AA", "#EAD3D4"),
+  wb_dark_oranges =   c("#E16A2D", "#E78757", "#EDA581", "#F3C3AB", "#F9E1D5"),
+  wb_browns =         c("#B88C1D", "#C6A34A", "#D4BA77", "#E2D1A4", "#F0E8D1"),
+  wb_dark_purples =   c("#614776", "#806B91", "#A090AC", "#BFB5C8", "#DFDAE3"),
+  wb_dark_aquas =     c("#006068", "#337F86", "#669FA4", "#99BFC2", "#CCDFE0"),
+  wb_dark_greens =    c("#006450", "#338373", "#66A296", "#99C1B9", "#CCE0DC")
 )
 
 
 #'
-#' Africa CDC fonts
+#' World Bank fonts
 #'
 #' @examples
 #' wb_fonts