require i2dash.scrnaseq package as it provides the needed templates

loosolab · Jul 23, 2019 · 652b82e · 652b82e
1 parent 08405ff
commit 652b82e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -52,5 +52,6 @@ Suggests: knitr,
     rmarkdown,
     testthat,
     vdiffr,
-    i2dash
+    i2dash,
+    i2dash.scrnaseq
 VignetteBuilder: knitr
diff --git a/R/i2dash.R b/R/i2dash.R
@@ -10,8 +10,8 @@
 #' @return A string containing markdown code for the rendered textbox
 #' @export
 heatmap_to_i2dash <- function(object, countTable, group_by, compId = NULL, title = NULL, ...) {
-  if (!requireNamespace("i2dash", quietly = TRUE)) {
-    stop("Package i2dash is needed to use this function. Please install it.")
+  if (!requireNamespace("i2dash", quietly = TRUE) || !requireNamespace("i2dash.scrnaseq", quietly = TRUE)) {
+    stop("Packages i2dash and i2dash.scrnaseq are needed to use this function. Please install those.")
   }
 
   # Create env id
@@ -75,8 +75,8 @@ heatmap_to_i2dash <- function(object, countTable, group_by, compId = NULL, title
 #' @return A string containing markdown code for the rendered textbox
 #' @export
 geneview_to_i2dash <- function(object, countTable, group_by, compId = NULL, title = NULL, ...) {
-  if (!requireNamespace("i2dash", quietly = TRUE)) {
-    stop("Package i2dash is needed to use this function. Please install it.")
+  if (!requireNamespace("i2dash", quietly = TRUE) || !requireNamespace("i2dash.scrnaseq", quietly = TRUE)) {
+    stop("Packages i2dash and i2dash.scrnaseq are needed to use this function. Please install those.")
   }
 
   # Create env id
@@ -139,8 +139,8 @@ geneview_to_i2dash <- function(object, countTable, group_by, compId = NULL, titl
 #' @return A string containing markdown code for the rendered textbox
 #' @export
 scatterplot_to_i2dash <- function(object, x, y, colour_by = NULL, expression = NULL, compId = NULL, title = NULL, ...) {
-  if (!requireNamespace("i2dash", quietly = TRUE)) {
-    stop("Package i2dash is needed to use this function. Please install it.")
+  if (!requireNamespace("i2dash", quietly = TRUE) || !requireNamespace("i2dash.scrnaseq", quietly = TRUE)) {
+    stop("Packages i2dash and i2dash.scrnaseq are needed to use this function. Please install those.")
   }
 
   # Create env id