dontrun example gridArrangeSharedLegend

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 = "[email protected]", comment=c(ORCID="0000-0001-6772-7595")),

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"),