-
Notifications
You must be signed in to change notification settings - Fork 92
/
ds_github.mpiktas.covid19lt.R
113 lines (98 loc) · 2.92 KB
/
ds_github.mpiktas.covid19lt.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#' Vaidotas Zemlys-Balevicius
#'
#' Data source for: Lithuania
#'
#' @param level 1, 2, 3
#'
#' @section Level 1:
#' - confirmed cases
#' - deaths
#' - recovered
#' - tests
#' - total vaccine doses administered
#' - people with at least one vaccine dose
#' - people fully vaccinated
#' - hospitalizations
#' - intensive care
#' - patients requiring ventilation
#'
#' @section Level 2:
#' - confirmed cases
#' - deaths
#' - recovered
#' - tests
#' - total vaccine doses administered
#' - people with at least one vaccine dose
#' - people fully vaccinated
#'
#' @section Level 3:
#' - confirmed cases
#' - deaths
#' - recovered
#' - tests
#' - total vaccine doses administered
#' - people with at least one vaccine dose
#' - people fully vaccinated
#'
#' @source https://github.com/mpiktas/covid19lt
#'
#' @keywords internal
#'
github.mpiktas.covid19lt <- function(level) {
if(!level %in% 1:3) return(NULL)
# source
url <- "https://raw.githubusercontent.com/mpiktas/covid19lt/master/data/"
# levels
if(level == 1){
# download
file <- paste0(url, "lt-covid19-country.csv")
x <- read.csv(file)
# format
x <- map_data(x, c(
"day" = "date",
"confirmed" = "confirmed",
"tests" = "tests",
"deaths_1" = "deaths",
"recovered" = "recovered",
"icu" = "icu",
"ventilated" = "vent",
"hospitalized" = "hosp",
"vaccinated_1" = "dose_1",
"vaccinated_2" = "dose_2",
"vaccinated_3" = "dose_3",
"fully_protected" = "people_fully_vaccinated"
))
# people vaccinated
x$people_vaccinated <- x$dose_1
# total vaccine doses
x$vaccines <- x$dose_1 + x$dose_2 + x$dose_3
}
if(level==2 | level==3){
# download
file <- paste0(url, sprintf("lt-covid19-level%s.csv", level))
x <- read.csv(file)
# format
x <- map_data(x, c(
"administrative_level_2" = "admin2",
"administrative_level_3" = "admin3",
"population" = "population",
"day" = "date",
"confirmed" = "confirmed",
"tests" = "tests",
"deaths_1" = "deaths",
"recovered" = "recovered",
"vaccinated_1" = "dose_1",
"vaccinated_2" = "dose_2",
"vaccinated_3" = "dose_3",
"fully_protected" = "people_fully_vaccinated"
))
# people vaccinated
x$people_vaccinated <- x$dose_1
# total vaccine doses
x$vaccines <- x$dose_1 + x$dose_2 + x$dose_3
}
# date
x$date <- as.Date(x$date)
# return
return(x)
}