Merge pull request #448 from ronomal/patch-2

fixed use of isShinyapps in showUsers
rstudio · Aug 17, 2020 · 1306eed · 1306eed
2 parents 87fec3d + 0f43ced
commit 1306eed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/auth.R b/R/auth.R
@@ -146,7 +146,7 @@ showUsers <- function(appDir=getwd(), appName=NULL, account = NULL,
   # resolve account
   accountDetails <- accountInfo(resolveAccount(account, server), server)
 
-  if (!isShinyapps(accountDetails)) {
+  if (!isShinyapps(accountDetails$server)) {
     stop("This method only works for ShinyApps servers.")
   }