ben/COVID
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

made initial data and basemap downloads automatic

Browse Source
This commit is contained in:
Ben Varick 2022-01-04 21:44:05 -08:00
parent 7660117c2c
commit 71f6a746b1
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
COVID.R
View File

@ -5,12 +5,14 @@ library(lubridate)
library(ggmap) library(ggmap)
library(ggrepel) library(ggrepel)
setwd(paste0("~/", setwd("~/Documents/dataProjects/COVID")
ifelse(Sys.info()['nodename'] == "pseudotsuga", "Documents", "Nextcloud"),
"/dataProjects/COVID"))
#download data ---- #download data ----
if(file.exists("data_download_time.Rda")) {
load("data_download_time.Rda") load("data_download_time.Rda")
} else {
downloaded_dttm <- ymd_hms('1900_01_01:00:00:00')
}
if(as.double(difftime(downloaded_dttm, Sys.time()), units = "hours") < -2){ if(as.double(difftime(downloaded_dttm, Sys.time()), units = "hours") < -2){
@ -263,10 +265,10 @@ buffer <- 0.1
states <- c("Washington", "Wisconsin", "Illinois") states <- c("Washington", "Wisconsin", "Illinois")
max_county_value <- max(us_county_data %>% filter(state %in% states) %>% pull(active_estimate), na.rm = TRUE) max_county_value <- max(us_county_data %>% filter(state %in% states) %>% pull(active_estimate), na.rm = TRUE)
#this if statement loads new basemap tiles only if marked as "TRUE", otherwise it loads the tiles from the file: /data/basemap.RData
for(i in 1:length(states)){ for(i in 1:length(states)){
if(FALSE){ if(file.exists(paste0("data/", states[i], "_basemap.RData"))){
load(file = paste0("data/", states[i], "_basemap.RData"))
} else {
range <- c(left = min(us_county_map %>% filter(state %in% states[i]) %>% pull(long), na.rm = TRUE) - buffer, range <- c(left = min(us_county_map %>% filter(state %in% states[i]) %>% pull(long), na.rm = TRUE) - buffer,
bottom = min(us_county_map %>% filter(state %in% states[i]) %>% pull(lat), na.rm = TRUE) - buffer, bottom = min(us_county_map %>% filter(state %in% states[i]) %>% pull(lat), na.rm = TRUE) - buffer,
right = max(us_county_map %>% filter(state %in% states[i]) %>% pull(long), na.rm = TRUE) + buffer, right = max(us_county_map %>% filter(state %in% states[i]) %>% pull(long), na.rm = TRUE) + buffer,
@ -276,8 +278,6 @@ for(i in 1:length(states)){
zoom = 8, zoom = 8,
maptype = "toner-hybrid") maptype = "toner-hybrid")
save(basemap, file = paste0("data/", states[i], "_basemap.RData")) save(basemap, file = paste0("data/", states[i], "_basemap.RData"))
} else {
load(file = paste0("data/", states[i], "_basemap.RData"))
} }
ggmap(basemap) + ggmap(basemap) +