R/registerDataSource.R

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

registerDataSource <- function(code = NA, name = NA) {
    datasource <- NULL
    if (is.na(name) || is.na(code)) {
        stop("You must provide both a name or a system code")
    } else {
        builder <- .jcall(
            "org/bridgedb/DataSource",
            "Lorg/bridgedb/DataSource$Builder;",
            "register", code, name
        )
        datasource <- builder$asDataSource()
    }
    datasource
}