R/getDataSource.R

In egonw/BridgeDbR: Code for using BridgeDb identifier mapping framework from within R

getDataSource <- function(name = NA, code = NA, prefix = NA) {
    datasource <- NULL
    if (!is.na(prefix)) {
        datasource <- .jcall(
            "org/bridgedb/DataSource",
            "Lorg/bridgedb/DataSource;",
            "getExistingByBioregistryPrefix", prefix
        )
    } else if (!is.na(name)) {
        datasource <- .jcall(
            "org/bridgedb/DataSource",
            "Lorg/bridgedb/DataSource;",
            "getExistingByFullName", name
        )
    } else if (!is.na(code)) {
        datasource <- .jcall(
            "org/bridgedb/DataSource",
            "Lorg/bridgedb/DataSource;",
            "getExistingBySystemCode", code
        )
    } else {
        stop("You must provide either a name or a system code")
    }
    datasource
}