gh_update <- function() {
local_version <- NULL
remote_version <- NULL
url <- paste0("https://raw.github.com/jjlynch2/QA3D/master/DESCRIPTION")
tryCatch({
x <- readLines(url)
}, error=function(e){})
if(exists("x")) {
remote_version <- gsub("Version:\\s*", "", x[grep('Version:', x)])
local_version <- packageVersion("QA3D")
local_version <- unlist(local_version)
local_version <- paste(local_version[1], local_version[2], local_version[3], sep=".")
}
return(list(remote_version, local_version))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.