In sol-eng/accesstocare: Example content of Access to Care project

knitr::opts_chunk$set(echo = params$printcode)

library(accesstocare)
library(blastula)
library(dplyr)
library(DT)
library(gt)

r params$state

Background

We are trying to determine which counties in r params$state have comparatively more access or less access to hospital care.

A statistical model using data from across the country is used to identify those counties that have more or less than the model expects the specific county to have.

County Map

Breakdown of counties and their status based on county population compared to the number of hospitals

atc_plot_state_map(state = params$state)

County Data

Here is the county level data used in this report

us_counties %>% 
  filter(state_name == params$state) %>% 
  select(county_name, hospitals, population) %>% 
  datatable(colnames = c("County" = "county_name", "Hospitals" = "hospitals", "Population" = "population"))

attach_connect_email(
  render_connect_email("email/access-to-care-email.Rmd"),
  subject = paste0("Access to Care - ", params$state)
)

sol-eng/accesstocare documentation built on Dec. 23, 2021, 3:32 a.m.