Show `userLicenseType` in getDatabaseUsers() (Ticket: 8786)

[Ryo-N7]

Hi all,

This is already a ticket and I know you guys are working on it but since I made my own changes recently, I thought I'd contribute along with a few other minor improvements.

• inviteTime has been changed to inviteDate in the API output, so that's reflected here
• i've also added lastLoginDate with the use of the null2na() helper function since those may be NULL for users who haven't accepted their invite yet.
• activationStatus
• then of course I've set userLicenseType as well.

    null2na <- function(y) if (is.null(y) || !nzchar(y)) NA else y

    usersDF <- data.frame(
      databaseId = unlist(lapply(users, function(x) {x$databaseId})),
      userId = unlist(lapply(users, function(x) {x$userId})),
      name = unlist(lapply(users, function(x) {x$name})),
      email = unlist(lapply(users, function(x) {x$email})),
      version = unlist(lapply(users, function(x) {x$version})),
      inviteDate = as.Date(unlist(lapply(users, function(x) {x$inviteDate}))),
      lastLoginDate = as.Date(unlist(lapply(users, function(x) null2na(x$lastLoginDate)))),
      deliveryStatus = unlist(lapply(users, function(x) {x$deliveryStatus})),
      inviteAccepted = unlist(lapply(users, function(x) {x$inviteAccepted})),
      activationStatus = unlist(lapply(users, function(x) {x$activationStatus})),
      userLicenseType = unlist(lapply(users, function(x) {x$userLicenseType}))
      # role = lapply(users, function(x) {x$role})
    )