pasture_embed_usage.rmd

---
runtime: shiny
output: html_document

---

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

# download metrics from shinyapps.io

library(tidyverse)
library(lubridate)

# http://docs.rstudio.com/shinyapps.io/metrics.html#ApplicationMetrics
df <- rsconnect::showMetrics("container_status",
                             c("connect_count", 
                               "connect_procs"),
                             appName="pasture_embed",
                             server="shinyapps.io",
                             account="dairynz",
                             from="26w",
                             interval="1m"
                             ) 

df1 <- df %>% 
  mutate(date=as_datetime(timestamp)) %>% 
  select(-timestamp) %>% 
  arrange(date) %>% 
  mutate(
    n_count=cumsum(connect_count),
    n_procs=cumsum(connect_procs),
    new_connect=case_when(
      is.na(lag(connect_count,1)) ~ 0,
      connect_count>lag(connect_count,1) ~ connect_count-lag(connect_count,1),
      TRUE ~ 0),
    n_connect=cumsum(new_connect) # approximate
  ) %>% 
  filter(n_count>0)

df2 <- df1 %>%  
  select(n_connect, date) %>% 
  gather(key="key", value="value", -date)

p2 <- ggplot(df2) +
  labs(title="Cumulative Connections", x="", y="") +
  geom_line(aes(x=date, y=value, colour=key)) +
  facet_wrap(~key)

print(p2)

```

```{r output_plot, eval=TRUE, echo=FALSE}

#### create histograms ####

output$p2 <- renderPlot({

  p2

}) # end renderPlot
  
# show histogram
shinyUI(fluidPage(

    fluidRow(
      
      plotOutput("p2")
      
    ) # end fluidRow
  
)) # end fluidPage

```

<!-- this comment was important!!!! -->