The c19rdata from appliedbinf

c19rdata's People

Contributors

Watchers

c19rdata's Issues

Dates

Suggest reporting dates as reported per region in the data, rather than the date that the data is pulled:

c19rdata/R/makeDailyMaps.R

Line 60 in 52556e2

cur_date <- lubridate::ymd(gsub("-", "", Sys.Date())) - 1

Will be helpful to do this in general in the case that datasets become deprecated.

Integrate new EU patches

See: appliedbinf/covid19-event-risk-planner#55

Waiting on a re=uploaded files

Vaccination data issue

Hi, @ar0ch and @freyja-bt.
The output of this operation produces entries with a date of NA (for some counties) at the tail of those counties entries

c19rdata/R/makeDailyMaps.R

Line 65 in 0e90670

vacc_data <- vacc_data %>%

e.g. looking at Los Angeles county
tail(vacc_data_fill[which(vacc_data_fill$county=="6037"),])

# A tibble: 6 x 5
  date       county cnt_fully_vacc last_date  is_last
  <date>      <dbl>          <dbl> <date>     <lgl>  
1 2021-12-12   6037       6752641. 2021-12-07 FALSE  
2 2021-12-13   6037       6766574. 2021-12-07 FALSE  
3 2021-12-14   6037       6780506. 2021-12-07 FALSE  
4 2021-12-15   6037       6794438  2021-12-15 FALSE  
5 2021-12-16   6037      12463202. 2021-12-15 FALSE  
6 NA           6037      18131967  2021-12-15 FALSE

This causes downstream issues for those counties in which an NA date is recorded.

Suggest adding something to the effect of
vacc_data = vacc_data[-which(is.na(vacc_data$date)),]
at L93

which instead produces:
tail(vacc_data_fill[which(vacc_data_fill$county=="6037"),])

# A tibble: 6 x 5
  date       county cnt_fully_vacc last_date  is_last
  <date>      <dbl>          <dbl> <date>     <lgl>  
1 2021-12-11   6037       6738709  2021-12-07 FALSE  
2 2021-12-12   6037       6752641. 2021-12-07 FALSE  
3 2021-12-13   6037       6766574. 2021-12-07 FALSE  
4 2021-12-14   6037       6780506. 2021-12-07 FALSE  
5 2021-12-15   6037       6794438  2021-12-15 FALSE  
6 2021-12-16   6037       6794438  2021-12-15 TRUE

Recommend Projects