added legend_title_size so user can control the title size

Author: certara-smouksassi

NEWS.md

@@ -8,8 +8,7 @@
 * added and exported `expand_modelframe` function
 * added the possibility to select the shapes manually via `interval_shape` and `bsv_shape` (when shape is mapped to paramname or not)
 * added capability for user to reverse color legend separately via `legend_color_reverse`
-* added capability for user to specify legend titles via `interval_legend_title`
-* User can have more control on legends text and titles which influence merging
+* added capability for user to specify text for legend titles via `interval_legend_title` and `shape_legend_title` as well as text size via `legend_title_size`
 
 # coveffectsplot 1.0.3
 * fixed a bug when ref_value when not equal 1 affecting y axis limits

R/forest_plot.R

@@ -56,6 +56,7 @@ label_wrap <- function(width) {
 #' @param xy_facet_text_bold Bold Facet text. Logical TRUE FALSE.
 #' @param x_label_text_size X axis labels size.
 #' @param y_label_text_size Y axis labels size.
+#' @param legend_title_size Legend title size if present.
 #' @param break_ylabel Split Y axis labels into multiple lines. Logical FALSE TRUE.
 #' @param y_label_text_width Number of characters to break Y axis labels.
 #' @param table_text_size Table text size.
@@ -363,6 +364,7 @@ forest_plot <- function(
   xy_facet_text_bold = TRUE,
   x_label_text_size  = 16,
   y_label_text_size  = 16,
+  legend_title_size = 12,
   break_ylabel = FALSE,
   y_label_text_width = 25,
   table_text_size = 7,
@@ -800,6 +802,7 @@ forest_plot <- function(
       legend.position = legend_position,
       legend.justification = c(0.5, 0.5),
       legend.direction = "horizontal",
+      legend.title = ggplot2::element_text(size = legend_title_size),
       legend.key.width = ggplot2::unit(3, "line"),
       strip.text.x = x.strip.text,
       strip.text.y = y.strip.text,

inst/shiny/server.R

@@ -258,6 +258,7 @@ function(input, output, session) {
         xy_facet_text_bold = ..(input$boldfacettext),
         x_label_text_size = ..(input$xlablesize),
         y_label_text_size = ..(input$ylablesize),
+        legend_title_size = ..(input$legendtitlesize),
         break_ylabel = ..(input$breakylabel),
         y_label_text_width= ..(input$ylabeltextwidth),
         table_text_size = ..(input$tabletextsize),

inst/shiny/ui.R

@@ -401,7 +401,10 @@ fluidPage(
           checkboxInput('combineareareflegend',
                         'Combine Ref and Area Legends if they share the same text ?',value = TRUE),
           checkboxInput('combineintervalshapelegend',
-                        'Combine Interval and Shape Legends?',value = TRUE)
+                        'Combine Interval and Shape Legends?',value = TRUE),
+          sliderInput("legendtitlesize", "Text size of legend(s) title(s) ",
+                      min=1, max=32, value= 16, step=0.5)
+          
         )#tabpanel
       )  # tabsetpanel
     ) # closes the column 3