rsc-usage.Rmd

---
title: "RStudio Connect Usage - Last `r as.numeric(Sys.getenv('DAYSBACK', 30))` Days"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    css: styles.css
---
```{r preflight_check, results='asis', include=TRUE}
if (
  nchar(Sys.getenv("CONNECT_SERVER")) == 0 ||
  nchar(Sys.getenv("CONNECT_API_KEY")) == 0
) {
  print(htmltools::h4("ERROR: Variables Not Defined"))
  print(htmltools::div(
    "The CONNECT_SERVER and CONNECT_API_KEY",
    "environment variables are required in order for this report",
    "to pull usage data.",
    htmltools::br(),
    htmltools::br(),
    "Please define these variables",
    "and then re-run the report.",
    htmltools::br(),
    htmltools::br(),
    style = "max-width: 600px"
  ))
  knitr::knit_exit("Terminating the report early.")
}
```

```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(DT)
library(plotly)
library(ggplot2)
library(shiny)
library(lubridate)
library(blastula)
library(prettyunits)
library(connectapi)

source("themes.R")

days_back <- as.numeric(Sys.getenv("DAYSBACK", 30))

default_content_title <- "Unknown (Deleted Content?)"

report_from <- lubridate::today() - lubridate::ddays(days_back)

client <- connect()
shiny <- get_usage_shiny(
  client,
  from = report_from,
  limit = Inf
) %>%
  mutate(
    started = lubridate::ymd_hms(started),
    ended = lubridate::ymd_hms(ended),
    session_duration = ended - started
    ) %>%
  filter(session_duration > lubridate::dseconds(5))
content <- get_usage_static(
  client,
  from = report_from,
  limit = Inf
)

all_users <- get_users(client, page_size = 500)

data <-   list(shiny = shiny, content = content)

```


This content summary may contain privileged information. The report is generated
using the [RStudio Connect Server API](http://docs.rstudio.com/connect/api) and
the source code is [available online](https://github.com/sol-eng/connect-usage)
if you'd like to customize your analysis. Data is limited to the last `r
days_back` days.

The report uses the environment variables `CONNECT_SERVER` and `CONNECT_API_KEY`
to collect the data. To limit the results to a single publisher, use a publisher
API key.

Column 
-----------------------------------------------------------------------

### Shiny Sessions by User (Top 5)

```{r shiny_by_user}
data$shiny %>%
    group_by(user_guid) %>% 
    summarise(visits = n()) %>% 
    left_join(all_users, by = c(user_guid = "guid")) %>%
    mutate(username = coalesce(username, "anonymous")) %>%
    select(username, visits) %>% 
    arrange(desc(visits)) %>% 
    head(5) %>% 
    {ggplot(., aes(reorder(username, visits), visits)) + 
     geom_bar(stat = "identity") +  
     coord_flip() + 
     theme_rstudio() + 
     labs(
       y = "Number of Shiny Sessions",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    config(displayModeBar = F)
```

### Static Content Hits by User (Top 5)

```{r static_by_user}
data$content %>%
    group_by(user_guid) %>% 
    summarise(visits = n()) %>% 
    left_join(all_users, by = c(user_guid = "guid")) %>%
    mutate(username = coalesce(username, "anonymous")) %>% 
    select(username, visits) %>% 
    arrange(desc(visits)) %>% 
    head(5) %>% 
    {ggplot(., aes(reorder(username, visits), visits)) + 
     geom_bar(stat = "identity") +  
     coord_flip() + 
     theme_rstudio() +
     labs(
       y = "Number of Content Visits",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    config(displayModeBar = F)
```



Column 
-----------------------------------------------------------------------

### Shiny Sessions Over Time

```{r shiny_over_time}
data$shiny %>%
    mutate(day = round_date(started, "day")) %>% 
    group_by(day) %>% 
    filter(day > today() - ddays(days_back)) %>% 
    summarise(visits = n()) %>% 
    arrange(desc(visits)) %>% 
    {ggplot(., aes(day, visits)) + 
     geom_point() +
     geom_smooth(se = FALSE) +
     theme_rstudio() + 
     labs(
       y = "# of Shiny Sessions",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    config(displayModeBar = F)
```


### Static Content Visits Over Time

```{r static_over_time}
data$content %>%
    mutate(time = ymd_hms(time),
          day = round_date(time, "day")) %>% 
    group_by(day) %>% 
    filter(day > today() - ddays(days_back)) %>% 
    summarise(visits = n()) %>% 
    arrange(desc(visits)) %>% 
    {ggplot(., aes(day, visits)) + 
     geom_point() +
     geom_smooth(se = FALSE) +
     theme_rstudio() + 
     labs(
       y = "Content Hits",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    config(displayModeBar = F)
```

Column 
-----------------------------------------------------------------------

### Top Applications

```{r top_shiny}
data$shiny %>% 
  group_by(content_guid) %>% 
  summarize(visits = n()) %>% 
  arrange(desc(visits)) %>% 
  head() %>% 
  mutate(name = purrr::map_chr(content_guid, ~ content_title(client, .x, default_content_title))) %>% 
  {ggplot(., aes(reorder(stringr::str_wrap(name, 30), visits), visits)) + 
     geom_bar(stat = "identity") +  
     coord_flip() + 
     theme_rstudio() + 
     labs(
       y = "# of Shiny Sessions",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    layout(margin = list(l = 0)) %>%
    config(displayModeBar = F)
```

### Top Static Content

```{r top_static}
data$content %>% 
  group_by(content_guid) %>% 
  summarize(visits = n()) %>% 
  arrange(desc(visits)) %>% 
  head() %>%
  mutate(name = purrr::map_chr(content_guid, ~ content_title(client, .x, default_content_title))) %>% 
  {ggplot(., aes(reorder(stringr::str_wrap(name, 30), visits), visits)) + 
     geom_bar(stat = "identity") +  
     coord_flip() + 
     theme_rstudio() + 
     labs(
       y = "Content Hits",
       x = NULL
     )} %>% 
    ggplotly(tooltip = c("y")) %>% 
    layout(margin = list(l = 0)) %>%
    config(displayModeBar = F)
```


```{r render_custom_email}
render_connect_email(input = "usage-email.Rmd") %>%
  attach_connect_email(
    subject =  sprintf(" Content Usage Report For %s", month(today(), label = TRUE, abbr = FALSE)),
    attach_output = TRUE
  )
```