#' @title Get available years in PRIDE archive
#' @export
getArchiveYears <- function(){
prideFTP <- 'ftp://ftp.pride.ebi.ac.uk/pride/data/archive/'
content <- getMeta(uri = prideFTP)
years <- sapply(content, getLast)
years <- onlyNumeric(years)
return(years)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.