In kmasiello/rscview: Create Admin Dashboards for Connect

library(rscview)
library(flexdashboard)
library(connectapi)
library(tidyverse)
library(lubridate)
library(DT)
library(reactable)
library(pins)

check_envvars()

# conn <- create_connection()
board <- board_rsconnect()
group_members_tbl <- board %>% pin_read("katie/group_members_tbl") 
group_names_tbl <- board %>% pin_read("katie/group_names_tbl")
group_count <- group_names_tbl %>% select(group_name) %>% unique() %>% nrow()
groups_summary <- get_groups_summary(group_names_tbl = group_names_tbl, group_members_tbl=group_members_tbl)

Row

Number of Groups

valueBox(group_count)

Groups

gt::gt(groups_summary)

Row{.tabset .tabset-fade}

Connect Admin

make_table <- function(x) {
  reactable(
  filter(group_members_tbl, group_name == x), searchable = TRUE, highlight = TRUE,
  filterable = TRUE, width = "100%"
  )
}
make_table("Connect Admin")

Default

make_table("Default")

Developer

make_table("Developer")

Solutions Engineer

make_table("Solutions Engineer")

Staging

make_table("Staging")

Test Role

make_table("Test Role")

List of Groups a User is in

#what groups is a user in
#this is not very elegant. I'm sure it can be jazzed up, but the idea is have an interactive means of finding groups a person is in
textInput("username", label = h3("Enter username"))

renderText({ 
    paste("Scroll waaay down to see result for username:", input$username)
  })

renderTable({
  filter(group_members_tbl, username == input$username) %>%
  select(group_name, user_role)
})

#For some reason, this wont run by itself but if it and renderTable are active, both will run. 
# renderDataTable({
#   filter(group_members_tbl, username == input$username) %>%
#   select(group_name, user_role)
#   
#   })