From 0e85ee52b84481e07a04b2e6deee86a89ab25e48 Mon Sep 17 00:00:00 2001
From: "Brian M. Schilder" <34280215+bschilder@users.noreply.github.com>
Date: Sat, 27 Jan 2024 16:24:18 +0000
Subject: [PATCH] Adjust plot_bar_summary title

---
 R/plot_bar_summary.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/R/plot_bar_summary.R b/R/plot_bar_summary.R
index dcb84fd..800c3c0 100644
--- a/R/plot_bar_summary.R
+++ b/R/plot_bar_summary.R
@@ -57,9 +57,12 @@ plot_bar_summary <- function(results = load_example_results(),
   ## plotly doesn't inherit subtitle arg from ggplot,
   ## so need to append it to the title.
   subtitle <-  paste0(
-    if(!is.null(keywords)){shQuote(paste(keywords,collapse = ", "))},
+    if(!is.null(keywords)){
+      paste0("keywords: ",shQuote(paste(keywords,collapse = ", ")),";")
+      },
     "  ",formatC(length(unique(phenos[[count_var]])),big.mark = ","),
-    " ",tolower(count_var),"(s)")
+    " ",tolower(count_var),"(s)"
+    )
   n_count_var <- paste("n",paste0(tolower(count_var),"s"),sep="_")
   #### Sort celltypes by counts ####
   data.table::setorderv(counts_df, n_count_var, -1L)