get_linelist.RdGet the latest compiled linelist
get_linelist()
a tibble with the linelist delays to randomly sample
## Example if (FALSE) { get_linelist() } ## Code get_linelist#> function () #> { #> date_onset_symptoms_str <- NULL #> date_admission_hospital_str <- NULL #> ate_confirmation_str <- NULL #> date_confirmation <- NULL #> date_onset_symptoms <- NULL #> date_onset_symptoms <- NULL #> date_admission_hospital <- NULL #> date_confirmation_str <- NULL #> gids <- c(outside_hubei = 0, hubei = 429276722) #> urls <- paste0("https://docs.google.com/spreadsheets/d/", #> "1itaohdPiAeniCXNlntNztZ_oRvjh0HsGuJXUJWET008/pub", "?single=true&output=csv&gid=", #> gids) #> linelists <- lapply(urls, readr::read_csv) #> linelists <- dplyr::bind_rows(linelists) %>% dplyr::rename(date_onset_symptoms_str = "date_onset_symptoms", #> date_admission_hospital_str = "date_admission_hospital", #> date_confirmation_str = "date_confirmation") %>% dplyr::mutate(date_onset_symptoms = as.Date(date_onset_symptoms_str, #> format = "%d.%m.%Y"), date_admission_hospital = as.Date(date_admission_hospital_str, #> format = "%d.%m.%Y"), date_confirmation = as.Date(date_confirmation_str, #> format = "%d.%m.%Y")) %>% dplyr::mutate(delay_confirmation = date_confirmation - #> date_onset_symptoms, delay_admission = date_admission_hospital - #> date_onset_symptoms) #> return(linelists) #> } #> <bytecode: 0x5620768733d8> #> <environment: namespace:WuhanSeedingVsTransmission>