index.Rmd

---
title: "Texas COVID-19 Vaccine Tracker"
image: "lbj_logo.png"
color1: "#5A59A3"
color2: "#C66060"
angle: 130
links:
  # - label: Providers
  #   url: "providers.html"
  - label: Pace
    url: "pace.html"
  - label: Equity
    url: "equity.html"
  # - label: Access
  #   url: "providers.html"
  # - label: Blog
  #   url: "blog.html"
site: distill::distill_website
output:
  postcards::onofre
---

```{r message=FALSE, warning=FALSE, include=FALSE}
library(metathis)

meta() %>%
  meta_social(
    title = "The Texas COVID-19 Vaccine Tracker",
    description = "Tracking the rollout of COVID-19 Vaccines in Texas",
    url = "https://texasvaccinetracker.com",
    image = "https://texasvaccinetracker.com/cover_image.png",
    image_alt = "Distribution of Doses by Race, Age, and Gender.",
    og_type = "website",
    og_author = "The LBJ School",
    twitter_card_type = "summary",
    twitter_creator = "@TheLBJSchool"
  )
```


```{r message=FALSE, warning=FALSE, include=FALSE}

knitr::opts_chunk$set() 
library(gt)
library(tidyverse)
library(ggforce)
library(highcharter)
library(readxl)
library(janitor)
library(reactable)
library(htmltools)
library(tippy)
library(lbjdata)
library(zoo)

today <- Sys.Date()
today_lbl <- format(Sys.Date(), format = "%b %d, %Y")
time_lbl <- format(Sys.time(), format = "%I:%M %p")

src <- "https://dshs.texas.gov/immunize/covid19/COVID-19-Vaccine-Data-by-County.xls" # URL For Daily COVID Data
lcl <- basename(src)
filepath <- paste0("raw_data/", today,"_",lcl,"x")
download.file(url = src, destfile = filepath) # Downloads The Data

vaccine_summ <- read_excel(filepath, sheet = 4, skip=0, col_types = c("text", 
        "date", "numeric")) %>% 
  clean_names() %>% 
  group_by(date=vaccination_date) %>% 
  summarise(daily_doses = sum(doses_administered)) %>%
  mutate(date=as.Date(date)) %>% 
  mutate(new_doses_7_day_avg= rollmean(daily_doses, 7, fill =0,
                                   align = "right")) %>%
  mutate(date = as.Date(date, format("%b %d %Y"))) %>% 
  ungroup()

latest_date <- vaccine_summ %>% drop_na(date) %>% filter(date==max(as.Date(date))) %>% select(date)

date_text <- format(latest_date$date, format="%b %d, %Y")

pop_16_num <- read_excel(filepath, sheet = 2, skip=0) %>% 
  clean_names() %>% 
  filter(county_name=="Texas") %>%
  select(population_12)

pop_16_text <- read_excel(filepath, sheet = 2, skip=0) %>% 
  clean_names() %>% 
  filter(county_name=="Texas") %>% 
  select(population_12) %>% 
  mutate(population_12 = scales::comma(as.numeric(population_12)))

full_vax_text <- read_excel(filepath, sheet = 2, skip=0) %>% 
  clean_names() %>% 
  filter(county_name=="Texas") %>% 
  select(people_fully_vaccinated) %>% 
  mutate(people_fully_vaccinated = scales::comma(as.numeric(people_fully_vaccinated)))

full_vax_pct_text <- read_excel(filepath, sheet = 2, skip=0) %>% 
  clean_names() %>% 
  filter(county_name=="Texas") %>%
  select(people_fully_vaccinated, population_12) %>% 
  mutate(pct_fully_vax = as.numeric(people_fully_vaccinated)/as.numeric(population_12)) %>% 
  mutate(pct_fully_vax = scales::percent(round(pct_fully_vax, digits=3))) %>% 
  select(pct_fully_vax)

partial_vax_text <- read_excel(filepath, sheet = 2, skip=0) %>%
  clean_names() %>% 
  filter(county_name=="Texas") %>%
  select(people_vaccinated_with_at_least_one_dose) %>% 
  mutate(people_vaccinated_with_at_least_one_dose = scales::comma(as.numeric(people_vaccinated_with_at_least_one_dose)))

partial_vax_pct_text <- read_excel(filepath, sheet = 2, skip=0) %>%
  clean_names() %>% 
  filter(county_name=="Texas") %>%
  select(people_vaccinated_with_at_least_one_dose) %>% 
  mutate(population_12 = pop_16_num) %>% 
  mutate(at_least_one_pct = as.numeric(people_vaccinated_with_at_least_one_dose)/as.numeric(population_12)) %>% 
  mutate(at_least_one_pct = scales::percent(round(at_least_one_pct, digits=4))) %>% 
  select(at_least_one_pct)

yesterday_vax_text <- vaccine_summ %>% 
  drop_na(date) %>% 
  filter(date==max(as.Date(date))) %>% 
  select(daily_doses) %>% 
  mutate(daily_doses = scales::comma(as.numeric(daily_doses)))

yesterday_vax_pct_text <- vaccine_summ %>% 
  drop_na(date) %>% 
  filter(date==max(as.Date(date))) %>% 
  select(daily_doses) %>% 
  mutate(population_12 = pop_16_num) %>% 
  mutate(daily_doses_oct = as.numeric(daily_doses)/as.numeric(population_12)) %>% 
  mutate(daily_doses_oct = scales::percent(round(daily_doses_oct, digits=4), accuracy = .01)) %>% 
  select(daily_doses_oct)

avg7day_vax_text <- vaccine_summ %>% 
  drop_na(date) %>% 
  filter(date==max(as.Date(date))) %>% 
  select(new_doses_7_day_avg) %>% 
  mutate(new_doses_7_day_avg = scales::comma(as.numeric(new_doses_7_day_avg)))

avg7day_vax_pct_text <- vaccine_summ %>% 
  drop_na(date) %>% 
  filter(date==max(as.Date(date))) %>% 
  select(new_doses_7_day_avg) %>% 
  mutate(population_12 = pop_16_num) %>% 
  mutate(avg7_day_pct = as.numeric(new_doses_7_day_avg)/as.numeric(population_12)) %>% 
  mutate(avg7_day_pct = scales::percent(round(avg7_day_pct, digits=4), accuracy = .01)) %>% 
  select(avg7_day_pct)

```

