From f43bdcf3347f46a44d6aebe441adac88a9070893 Mon Sep 17 00:00:00 2001
From: JJ Allarie <jj@rstudio.org>
Date: Fri, 4 Oct 2013 14:42:18 -0400
Subject: [PATCH] improve formatting of application update prompt

---
 R/deployApp.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/deployApp.R b/R/deployApp.R
index 4df720e..9b668a2 100644
--- a/R/deployApp.R
+++ b/R/deployApp.R
@@ -237,7 +237,7 @@ applicationForTarget <- function(lucid, accountInfo, target) {
   # if there is no record of deploying this application locally however there
   # is an application of that name already deployed then confirm
   if (!target$isUpdate && !is.null(app) && interactive()) {
-    prompt <- paste("\nUpdate existing application at ", app$url,
+    prompt <- paste("\nUpdate application currently deployed at\n", app$url,
                     "? [Y/n] ", sep="")
     input <- readline(prompt)
     if (nzchar(input) && !identical(input, "y") && !identical(input, "Y"))