Add installation information when anndataR is not installed.

HelenaLC · Nov 13, 2024 · 6d29506 · 6d29506
1 parent f79a2ad
commit 6d29506
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/read.R b/R/read.R
@@ -91,8 +91,6 @@ readTable <- function(x, anndataR = FALSE) {
 #' @importFrom basilisk basiliskStart basiliskStop basiliskRun
 #' @export
 readTable_basilisk <- function(x) {
-    # TODO: temporary, until AnnDataR supports
-    # reading AnnData from .zarr (.h5ad only atm)
     proc <- basiliskStart(.env)
     on.exit(basiliskStop(proc))
     basiliskRun(proc, zarr=x, \(zarr) {
@@ -106,7 +104,9 @@ readTable_basilisk <- function(x) {
 #' @importFrom anndataR read_zarr to_SingleCellExperiment
 #' @export
 readTable_anndataR <- function(x) {
-    requireNamespace("anndataR")
+    if (!requireNamespace('anndataR', quietly = TRUE)){
+        stop("Install 'anndataR' to use this function.\nInstall this version: `remotes::install_github(\"keller-mark/anndataR\", ref = \"spatialdata\")`")
+    }
     adata <- anndataR::read_zarr(x)
     anndataR::to_SingleCellExperiment(adata)
 }