fix error messages and titles

samuel-marsh · Oct 1, 2024 · 12930b3 · 12930b3
1 parent 98f1e77
commit 12930b3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/Plotting_Utilities.R b/R/Plotting_Utilities.R
@@ -1665,6 +1665,8 @@ Plot_Pie_Proportions <- function(
     })
 
     plots <- wrap_plots(plots, guides = "collect", ncol = num_columns)
+    plots <- plots + plot_annotation(title = "Proportion of Cells", theme = plot.title = element_text(hjust = 0.5))
+
     return(plots)
   }
 }

diff --git a/R/Statistics_Plotting.R b/R/Statistics_Plotting.R
@@ -963,8 +963,8 @@ Proportion_Plot <- function(
   }
 
   if (plot_type == "pie" && plot_scale == "count") {
-    cli_warn(message = c("When using {.code plot_type = 'pie'} the {.code plot_scale} parameter is ignored",
-                         "i" = "To plot using {.code plot_scale = 'percent'}, set {.code plot_type = 'bar'}."))
+    cli_warn(message = c("When using {.code plot_type = pie} the {.code plot_scale} parameter is ignored",
+                         "i" = "To plot using {.code plot_scale = 'count'}, set {.code plot_type = bar}."))
   }
 
   if (plot_type == "pie") {