Report number of bed files available when creating singleton

waldronlab · Dec 3, 2024 · 5ca803f · 5ca803f
1 parent 371c388
commit 5ca803f
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: bedbaser
 Title: A BEDbase client
-Version: 0.99.11
+Version: 0.99.12
 Authors@R: c(
     person(
         given = "Jen",

diff --git a/R/bedbaser.R b/R/bedbaser.R
@@ -40,14 +40,14 @@
 #' @return BEDbase object
 #'
 #' @examples
-#' BEDbase()
+#' BEDbase(cache_path = tempdir())
 #'
 #' @export
 BEDbase <- function(cache_path) {
     if (missing(cache_path)) {
         cache_path <- tools::R_user_dir("bedbaser", which = "cache")
     }
-    suppressWarnings(
+    api <- suppressWarnings(
         .BEDbase(
             cache = BiocFileCache::BiocFileCache(cache_path),
             AnVIL::Service(
@@ -61,6 +61,9 @@ BEDbase <- function(cache_path) {
             )
         )
     )
+    info <- httr::content(api$list_beds_v1_bed_list_get(limit = 0, offset = 0))
+    message(paste(info$count, "bed files available."))
+    api
 }
 
 #' @rdname BEDbase

diff --git a/man/BEDbase.Rd b/man/BEDbase.Rd
diff --git a/man/bb_save.Rd b/man/bb_save.Rd