Nothing
extract.ver <- function(x) {
ver.list <- strsplit(x, "\\.")
ver.unit <- ver.list[[1]][1]
if(length(grep("-", ver.list[[1]][2]))>0) {
ver.dec.list <- strsplit(ver.list[[1]][2], "-")
ver.dec <- ver.dec.list[[1]][1]
ver.bug <- ver.dec.list[[1]][2]
return(c(ver.unit, ver.dec, ver.bug))
}
ver.dec <- ver.list[[1]][2]
return(c(ver.unit, ver.dec))
}
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.