Nothing
# Function to prepare an attributes list
ChronoAttributes <- function(src, details,...){
# general attributes
baseList <- list(src=details$src, ser=details$ser, res=details$resolution, ver=details$ver, datafile=details$datafile, item=details$itemID)
# reference of the archive
baseList$reference <- unlist(strsplit(details$text, "\\|&\\|"))
# the bibtex
if(!is.na(details$bibtex)){
baseList$bibtex <- unlist(strsplit(details$bibtex, "\\|&\\|"))
# replace placeholder with newlines
baseList$bibtex <- gsub("\\|-&-\\|", "\n",baseList$bibtex)
}else{
baseList$bibtex <- NULL
}
# when was the archive downloaded
baseList$downloadDate <- Sys.time()
# when was the archive accessed?
baseList$productDate <- details$productDate
# original version
baseList$infoURL <- details$infoURL
# API call
baseList$API <- details$API
baseList$additional <- list(...)
if(is.null(baseList$info)){
baseList$info <- "https://www.chronosphere.info/"
}
return(baseList)
}
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.