Nothing
#' @title Retrieve available database releases or versions
#' of ENSEMBL
#' @description Retrieve available database releases or versions of
#' ENSEMBL.
#' @param db a character string specifying the database from which
#' available resease versions shall be retrieved:
#' \itemize{
#' \item \code{db = "ensembl"}
#' }
#' @author Hajk-Georg Drost
#' @examples
#' \dontrun{
#' # retrieve available resease versions of ENSEMBL
#' getReleases("ensembl")
#' }
#' @export
getReleases <- function(db = "ensembl") {
if (!is.element(db, c("ensembl")))
stop(
"Please select one of the available databases: 'ensembl'.",
call. = FALSE
)
if (db %in% c("ensembl", "ensemblgenomes")) {
tryCatch({
current_release <- ensembl_current_release()
}, error = function(e)
message(
"The ensembl rest API '", ensembl_rest_url(), "' does not seem to be reachable.
Could you please check whether you are connected to the internet?
Is it possible to access the homepage '", ensembl_rest_url(),
"' via your browser?"
))
message("The current ENSEMBL release is release-", current_release, ".")
return(paste0("release-", seq_len(current_release)))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.