R/getMatchingSources.R

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

getMatchingSources <- function(identifier) {
    set <- .jcall(
        "org/bridgedb/DataSourcePatterns",
        "Ljava/util/Set;",
        "getDataSourceMatches", identifier
    )
    str <- strsplit(set$toString(), "\\[")
    str <- strsplit(str[[1]][2], "\\]")
    str <- strsplit(str[[1]][1], ", ")
    unlist(str)
}