typo in showUsers? "listApplicationAuthoization" causing non-function error

[blakiseskream]

rsconnect/R/auth.R

Line 156 in 050a7f7

res <- api$listApplicationAuthoization(application$id)

Two things,

1. There appears to be a typo in showUsers, where listApplicationAuthoization should read listApplicationAuthorization.

  res <- api$listApplicationAuthorization(application$id)

The code is currently outputting this error because of this,

Error in api$listApplicationAuthoization(application$id) : 
  attempt to apply non-function

2. There is no function on the api object called listApplicationAuthorization. Which means that despite fixing the typo code still doesn't work. Is there another function in the api object that should be used?

# At line 155
 application <- rsconnect:::resolveApplication(accountDetails, appName)
 api <- rsconnect:::clientForAccount(accountDetails)
 str(api)

List of 16
 $ serverSettings      :function ()  
 $ addUser             :function (userRecord)  
 $ getUser             :function (userId)  
 $ currentUser         :function ()  
 $ addToken            :function (token)  
 $ listApplications    :function (accountId, filters = NULL)  
 $ createApplication   :function (name, title, template, accountId)  
 $ terminateApplication:function (applicationId)  
 $ uploadApplication   :function (appId, bundlePath)  
 $ deployApplication   :function (applicationId, bundleId = NULL)  
 $ configureApplication:function (applicationId)  
 $ getApplication      :function (applicationId)  
 $ listTasks           :function ()  
 $ getTask             :function (taskId)  
 $ killTask            :function (taskId)  
 $ waitForTask         :function (taskId, quiet)  

[jmcphers]

I have corrected the typo (though it wasn't really a problem since it matched a typo on the underlying method!)

The real problem here is that you're trying to use this method with a Connect account; it only works with Shinyapps accounts. I have added an error message to make this more clear.

57239c3