user can control strip text color x and y

Author: certara-smouksassi

NEWS.md

@@ -9,6 +9,7 @@
 * added the possibility to select the shapes manually via `interval_shape` and `bsv_shape`
 * added capability for user to reverse color legend separately via `legend_color_reverse`
 * added capability for user to specify text for legend titles via `interval_legend_title` and `shape_legend_title` as well as to control text size via `legend_title_size`
+* added capability for user to specify facet text color via `x_facet_text_col` and `y_facet_text_col`
 
 # coveffectsplot 1.0.3
 * fixed a bug when ref_value when not equal 1 affecting y axis limits

R/forest_plot.R

@@ -53,6 +53,8 @@ label_wrap <- function(width) {
 #' @param y_facet_text_vjust Facet text vertical justification.
 #' @param x_facet_text_hjust Facet text horizontal justification.
 #' @param y_facet_text_hjust Facet text horizontal justification.
+#' @param x_facet_text_col Facet text color default to black.
+#' @param y_facet_text_col Facet text color default to black.
 #' @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.
@@ -361,6 +363,8 @@ forest_plot <- function(
   y_facet_text_vjust = 0.5,
   x_facet_text_hjust = 0.5,
   y_facet_text_hjust = 0.5,
+  x_facet_text_col = "black",
+  y_facet_text_col = "black",
   xy_facet_text_bold = TRUE,
   x_label_text_size  = 16,
   y_label_text_size  = 16,
@@ -478,7 +482,8 @@ forest_plot <- function(
                                           angle= x_facet_text_angle,
                                           face = ifelse(xy_facet_text_bold,"bold","plain"),
                                           hjust = x_facet_text_hjust,
-                                          vjust = x_facet_text_vjust
+                                          vjust = x_facet_text_vjust,
+                                          color =  x_facet_text_col
                                           )
     table.x.strip.text <- x.strip.text
 
@@ -491,7 +496,8 @@ forest_plot <- function(
                                           angle= y_facet_text_angle,
                                           face = ifelse(xy_facet_text_bold,"bold","plain"),
                                           hjust = y_facet_text_hjust,
-                                          vjust = y_facet_text_vjust
+                                          vjust = y_facet_text_vjust,
+                                          color =  y_facet_text_col
                                           )
    table.y.strip.text <- y.strip.text
   }

inst/shiny/server.R

@@ -255,6 +255,8 @@ function(input, output, session) {
         y_facet_text_vjust = ..(input$y_facet_text_vjust),
         x_facet_text_hjust = ..(input$x_facet_text_hjust),
         y_facet_text_hjust = ..(input$y_facet_text_hjust),
+        x_facet_text_col   = ..(input$x_facet_text_col),
+        y_facet_text_col   = ..(input$y_facet_text_col),
         xy_facet_text_bold = ..(input$boldfacettext),
         x_label_text_size = ..(input$xlablesize),
         y_label_text_size = ..(input$ylablesize),

inst/shiny/ui.R

@@ -249,6 +249,14 @@ fluidPage(
                                     showColour = "both",allowTransparent=TRUE, returnName = TRUE),
           div( actionButton("stripbackfillreset", "Reset Strip Background Fill"),
                style="text-align: right"),
+          colourpicker::colourInput("y_facet_text_col",
+                                    "Facet Text Color Y:",
+                                    value="black",
+                                    showColour = "both",allowTransparent=TRUE, returnName = TRUE),
+          colourpicker::colourInput("x_facet_text_col",
+                                    "Facet Text Color X:",
+                                    value="black",
+                                    showColour = "both",allowTransparent=TRUE, returnName = TRUE),
           checkboxInput('removestrip', "Show Strip Background",value = TRUE),
           conditionalPanel(condition = "!input.colourbyparamname",
           colourpicker::colourInput("colourpointrange",