In kmasiello/rscview: Create Admin Dashboards for Connect

library(rscview)
library(connectapi)
library(pins)
library(qs)

check_envvars()

conn <- 
  connectapi::connect(
    host = Sys.getenv("CONNECT_SERVER"),
    api_key = Sys.getenv("CONNECT_API_KEY")
  )

Pull Audit Logs

start_time <- Sys.time()
logs <- get_audit_logs(conn, limit = Inf) 
end_time <- Sys.time()
duration <- end_time - start_time

Info: get_audit_logs took r paste(round(duration[[1]], 2), units(duration)) to run.

Pin to RStudio Connect

board <- pins::board_rsconnect()

create_pin(logs, description = "Results pulled via `connectapi::get_audit_logs()` for audit reports", type = "qs")


#prune versions to keep server from exploding
board %>% pin_versions_prune("katie.masiello/logs", n=4)

# TO DO: add a create_tag to collect all the pins and dashboards

# TO DO: add in a set_schedule command

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