Have you looked at the connectapi package? It provides some nice functionality that could help.
For example:
client <- connectapi::connect(
server = Sys.getenv("CONNECT_SERVER"),
api_key = Sys.getenv("CONNECT_API_KEY")
)
client |>
connectapi::get_usage_shiny() |>
dplyr::glimpse()
Rows: 20
Columns: 5
$ content_guid <chr> "5a99fcf5-1294-41f0-b504-d9f7bce47abb", "e4376c1e-b8d6-48cb-b2e0-542b5d473…
$ user_guid <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
$ started <dttm> 2018-12-06 03:10:22, 2018-12-06 03:11:06, 2018-12-06 03:11:32, 2018-12-06…
$ ended <dttm> 2018-12-06 03:10:45, 2018-12-06 03:11:29, 2018-12-06 03:11:55, 2018-12-06…
$ data_version <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Then, if you know the content guid if you dev and production content you can easily determine which app was being used.
Is this on the right track for what your are looking for?