-
Notifications
You must be signed in to change notification settings - Fork 1
/
api.R
57 lines (43 loc) · 2.37 KB
/
api.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
library(tidyverse)
library(httr)
library(jsonlite)
url <- "https://idph.illinois.gov/DPHPublicInformation/"
GET("https://idph.illinois.gov/DPHPublicInformation/api/COVID/GetCountyHistorical?countyName=Champaign")
GET("https://idph.illinois.gov/DPHPublicInformation/api/COVID/GetCountyHistorical")
rates <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVIDExport/GetCountyRates")
content(rates)
rates <- fromJSON(content(rates, "text"))
rates <- fromJSON(content(rates, "text"))
rates
path <- "api/COVIDExport/GetCountyRates"
counties_current <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVIDExport/GetCountyTestResults")
counties_vax <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVIDVaccine/getVaccineAdministrationCurrent")
counties_vax <- fromJSON(content(counties_vax, "text"))
counties_vax <- counties_vax$VaccineAdministration
counties_vax
write.csv(counties_vax,"vax/current_counties_vax.csv", row.names = FALSE)
content(counties_current)
# GET(url, path = "api/COVID/GetHospitalizationResults")
# GET("https://idph.illinois.gov/DPHPublicInformation/api/COVID/GetHospitalizationResults")
# hospitalization <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVID/GetHospitalizationResults")
# content(hospitalization)
# hospitalization <- fromJSON(content(hospitalization, "text"))
# regionhosp <- hospitalization$regionValues
# ltc <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVID/GetLTCData")
# content(ltc)
# ltc <- fromJSON(content(ltc, "text"))
# ltc <- ltc$FacilityValues
region6 <- c("Iroquois", "Ford", "De Witt", "Piatt", "Champaign", "Vermilion", "Macon", "Moultrie", "Douglas", "Edgar", "Shelby", "Coles", "Cumberland", "Clark", "Fayette", "Effingham", "Jasper", "Crawford", "Clay", "Richland", "Lawrence")
region6pop <- rates %>%
mutate(region6counties = ifelse(County %in%region6, County,"")) %>%
filter(region6counties != "") %>%
select(County,total_population)
champaignapi <- GET("https://idph.illinois.gov/DPHPublicInformation/api/COVIDVaccine/getVaccineAdministration?CountyName=Champaign")
champaignapi <- fromJSON(content(champaignapi,"text"))
champaignapi <- champaignapi$VaccineAdministration
region6vaxapi <- GET(url = "https://idph.illinois.gov/DPHPublicInformation/api/COVIDVaccine/getVaccineAdministration",
query = list(CountyName = "Champaign")
)
region6[[3]]
# todos ----w
# [ ] cdc api