From 613fefee385bc6ea3bf7b5daab7e553fd3345379 Mon Sep 17 00:00:00 2001
From: HDash <16350928+HDash@users.noreply.github.com>
Date: Mon, 4 Nov 2024 16:28:26 +0000
Subject: [PATCH] Run examples conditionally based on MEME Suite installation
 status

---
 R/plot_enrichment_individual.R    | 3 ++-
 R/plot_enrichment_overall.R       | 3 ++-
 man/plot_enrichment_individual.Rd | 3 ++-
 man/plot_enrichment_overall.Rd    | 3 ++-
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/R/plot_enrichment_individual.R b/R/plot_enrichment_individual.R
index e4092f8..7445fc1 100644
--- a/R/plot_enrichment_individual.R
+++ b/R/plot_enrichment_individual.R
@@ -42,7 +42,8 @@
 #' )
 #'     
 #' \donttest{
-#'     if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38")) {
+#'     if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38") &&
+#'         memes::meme_is_installed()) {
 #'         genome_build <-
 #'             BSgenome.Hsapiens.UCSC.hg38::BSgenome.Hsapiens.UCSC.hg38
 #'         enrichment_df <- get_df_enrichment(
diff --git a/R/plot_enrichment_overall.R b/R/plot_enrichment_overall.R
index 4ea028f..c12e11a 100644
--- a/R/plot_enrichment_overall.R
+++ b/R/plot_enrichment_overall.R
@@ -40,7 +40,8 @@
 #' )
 #'     
 #' \donttest{
-#'     if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38")) {
+#'     if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38") &&
+#'         memes::meme_is_installed()) {
 #'         genome_build <-
 #'             BSgenome.Hsapiens.UCSC.hg38::BSgenome.Hsapiens.UCSC.hg38
 #'         enrichment_df <- get_df_enrichment(
diff --git a/man/plot_enrichment_individual.Rd b/man/plot_enrichment_individual.Rd
index 4b65b89..5c7e09a 100644
--- a/man/plot_enrichment_individual.Rd
+++ b/man/plot_enrichment_individual.Rd
@@ -72,7 +72,8 @@ motifs <- list(
 )
     
 \donttest{
-    if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38")) {
+    if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38") &&
+        memes::meme_is_installed()) {
         genome_build <-
             BSgenome.Hsapiens.UCSC.hg38::BSgenome.Hsapiens.UCSC.hg38
         enrichment_df <- get_df_enrichment(
diff --git a/man/plot_enrichment_overall.Rd b/man/plot_enrichment_overall.Rd
index 75f2078..d961211 100644
--- a/man/plot_enrichment_overall.Rd
+++ b/man/plot_enrichment_overall.Rd
@@ -60,7 +60,8 @@ motifs <- list(
 )
     
 \donttest{
-    if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38")) {
+    if (requireNamespace("BSgenome.Hsapiens.UCSC.hg38") &&
+        memes::meme_is_installed()) {
         genome_build <-
             BSgenome.Hsapiens.UCSC.hg38::BSgenome.Hsapiens.UCSC.hg38
         enrichment_df <- get_df_enrichment(