Deleting an application in shinyapps.io causes a 404 when re-deploying

[jspiewak]

Once an application has been deployed, the dcf files stores the application id which is used for subsequent interactions. If the application is deleted via browser interaction, further rsconnect calls result in a 404 error because the application is no longer server side. The current work around is to manually delete the dcf file, usually after having had to ask for help in a forum.

Consider handling 404 errors explicitly with a more informative message or actually removing the dcf file itself.

[jmcphers]

@adamconroy This might be an easy addition to metadata sync (i.e. whatever code you write which detects deleted apps and deletes their local records could be invoked prior to publish, too)

[jmcphers]

See also feedback in #331.

[hadley]

Note to self:

# look in stash for other changes

getApplicationForDeployment <- function(client, target) {
  tryCatch(
    client$getApplication(target$appId),
    rsconnect_http_404 = function(err) {
      applicationDeleted(client, target)
    }
  )
}

applicationDeleted = function(client, target, recordPath)
  header <- "Failed to find existing application on server; it's probably been deleted."
  not_interactive <- "Use {.fn forgetDeployment} to remove outdated record and try again."
  prompt <- "What do you want to do?"
  choices <- c(
    "Give up and try again later",
    "Delete existing deployment & create a new app"
  )

  cli_menu(header, prompt, choices, not_interactive = not_interactive, quit = 1)
  # Must be option 2
  
  path <- deploymentConfigFile(recordPath, target$appName, target$account, target$server)
  unlink(path)

  accountDetails <- accountInfo(target$account, target$server)
  client$createApplication(
    target$appName,
    target$appTitle,
    "shiny",
    accountDetails$accountId
  )
}