R/EGAhtsgetResourceResolver.R

In isglobal-brge/dsOmics: DataSHIELD server site Omic functions

#' EGA htsget resource resolver
#'
#' Build a EGA htsget resource client from a resource object describing access to a 
#' EGA valid credentials, pointing to a VCF or BAM file to be converted into a GDS file.
#'
#' @docType class
#' @format A R6 object of class EGAhtsgetResourceResolver
#' @import resourcer
#' @export
EGAhtsgetResourceResolver <- R6::R6Class(
  "EGAhtsgetResourceResolver",
  inherit = ResourceResolver,
  public = list(
    isFor = function(x) {
      if (super$isFor(x)) {
        !is.null(findFileResourceGetter(x)) && x$format %in% c("EGAhtsgetBAM", "EGAhtsgetVCF",
                                                               "EGACSV")
      } else {
        FALSE
      }
    },
    newClient = function(x) {
      if (self$isFor(x)) {
        EGAhtsgetResourceClient$new(x)
      } else {
        NULL
      }
    }
  )
)