Fix download_button() error when downloadthis package is not avai…

…lable

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: MotifPeeker
 Title: Benchmarking Epigenomic Profiling Methods Using Motif Enrichment
-Version: 0.99.8
+Version: 0.99.9
 Authors@R: c( 
     person(given = "Hiranyamaya",
            family = "Dash",

NEWS.md

@@ -1,3 +1,10 @@
+# MotifPeeker 0.99.9
+
+## Bug Fixes
+
+* Fix `download_button()` error when `downloadthis` package is not available.
+
+
 # MotifPeeker 0.99.8
 
 ## Miscellaneous

R/download_button.R

@@ -32,7 +32,9 @@ download_button <- function(path,
     wrn_msg <- paste("Package", shQuote("downloadthis"), "is required to",
                     "add download buttons to the HTML report. Skipping",
                     "download buttons...")
-    check_dep("downloadthis", fatal = FALSE, custom_msg = wrn_msg)
+    if (!check_dep("downloadthis", fatal = FALSE, custom_msg = wrn_msg)) {
+        return(NULL)
+    }
 
     btn_args <- list(
         path = path,

R/utilities.R

@@ -160,7 +160,8 @@ check_duplicates <- function(x) {
 #' package is not attached.
 #' @param custom_msg a custom message to display if the package is not attached.
 #' 
-#' @returns Null
+#' @returns TRUE if the package is available or else FALSE if
+#' \code{fatal = FALSE}.
 #' 
 #' @keywords internal
 check_dep <- function(pkg, fatal = TRUE, custom_msg = NULL){
@@ -173,8 +174,10 @@ check_dep <- function(pkg, fatal = TRUE, custom_msg = NULL){
             stop(custom_msg)
         } else {
             warning(custom_msg)
+            return(FALSE)
         }
     }
+    return(TRUE)
 }
 
 #' Stop if MEME suite is not installed