The reach of COVID-19 on Texas and the world has been devastating. As our state joins a global effort to put coronavirus into our past, we are tracking the Texas vaccine roll-out as it unfolds in real-time.

Texas has <u>`r pop_16_text`</u> people aged 12 and older who are currently eligible for the vaccine. As of <u>`r date_text`</u>, the state has:

:::{line-height="1.4px"}

> <i class="fad fa-battery-full fa-fw fa-lg" style="color:#f8971f"></i> | **Fully Vaccinated:** <u>`r full_vax_text`</u> people or <u>`r full_vax_pct_text`</u> of the population 12+</br>
> <i class="fad fa-battery-half fa-fw fa-lg" style="color:#f8971f"></i> | **Vaccinated w/ At Least One Dose:** <u>`r partial_vax_text`</u> people or <u>`r partial_vax_pct_text`</u> of the population 12+</br>
> <i class="fad fa-calendar fa-fw fa-lg" style="color:#f8971f"></i> | **Administered**: <u>`r yesterday_vax_text`</u> doses in one day on `r date_text` or <u>`r yesterday_vax_pct_text`</u> of the population 12+</br>
> <i class="fad fa-tachometer-alt-average fa-fw fa-lg" style="color:#f8971f"></i> | **A 7-Day Average** of <u>`r avg7day_vax_text`</u> administered per day  or <u>`r avg7day_vax_pct_text`</u> of the population 12+</br>

:::

### Explore More Texas Vaccine Data:

```{css, echo=FALSE}

body {
background: transparent !important;
background: linear-gradient(120deg, rgba(51, 63, 72, .8) 50%, 
      rgba(191, 87, 0, 0.35) 150%),
    /* bottom, image */
    url(textures_ut_thick_panels.jpg) no-repeat center center fixed !important;
-webkit-background-size: cover !important;
-moz-background-size: cover !important;
-o-background-size: cover !important;
background-size:cover !important;
}

.pl-5 img{
margin-top: 3rem !important;
}

.col-lg-6 {
  -ms-flex: 0 0 50%;
  flex: 0 0 60%;
  max-width: 60%;
}

.rounded-circle {
border-radius: 0%!important;
}

h3 {
  font-weight:700;
}

img {
height: 3rem !important;
}

h1 {
  font-weight:900;
  font-size: 2.7rem !important;
}

p {
  font-size: 1.05rem !important;
}

@media only screen and (max-width: 600px) {

body {
background: transparent !important;
background: linear-gradient(120deg, rgba(51, 63, 72, .8) 50%, 
      rgba(191, 87, 0, 0.35) 150%),
    /* bottom, image */
    url(textures_ut_thick_panels.jpg) no-repeat center center fixed !important;
-webkit-background-size: cover !important;
-moz-background-size: cover !important;
-o-background-size: cover !important;
background-size:cover !important;
}

.col-lg-6 {
  -ms-flex: 0 0 50%;
  flex: 0 0 100%;
  max-width: 100%;
}

.rounded-circle {
  border-radius: 0%!important;
}

img {
  height: 1.5rem !important;
  display: block;
  margin-left: auto;
  margin-right: auto;
}

h1 {
  font-weight:900;
  font-size: 2.5rem !important;
  text-align:center !important;
}

h3 {
  font-weight:700;
  text-align:center !important;
}

button {
  background-color: rgba(191, 87, 0, 0.85) !important;
  color: white  !important;
  font-weight: 600 !important;
  border-color: rgba(191, 87, 0, 0.85)  !important;
}

p {
  font-size: 1.05rem !important;
  text-align:center !important;

}          

.pl-5, .px-5 {
padding-left: 0rem!important;
}

.pb-1, .py-1 {
padding-bottom: 0rem!important;
}

}

.p-2 {
padding: .5rem!important;
color: #fff;
}

```