1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#' Restart an Application
#'
#' Restart an application currently running on a remote server.
#'
#' @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 server Server name. Required only if you use the same account name on
#' multiple servers (see [servers()])
#' @param quiet Request that no status information be printed to the console
#' during the operation.
#' @examples
#' \dontrun{
#'
#' # restart an application
#' restartApp("myapp")
#' }
#' @seealso [applications()], [deployApp()], and
#' [terminateApp()]
#' @note This function works only for ShinyApps servers.
#' @export
restartApp <- function(appName, account = NULL, server = NULL, quiet = FALSE) {
accountDetails <- accountInfo(account, server)
checkShinyappsServer(accountDetails$server)
# define deploy task
taskDef <- list()
taskDef$beginStatus <- "Restarting application"
taskDef$endStatus <- "Application successfully restarted"
taskDef$action <- function(client, application) {
client$deployApplication(application)
}
# perform it
applicationTask(taskDef, appName, accountDetails, quiet)
}
|
