From a99e78a686a5d68d2d69de0e40b1c59a49b8ac55 Mon Sep 17 00:00:00 2001
From: trvinh <trvinh@gmail.com>
Date: Mon, 28 Oct 2024 19:07:47 +0100
Subject: [PATCH] dontrun example gridArrangeSharedLegend

---
 DESCRIPTION                    | 4 ++--
 R/compareTaxaGroups.R          | 4 +++-
 man/gridArrangeSharedLegend.Rd | 2 ++
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 4369d07f..58c70e8a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: PhyloProfile
-Version: 1.19.12
-Date: 2024-10-07
+Version: 1.19.13
+Date: 2024-10-28
 Title: PhyloProfile
 Authors@R: c(
     person("Vinh", "Tran", role = c("aut", "cre"), email = "tran@bio.uni-frankfurt.de", comment=c(ORCID="0000-0001-6772-7595")),
diff --git a/R/compareTaxaGroups.R b/R/compareTaxaGroups.R
index d1c91c76..cf7eb0c0 100644
--- a/R/compareTaxaGroups.R
+++ b/R/compareTaxaGroups.R
@@ -324,7 +324,7 @@ generateSinglePlot <- function(plotDf, parameters, variable) {
         scale_x_discrete(labels = xNames) +
         # add mean/median point and color of that point
         stat_summary(
-            aes(colour = parameters$mValue), fun.y = parameters$mValue,
+            aes(colour = parameters$mValue), fun = parameters$mValue,
             geom = "point", size = 3, show.legend = TRUE, shape = 8
         ) +
         scale_color_manual("", values = c("red")) +
@@ -359,6 +359,7 @@ generateSinglePlot <- function(plotDf, parameters, variable) {
 #' @note adapted from https://rdrr.io/github/PhilBoileau/CLSAR/src/R/
 #' gridArrangeSharedLegend.R
 #' @examples
+#' \dontrun{
 #' data("mainLongRaw", package="PhyloProfile")
 #' data <- mainLongRaw
 #' inGroup <- c("ncbi9606", "ncbi10116")
@@ -383,6 +384,7 @@ generateSinglePlot <- function(plotDf, parameters, variable) {
 #'     title = plotParameters$title,
 #'     size = plotParameters$titleSize
 #' )
+#' }
 
 gridArrangeSharedLegend <- function(
     ...,  ncol = length(list(...)), nrow = 1, position = c("bottom", "right"),
diff --git a/man/gridArrangeSharedLegend.Rd b/man/gridArrangeSharedLegend.Rd
index 46a244bb..4f21a3e5 100644
--- a/man/gridArrangeSharedLegend.Rd
+++ b/man/gridArrangeSharedLegend.Rd
@@ -31,6 +31,7 @@ adapted from https://rdrr.io/github/PhilBoileau/CLSAR/src/R/
 gridArrangeSharedLegend.R
 }
 \examples{
+\dontrun{
 data("mainLongRaw", package="PhyloProfile")
 data <- mainLongRaw
 inGroup <- c("ncbi9606", "ncbi10116")
@@ -56,6 +57,7 @@ g <- gridArrangeSharedLegend(
     size = plotParameters$titleSize
 )
 }
+}
 \author{
 Phil Boileau, \email{philippe.boileau@rimuhc.ca}
 }