Content RunAs

RunAs Unix accounts in use

This recipe contains an R Markdown document that presents a table detailing the number of content items deployed to a Posit Connect server that have been configured to use a custom RunAs Unix account.

The document uses the GET /v1/content endpoint to obtain information about content. This API call returns every content item visible to your API key.

---
title: "RunAs in Use"
---

This document analyzes the `RunAs` settings assigned to run content on the
Posit Connect server. The table presents the number of unique content items
currently using each `RunAs` Unix account. Content using the default `RunAs`
account is reported with an `NA` value.


```{r setup, echo = FALSE, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r libraries, echo = FALSE, message = FALSE}
library(httr)
library(jsonlite)
library(magrittr)
library(dplyr)
library(knitr)

# Ignore summarise telling us about the grouping.
options(dplyr.summarise.inform = FALSE)
```

```{r verification, echo = FALSE}
# Confirm that environment variables are available.
connectServer <- Sys.getenv("CONNECT_SERVER")
if (nchar(connectServer) == 0) {
  stop("Set the CONNECT_SERVER environment variable.")
}
connectAPIKey <- Sys.getenv("CONNECT_API_KEY")
if (nchar(connectAPIKey) == 0) {
  stop("Set the CONNECT_API_KEY environment variable.")
}
contentURL <- paste0(connectServer, "/__api__/v1/content")
```

```{r fetch, echo = FALSE}
# Fetch all content items from Posit Connect.
res <- httr::GET(
  contentURL,
  httr::add_headers(Authorization = paste("Key", connectAPIKey)),
  httr::write_memory()
)
if (httr::http_error(res)) {
  err <- sprintf(
    "%s request failed with %s",
    res$request$url,
    httr::http_status(res)$message
  )
  message(capture.output(str(httr::content(res))))
  stop(err)
}
payload <- httr::content(res, as = "text")
apps <- jsonlite::fromJSON(payload, simplifyDataFrame = TRUE)
```

```{r report, echo = FALSE}
# Report the number of content items with each RunAs user.
RunAs.accounts <- apps %>% 
  select(run_as) %>% 
  group_by(run_as) %>% 
  summarise(N = n()) %>% 
  arrange(desc(run_as)) %>%
  ungroup()

kable(RunAs.accounts)
```