Snapshot.

bin/fcc-query.R

@@ -0,0 +1,34 @@
+# Assumes you have https://github.com/tirandagan/fccULSloader installed and 
+# updated somewhere
+
+library(dbplyr)
+library(RSQLite)
+library(dplyr)
+library(tidyr)
+library(janitor)
+library(USAboundaries)
+
+con <- dbConnect(SQLite(), "fccULSloader/src/data/fcc_data.db")
+
+am <- tbl(con, "AM")
+en <- tbl(con, "EN")
+
+a <- dbGetQuery(con, "SELECT COUNT(*) FROM EN LEFT JOIN HD ON 
+                    EN.unique_system_identifier = HD.unique_system_identifier 
+                    WHERE license_status = 'A';") #%>% 
+#janitor::clean_names() %>%
+#head(2)
+#filter(status_code == "A") %>%
+#summarize(count = n()) #%>%
+#collect()
+
+print(a)
+
+b <- dbGetQuery(con, "SELECT UPPER(state), COUNT(*) FROM EN LEFT JOIN HD ON 
+                    EN.unique_system_identifier = HD.unique_system_identifier 
+                    WHERE license_status = 'A'
+                    GROUP BY UPPER(state);") %>%
+    left_join(state_codes %>% filter(state_abbr != ""), 
+              by = c("UPPER(state)" = "state_abbr"))
+
+print(b)