inst/reports/user-report/deleteme/get_logs.R

conn <-
  connectapi::connect(
    host = Sys.getenv("CONNECT_SERVER"),
    api_key = Sys.getenv("CONNECT_API_KEY")
  )
logs <- connectapi::get_audit_logs(conn, limit = Inf)
filename <- paste0("logs_", lubridate::today(), ".rds")
readr::write_rds(logs, file = filename)
kmasiello/rscview documentation built on Jan. 3, 2023, 2:58 p.m.