R/ccdb_down.R

In ropensci/chromer: Interface to Chromosome Counts Database API

# taken from https://stackoverflow.com/a/60627969
ccdb_down <- function(url_in="https://taux.evolseq.net/CCDB_web/services/",timeout=2){
  con <- url(url_in)
  check <- suppressWarnings(try(open.connection(con,open="rt",timeout=timeout),silent=TRUE)[1])
  suppressWarnings(try(close.connection(con),silent=TRUE))
  ifelse(is.null(check),FALSE,TRUE)
}