Add api_header

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(.BEDbase)
 export(bb_bed_text_search)
 export(bb_beds_in_bedset)
 export(bb_example)
@@ -9,6 +10,7 @@ export(bb_metadata)
 export(bb_to_granges)
 export(bb_to_grangeslist)
 export(bedbaser)
+exportClasses(BEDbase)
 importFrom(AnVIL,Service)
 importFrom(BiocFileCache,BiocFileCache)
 importFrom(BiocFileCache,bfcadd)

R/bedbaser.R

@@ -1,3 +1,14 @@
+#' BEDbase class
+#' 
+#' @importFrom methods new
+#' 
+#' @export
+.BEDbase <- setClass(
+  "BEDbase",
+  contains = "Service"
+)
+
+
 #' @rdname bedbaser
 #'
 #' @title An R client for BEDbase
@@ -8,7 +19,7 @@
 #'
 #' @details
 #'
-#' The main functions are as follows
+#' The convenience functions are as follows
 #' * `bedbaser::bedbaser()`: API constructor
 #' * `bedbaser::bb_example()`: Retrieve an example BED file or BEDset
 #' * `bedbaser::bb_metadata()`: Retrieve metadata for a BED file or BEDset
@@ -34,13 +45,22 @@ bedbaser <- function() {
         Service(
             service = "BEDbase",
             host = "api.bedbase.org",
+            api_reference_version = .BEDBASE_API_REFERENCE_VERSION,
             authenticate = FALSE,
             api_url = "https://api.bedbase.org/openapi.json",
             package = "bedbaser"
         )
     )
 }
 
+
+## Copied from the AnVIL package
+.api_header <- function(api) api@api_header
+
+.BEDBASE_API_REFERENCE_VERSION <- "0.5.0"
+
+
+
 #' Get the example BED file or BEDset with metadata
 #'
 #' @param api API object of BEDbase created from bedbaser()