R/hub_accessor_factory.R

In waldronlab/HMP16SData: 16S rRNA Sequencing Data from the Human Microbiome Project

#' @keywords internal
#'
#' @importFrom ExperimentHub ExperimentHub
hub_accessor_factory <- function(ehid) {
    force(ehid)

    function(metadata = FALSE) {
        eh <- ExperimentHub()

        if (metadata) {
            eh[ehid]
        } else {
            eh[[ehid]]
        }
    }
}