From 3c9d6afe87e96a07196042640bcdb10c5acc9320 Mon Sep 17 00:00:00 2001
From: Andy Kipp <andy@rstudio.com>
Date: Fri, 18 Oct 2013 10:51:15 -0400
Subject: [PATCH] Add redeploy parameter to deployApp

---
 R/deployApp.R | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/R/deployApp.R b/R/deployApp.R
index 0d7bba4..8fab416 100644
--- a/R/deployApp.R
+++ b/R/deployApp.R
@@ -25,6 +25,9 @@
 #'   interactive sessions only.
 #' @param quiet Request that no status information be printed to the console 
 #'   during the deployment.
+#' @param redeploy Re-deploy the current application. If \code{TRUE}, the 
+#'   application is NOT uploaded, rather it is re-deployed using the
+#'   last version that was uploaded.
 #' @examples
 #' \dontrun{
 #' 
@@ -54,7 +57,8 @@ deployApp <- function(appDir = getwd(),
                       account = NULL,
                       launch.browser = getOption("shinyapps.launch.browser",
                                                  interactive()),
-                      quiet = FALSE) {
+                      quiet = FALSE,
+                      redeploy = FALSE) {
    
   if (!isStringParam(appDir))
     stop(stringParamErrorMessage("appDir"))
@@ -82,16 +86,21 @@ deployApp <- function(appDir = getwd(),
   withStatus("Preparing to deploy application", {
     application <- applicationForTarget(lucid, accountInfo, target)
   })
-  
-  # create, upload, and deploy the bundle
-  withStatus("Uploading application bundle", {
-    bundlePath <- bundleApp(appDir)
-    bundle <- lucid$uploadApplication(application$id, bundlePath)
-    task <- lucid$deployApplication(application$id, bundle$id)
-  })
-  
+
+  if (!redeploy) {
+    # create, and upload the bundle
+    withStatus("Uploading application bundle", {
+      bundlePath <- bundleApp(appDir)
+      bundle <- lucid$uploadApplication(application$id, bundlePath)
+    })
+  } else {
+    # redeploy current bundle
+    bundle <- application$bundle
+  }
+
   # wait for the deployment to complete (will raise an error if it can't)
   displayStatus("Deploying application...\n")
+  task <- lucid$deployApplication(application$id, bundle$id)
   lucid$waitForTaskCompletion(task$task_id, quiet)
   displayStatus(paste("Application successfully deployed to", application$url))