tasks() and taskLog() are only for shinyapps.io and posit.cloud (#1087)

trim listTasks() and killTask() from the Connect client - non-APIs
trim getTask() from the Connect client - waitForTask is used

R/client-connect.R

@@ -102,23 +102,6 @@ connectClient <- function(service, authInfo) {
       GET(service, authInfo, paste0("/applications/", applicationId))
     },
 
-    ## Tasks API
-
-    listTasks = function() {
-      path <- "/tasks"
-      GET(service, authInfo, path)
-    },
-
-    getTask = function(taskId) {
-      path <- file.path("/tasks", taskId)
-      GET(service, authInfo, path)
-    },
-
-    killTask = function(taskId) {
-      path <- file.path("/tasks", taskId, "kill")
-      POST_JSON(service, authInfo, path, list())
-    },
-
     waitForTask = function(taskId, quiet = FALSE) {
       start <- 0
       while (TRUE) {

R/tasks.R

@@ -18,11 +18,14 @@
 #'
 #' }
 #' @seealso [taskLog()]
+#' @note This function works only with shinyapps.io and posit.cloud.
 #' @export
 tasks <- function(account = NULL, server = NULL) {
 
   # resolve account and create connect client
   accountDetails <- accountInfo(account, server)
+  checkCloudServer(accountDetails$server)
+
   client <- clientForAccount(accountDetails)
 
   # list tasks
@@ -55,10 +58,13 @@ tasks <- function(account = NULL, server = NULL) {
 #'
 #' }
 #' @seealso [tasks()]
+#' @note This function works only with shinyapps.io and posit.cloud.
 #' @export
 taskLog <- function(taskId, account = NULL, server = NULL, output = NULL) {
 
   accountDetails <- accountInfo(account, server)
+  checkCloudServer(accountDetails$server)
+
   client <- clientForAccount(accountDetails)
 
   if (identical(output, "stderr")) {