R/account-find.R

In rstudio/rsconnect: Deploy Docs, Apps, and APIs to 'Posit Connect', 'shinyapps.io', and 'RPubs'

# Return a list containing the name and server associated with a matching account.
#
# Use `accountInfo()` and `findAccountInfo()` to load credentials associated with this account.
findAccount <- function(accountName = NULL, server = NULL, error_call = caller_env()) {
  check_string(accountName, allow_null = TRUE, arg = "account", call = error_call)
  check_string(server, allow_null = TRUE, call = error_call)

  accounts <- accounts()
  if (nrow(accounts) == 0) {
    cli::cli_abort(
      c(
        "No accounts registered.",
        i = "Call {.fun rsconnect::setAccountInfo} to register an account."
      ),
      call = error_call
    )
  }

  if (!is.null(accountName) && !is.null(server)) {
    theseAccounts <- accounts[accounts$server == server & accounts$name == accountName, , drop = FALSE]
    if (nrow(theseAccounts) == 0) {
      cli::cli_abort(
        c(
          "Can't find account with {.arg name} = {.str {accountName}} and {.arg server} = {.str {server}}",
          i = "Call {.fun accounts} to see available options."
        ),
        call = error_call
      )
    }
  } else if (is.null(accountName) && !is.null(server)) {
    theseAccounts <- accounts[accounts$server == server, , drop = FALSE]
    if (nrow(theseAccounts) == 0) {
      cli::cli_abort(
        c(
          "Can't find any accounts with {.arg server} = {.str {server}}.",
          i = "Known servers are {.str {unique(accounts$server)}}."
        ),
        call = error_call
      )
    } else if (nrow(theseAccounts) > 1) {
      cli::cli_abort(
        c(
          "Found multiple accounts for {.arg server} = {.str {server}}.",
          "Please disambiguate by setting {.arg account}.",
          i = "Known account names are {.str {theseAccounts$name}}."
        ),
        call = error_call
      )
    }
  } else if (!is.null(accountName) && is.null(server)) {
    theseAccounts <- accounts[accounts$name == accountName, , drop = FALSE]
    if (nrow(theseAccounts) == 0) {
      cli::cli_abort(
        c(
          "Can't find any accounts with {.arg account} = {.str {accountName}}.",
          i = "Available account names: {.str {unique(accounts$name)}}."
        ),
        call = error_call
      )
    } else if (nrow(theseAccounts) > 1) {
      cli::cli_abort(
        c(
          "Found multiple accounts for {.arg account} = {.str {accountName}}.",
          "Please disambiguate by setting {.arg server}.",
          i = "Available servers: {.str {theseAccounts$server}}."
        ),
        call = error_call
      )
    }
  } else {
    theseAccounts <- accounts

    if (nrow(theseAccounts) > 1) {
      if (is_interactive()) {
        labels <- accountLabel(accounts$name, accounts$server)
        choice <- cli_menu(
          "Found multiple accounts.",
          "Which one do you want to use?",
          labels
        )
        theseAccounts <- theseAccounts[choice, , drop = FALSE]
      } else {
        cli::cli_abort(
          c(
            "Found multiple accounts.",
            "Please disambiguate by setting {.arg server} and/or {.arg account}.",
            i = "Available servers: {.str {unique(theseAccounts$server)}}.",
            i = "Available account names: {.str {unique(theseAccounts$name)}}."
          ),
          call = error_call
        )
      }
    }

  }
  as.list(theseAccounts)
}