R/utils.R

Defines functions mrkToUrl validUrl

mrkToUrl <- function(x)
    gsub("^\\**\\[.+\\]\\((.+)\\).*$", "\\1", x)

validUrl <- function(x) {
        got <- httr::GET(x)
        httr::stop_for_status(got)
        TRUE
}
ComputationalProteomicsUnit/cputools documentation built on May 6, 2019, 12:50 p.m.