Update license action data and plots.

bin/data-plots.R

@@ -8,6 +8,7 @@ library(plotly)
 library(htmlwidgets)
 library(lubridate)
 library(ggrepel)
+library(zoo)
 
 #### Total/State/Class ####
 # Read in total/state/class data
@@ -47,7 +48,11 @@ ae7q_actions <- read.csv("data/ae7q-actions-scraped.csv") %>%
                 arrange(date) %>% 
                 group_by(action) %>% 
                 mutate(mean_30 = rollmean(count, k=30, fill=NA, align='right'))
-                
+
+# Make sure all the dates are there
+#date_vec <- seq(min(ae7q_actions$date), max(ae7q_actions$date), by="days")
+#all(date_vec == unique(ae7q_actions$date))
+
 #### Plots ####
 
 ##### Total over time, y = 0 #####