R/get_user_current_tbl.R

In kmasiello/rscview: Create Admin Dashboards for Connect

#' Get current user table
#'
#' @param conn the Connect server connection details containing the server and API key
#' @param user_historical_tbl  the Historical Users Table
#'
#' @return a tibble
#' @export
#'
get_user_current_tbl <- function(user_historical_tbl = historical_users) {
  user_historical_tbl %>%
    filter(count_as_licensed_named_user == TRUE)

}