Merge pull request #65 from rstudio/feature/restart-app

add restartApp function

DESCRIPTION

@@ -32,3 +32,4 @@ Collate:
     'terminateApp.R'
     'configureApp.R'
     'tasks.R'
+    'restartApp.R'

NAMESPACE

@@ -10,6 +10,7 @@ export(deployments)
 export(hr)
 export(removeAccount)
 export(removeAuthorizedUser)
+export(restartApp)
 export(scaleApp)
 export(setAccountInfo)
 export(taskLog)

R/deployApp.R

@@ -50,7 +50,7 @@
 #' deployApp(launch.browser = FALSE)
 #' }
 #' @seealso \code{\link{applications}}, \code{\link{terminateApp}}, and
-#'   \code{\link{scaleApp}}
+#'   \code{\link{restartApp}
 #' @export
 deployApp <- function(appDir = getwd(), 
                       appName = NULL, 

R/lucid.R

@@ -52,7 +52,7 @@ lucidClient <- function(authInfo) {
       handleResponse(POST(authInfo, path, "application/x-gzip", bundlePath))
     },
 
-    deployApplication = function(applicationId, bundleId) {
+    deployApplication = function(applicationId, bundleId=NULL) {
       path <- paste("/applications/", applicationId, "/deploy", sep="")
       json <- list()
       json$bundle <- as.numeric(bundleId)

R/restartApp.R

@@ -0,0 +1,31 @@
+#' Restart an Application
+#' 
+#' Restart an application currently running on ShinyApps.
+#' @param appName Name of application to restart
+#' @param account Account name. If a single account is registered on the 
+#' system then this parameter can be omitted.
+#' @param quiet Request that no status information be printed to the console 
+#'   during the operation.
+#' @examples
+#' \dontrun{
+#' 
+#' # restart an application
+#' restartApp("myapp")
+#' }
+#' @seealso \code{\link{applications}}, \code{\link{deployApp}}, and
+#'   \code{\link{terminateApp}}
+#' @export
+restartApp <- function(appName, account = NULL, quiet = FALSE) {
+
+  # define deploy task
+  taskDef <- list()
+  taskDef$beginStatus <- "Restarting application"
+  taskDef$endStatus <- "Application successfully restarted"
+  taskDef$action <- function(lucid, application) {
+    lucid$deployApplication(application$id)
+  }
+
+  # perform it
+  applicationTask(taskDef, appName, account, quiet)
+}
+

R/terminateApp.R

@@ -13,7 +13,7 @@
 #' terminateApp("myapp")
 #' }
 #' @seealso \code{\link{applications}}, \code{\link{deployApp}}, and
-#'   \code{\link{scaleApp}}
+#'   \code{\link{restartApp}}
 #' @export
 terminateApp <- function(appName, account = NULL, quiet = FALSE) {
 

man/deployApp.Rd

@@ -75,7 +75,7 @@ deployApp(launch.browser = FALSE)
 }
 }
 \seealso{
-  \code{\link{applications}}, \code{\link{terminateApp}},
-  and \code{\link{scaleApp}}
+\code{\link{applications}}, \code{\link{terminateApp}}, and
+\code{\link{restartApp}
 }
 

man/restartApp.Rd

@@ -0,0 +1,31 @@
+\name{restartApp}
+\alias{restartApp}
+\title{Restart an Application}
+\usage{
+restartApp(appName, account = NULL, quiet = FALSE)
+}
+\arguments{
+  \item{appName}{Name of application to restart}
+
+  \item{account}{Account name. If a single account is
+  registered on the system then this parameter can be
+  omitted.}
+
+  \item{quiet}{Request that no status information be
+  printed to the console during the operation.}
+}
+\description{
+Restart an application currently running on ShinyApps.
+}
+\examples{
+\dontrun{
+
+# restart an application
+restartApp("myapp")
+}
+}
+\seealso{
+\code{\link{applications}}, \code{\link{deployApp}}, and
+\code{\link{terminateApp}}
+}
+

man/terminateApp.Rd

@@ -25,7 +25,7 @@ terminateApp("myapp")
 }
 }
 \seealso{
-  \code{\link{applications}}, \code{\link{deployApp}}, and
-  \code{\link{scaleApp}}
+\code{\link{applications}}, \code{\link{deployApp}}, and
+\code{\link{restartApp}}
 }