In kmasiello/rscview: Create Admin Dashboards for Connect

library(connectwidgets)
library(dplyr)
library(stringr)

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)

client <- connect(
  server  = Sys.getenv("CONNECT_SERVER"),
  api_key = Sys.getenv("CONNECT_API_KEY")
  )

all_content <- client %>%
  content()

audit <- all_content %>% by_tag(tagnames = "Server Audit")

Dashboards

audit %>% filter(app_mode == "shiny") %>% rsc_card

Other Tools

audit %>% filter(app_mode == "rmd-static", str_detect(title, "Tool")) %>% rsc_table()

Pins

audit %>% filter(app_mode == "static", content_category == "pin") %>% rsc_grid

Pin Generators

audit %>% filter(app_mode == "rmd-static", str_detect(title, "pin-")) %>% rsc_card()

kmasiello/rscview documentation built on Jan. 3, 2023, 2:58 p.m.