Merge branch 'release'

Author: andrie

DESCRIPTION

@@ -16,13 +16,13 @@ Description: The goal of checkpoint is to solve the problem of package
     Immediately after completion of the rsync mirror process, we take a
     snapshot, thus creating the archive. Snapshot archives exist starting from
     2014-09-17.
-Version: 0.3.5
-Date: 2015-01-22
+Version: 0.3.6
+Date: 2015-01-27
 Author: Revolution Analytics
 Maintainer: Andrie de Vries <[email protected]>
 Copyright: Revolution Analytics
 License: GPL-2
-URL: https://github.com/RevolutionAnalytics/checkpoint
+URL: http://projects.revolutionanalytics.com/documents/rrt/rrtpkgs/
 BugReports: http://www.github.com/RevolutionAnalytics/checkpoint/issues
 Depends:
     R(>= 3.1.1)

R/checkpoint.R

@@ -79,20 +79,29 @@ checkpoint <- function(snapshotDate, project = getwd(), verbose=TRUE, use.knitr
 
   if(length(packages.to.install) > 0) {
     mssg(verbose, "Installing packages used in this project ")
-    suppressWarnings(
-      utils::install.packages(pkgs = packages.to.install, verbose = FALSE, quiet = TRUE)
-    )
+    for(pkg in packages.to.install){
+      if(pkg %in% unname(installed.packages()[, "Package"])) {
+        mssg(verbose, " - Previously installed ", sQuote(pkg))
+      } else {
+        mssg(verbose, " - Installing ", sQuote(pkg))
+        suppressWarnings(
+          utils::install.packages(pkgs = pkg, verbose = FALSE, quiet = TRUE)
+        )
+      }
+    }
   } else if(length(packages.detected > 0)){
     mssg(verbose, "All detected packages already installed")
   } else {
     mssg(verbose, "No packages found to install")
   }
-
+  
   # Reload detached packages
   if(length(packages.in.search > 0)){
     lapply(packages.in.search, library, character.only = TRUE, quietly = TRUE)
   }
 
+  mssg(verbose, "checkpoint process complete")
+  mssg(verbose, "---")
   invisible(NULL)}
 
 setMranMirror <- function(snapshotDate, snapshotUrl = checkpoint:::getSnapShotUrl(snapshotDate)){