feat: Export the create_hdf5 function. (#83)

This will enable users and other scripts the ability to write out the
intermediate h5 file.

Author: esiegel

NAMESPACE

@@ -3,6 +3,7 @@
 export(counts_matrix_from_assay)
 export(create_bugreport)
 export(create_bugreport_from_seurat)
+export(create_hdf5)
 export(create_loupe)
 export(create_loupe_from_seurat)
 export(read_feature_ids_from_tsv)

R/hdf5.R

@@ -14,7 +14,7 @@
 #'
 #' @return TRUE on success, FALSE on error
 #'
-#' @noRd
+#' @export
 create_hdf5 <- function(
     count_mat,
     clusters,
@@ -23,7 +23,7 @@ create_hdf5 <- function(
     feature_ids,
     seurat_obj_version) {
   if (file.exists(h5path)) {
-    return(err(sprintf("cannot create h5 file %s", h5path)))
+    return(err(sprintf("cannot create h5 file as it already exists: %s", h5path)))
   }
 
   # create hdf5 file and matrix groups