Get the latest compiled linelist

Get the latest compiled linelist

get_linelist()

Value

a tibble with the linelist

Author

Sebastian Funk sebastian.funk@lshtm.ac.uk

Examples

## 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
#>     ch <- memoise::cache_filesystem(".cache")
#>     mem_read <- memoise::memoise(readr::read_csv, cache = ch)
#>     data <- suppressWarnings(mem_read("https://raw.githubusercontent.com/beoutbreakprepared/nCoV2019/master/latest_data/latestdata.csv"))
#>     data <- data %>% dplyr::mutate_at(.vars = c("longitude", 
#>         "latitude"), ~ifelse(. %in% "#REF!", NA, .) %>% stringr::str_trim() %>% 
#>         as.numeric()) %>% dplyr::mutate_all(~stringr::str_replace_all(., 
#>         "N/A", NA_character_)) %>% 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(data)
#> }
#> <bytecode: 0x7ff8fd26a100>
#> <environment: namespace:NCoVUtils>