Fixing sccs meta plotting issue for indication names not rendering

OHDSI · Aug 2, 2024 · 3bad639 · 3bad639
1 parent e8c933f
commit 3bad639
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/estimation-sccs-plots.R b/R/estimation-sccs-plots.R
@@ -48,7 +48,7 @@ estimationCreateSccsPlot <- function(data) {
   }
   data$database <- data$databaseName
   data$type <- data$covariateName
-  data$indication[is.null(data$indication)] <- 'no indication'
+  #data$indication[is.null(data$indication)] <- 'no indication'
   data$indication[is.na(data$indication)] <- 'no indication'
 
   if(is.null(data)){
@@ -145,7 +145,7 @@ estimationCreateSccsPlot <- function(data) {
 
     ggplot2::coord_cartesian(xlim = c(0.1, 10)) + 
     ggplot2::facet_grid(.data$database ~ .data$shortName)  +
-    ggplot2::ggtitle(indication) +
+    ggplot2::labs(title = paste0("Indication: ", stringr::str_to_title(indication))) +
     ggplot2::theme(
       axis.title.y = ggplot2::element_blank(),
       panel.grid.minor = ggplot2::element_blank(),