inst/unitTests/test_queryRegulome.R

In izhbannikov/haploR: Query 'HaploReg', 'RegulomeDB'

test_queryRegulome <- function() {
    ## Test vector of SNPs
    url <- "http://www.regulomedb.org/"
    x <- url.exists(url)
    if(x) {
        x <- regulomeSummary(c("rs4791078","rs10048158"), timeout = 100000)
    } else {
        print(paste("WARNING:", url, "not exists"))
    }
}