https://github.com/cran/statnet
Tip revision: 8b432c0835af0f00d799efb2a9ce3b28c9cc51d5 authored by Pavel N. Krivitsky on 09 May 2013, 00:00:00 UTC
version 3.1-0
version 3.1-0
Tip revision: 8b432c0
update_statnet.R
update_statnet <- function(..., ask = FALSE, checkBuilt=TRUE, addURLs = character()){
if(length(addURLs)) setRepositories(addURLs = addURLs)
update.packages(oldPkgs=c("statnet", "statnet.common", "network", "sna", "ergm",
"networkDynamic", "tsna", "tergm", "ndtv", "relevent",
"ergm.ego", "ergm.count", "ergm.rank", "latentnet", "EpiModel",
"networksis", "degreenet"), ask = ask, checkBuilt = checkBuilt, ...)
}
check.updates <- function(show=TRUE) {
ap <- installed.packages()
deps <- package_dependencies('statnet', which=c('Depends','Imports','Suggests'), db = ap, recursive = F)[[1]]
deps <- c('statnet', deps)
olds <- tryCatch({old.packages()},
error = function(e) {
message('unable to reach CRAN')
NULL
})
if (is.null(olds)) return(NULL)
olds.statnet <- olds[rownames(olds) %in% deps, c(3,5,4), drop=FALSE]
if (show) {
if (nrow(olds.statnet) > 0) {
message("\nThere are updates for the following statnet packages on CRAN:")
print(olds.statnet)
message("Restart R and use \"statnet::update_statnet()\" to get the updates.")
}
} else {
return(olds.statnet)
}
}