W1CDN/ham-radio-licenses
1
0
Fork 0
Code Issues 132 Pull Requests Packages Projects Releases Wiki Activity

Update data and plots.

Browse Source
This commit is contained in:
mattbk
2024-10-02 19:01:29 -05:00
parent 9127b43f27
commit 82c93e6689
16 changed files with 2693 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/scrape-license-counts.R
View File

@ -167,6 +167,7 @@ ae7q_table_state <- ae7q_table_state_raw %>%
###### AE7Q License Actions ######
ae7q_new_url <- paste0("https://www.ae7q.com/query/list/ProcessDate.php?DATE=", Sys.Date())
#ae7q_new_url <- paste0("https://www.ae7q.com/query/list/ProcessDate.php?DATE=2024-10-01")
# Read the page
ae7q_new_raw <- read_html(ae7q_new_url)
@ -193,8 +194,7 @@ ae7q_new_url <- paste0("https://www.ae7q.com/query/list/ProcessDate.php?DATE=",
ae7q_sum01 <- ae7q_table_new %>%
#mutate(across(everything(), ~na_if(., "\""))) %>%
mutate(across(everything(),
~ case_when(. == "\"" ~ NA,
TRUE ~ .))) %>%
~replace(., . == "\"", NA))) %>%
fill(everything()) %>%
group_by(`Action Type`) %>%
summarize(count = n(), .groups = "keep") %>%