Refactor from/to Seurat conversion

DESCRIPTION

@@ -62,9 +62,12 @@ BugReports: https://github.com/scverse/anndataR/issues
 Depends: 
     R (>= 4.0.0)
 Imports:
+    cli,
     Matrix,
     methods,
-    R6
+    purrr,
+    R6,
+    rlang
 Suggests:
     anndata,
     BiocStyle,
@@ -73,6 +76,7 @@ Suggests:
     hdf5r (>= 1.3.11),
     rmarkdown,
     S4Vectors,
+    Seurat,
     SeuratObject,
     SingleCellExperiment,
     SummarizedExperiment,

NAMESPACE

@@ -5,9 +5,16 @@ export(from_Seurat)
 export(from_SingleCellExperiment)
 export(generate_dataset)
 export(read_h5ad)
+export(to_Seurat)
 export(write_h5ad)
 importFrom(Matrix,as.matrix)
 importFrom(Matrix,sparseMatrix)
 importFrom(Matrix,t)
 importFrom(R6,R6Class)
+importFrom(cli,cli_abort)
+importFrom(cli,cli_inform)
+importFrom(cli,cli_warn)
 importFrom(methods,as)
+importFrom(methods,new)
+importFrom(purrr,map_lgl)
+importFrom(rlang,caller_env)

R/HDF5AnnData.R

@@ -255,9 +255,7 @@ HDF5AnnData <- R6::R6Class("HDF5AnnData", # nolint
                           shape = NULL,
                           mode = c("r", "r+", "a", "w", "w-", "x"),
                           compression = c("none", "gzip", "lzf")) {
-      if (!requireNamespace("hdf5r", quietly = TRUE)) {
-        stop("The HDF5 interface requires the 'hdf5r' package to be installed")
-      }
+      check_requires("HDF5AnnData", "hdf5r")
 
       # check arguments
       compression <- match.arg(compression)
@@ -446,3 +444,12 @@ to_HDF5AnnData <- function(
     mode = mode
   )
 }
+
+cleanup_HDF5AnnData <- function(...) { # nolint object_name_linter
+  args <- list(...)
+
+  if (!is.null(args$file) && is.character(args$file) && file.exists(args$file)) {
+    cli::cli_alert("Removing file: ", args$file)
+    unlink(args$file)
+  }
+}