R/rgrs.update.R

In rgrs: Functions to make R usage in social sciences easier (in french)

`rgrs.update` <-
function() {
  installed.rgrs.version <- installed.packages()["rgrs","Version"]
  cat("Version de rgrs sur le systeme :", installed.rgrs.version, "\n")
  remote.rgrs.version <- available.packages(contrib.url("http://r-forge.r-project.org/"))["rgrs","Version"]
  cat("Version de rgrs disponible sur r-forge :", remote.rgrs.version, "\n")
  if (installed.rgrs.version == remote.rgrs.version) cat("Pas de nouvelle version disponible\n")
  else {
    detach(package:rgrs)
    install.packages("rgrs",repos="http://r-forge.r-project.org")
    cat("Extension mise a jour\n")
    library(rgrs)
  }
}