Don't look up application by name on cloud

Fixes #808
rstudio · May 2, 2023 · 9412daa · 9412daa
1 parent 125e8f0
commit 9412daa
Showing 1 changed file with 14 additions and 11 deletions.
diff --git a/R/deploymentTarget.R b/R/deploymentTarget.R
@@ -26,17 +26,20 @@ deploymentTarget <- function(recordPath = ".",
     }
 
     appId <- NULL
-    # Have we previously deployed elsewhere?
-    existing <- applications(fullAccount$name, fullAccount$server)
-    if (appName %in% existing$name) {
-      thisApp <- existing[appName == existing$name, , drop = FALSE]
-      uniqueName <- findUnique(appName, existing$name)
-
-      if (shouldUpdateApp(thisApp, uniqueName, forceUpdate)) {
-        appId <- thisApp$id
-        appName <- thisApp$name
-      } else {
-        appName <- uniqueName
+    if (!isCloudServer(fullAccount$server)) {
+      # Have we previously deployed elsewhere? We can't do this on cloud
+      # because it assigns random app names (see #808 for details).
+      existing <- applications(fullAccount$name, fullAccount$server)
+      if (appName %in% existing$name) {
+        thisApp <- existing[appName == existing$name, , drop = FALSE]
+        uniqueName <- findUnique(appName, existing$name)
+
+        if (shouldUpdateApp(thisApp, uniqueName, forceUpdate)) {
+          appId <- thisApp$id
+          appName <- thisApp$name
+        } else {
+          appName <- uniqueName
+        }
       }
     }