USMortality.com USMortality

## chart_fertility_vs_vaccination_europe.r
library(tidyverse)
library(ggpubr)
library(tsibble)
library(fable)
library(ggpmisc)
library(ggrepel)
library(scales)

sf <- 2
width <- 1200 * sf

## chart_mortality_ucd_chapter_usa.r
library(data.table)
library(ggplot2)

sf <- 2
width <- 900 * sf
height <- 450 * sf
options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

# Load data
s <- fread(

## chart_vaccine_mcd_usa.r
library(data.table)
library(ggplot2)

sf <- 2
width <- 600 * sf
height <- 335 * sf
options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

# All potential vaccine related ICD10 codes
elevated_icd10 <- c(

## chart_usa_cancer_incidence_mortality.r
library(readr)
library(tidyr)
library(ggplot2)
library(dplyr)
library(fable)
library(tsibble)

sf <- 2
width <- 900 * sf
height <- 450 * sf

## .chart_world_easmr_v_gvt_stringency.r
library(readr)
library(scales)
library(ggrepel)
library(ggpubr)
library(ggpmisc)

sf <- 2
width <- 600 * sf
height <- 335 * sf

## .chart_world_easmr_correl.r
library(readr)
library(GGally)

sf <- 2
width <- 900 * sf
height <- 450 * sf

options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

source(paste0(

## .chart_world_easmr_vaxx_adj.r
library(readr)
library(scales)
library(ggpubr)
library(ggpmisc)
library(ggrepel)

source(paste0(
  "https://gist.githubusercontent.com/USMortality/",
  "cf0dc23d0d5ca609539fe11c9c089fcc/raw/asmr_country_dataset.r"
))

## .chart_usa_counties_vs_hsa.r
library(tigris)
library(ggplot2)
library(dplyr)
library(readxl)
library(sf)

sf <- 2
width <- 1920 * sf
height <- 1080 * sf

## chart_usa_sp500.r
library(tidyverse)
library(tsibble)
library(ggrepel)
library(quantmod)

sf <- 2
width <- 600 * sf
height <- 335 * sf

options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

## deploy.sh
#!/usr/bin/env bash

# Require IP argument or environment variable
IP="${1:-${IP}}"

if [ -z "$IP" ]; then
  echo "❌ Error: IP is required."
  echo "Usage: IP=1.2.3.4 ./deploy.sh"
  echo "   or: ./deploy.sh 1.2.3.4"
  exit 1
	library(tidyverse)
	library(ggpubr)
	library(tsibble)
	library(fable)
	library(ggpmisc)
	library(ggrepel)
	library(scales)

	sf <- 2
	width <- 1200 * sf
	library(data.table)
	library(ggplot2)

	sf <- 2
	width <- 900 * sf
	height <- 450 * sf
	options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

	# Load data
	s <- fread(
	library(readr)
	library(tidyr)
	library(ggplot2)
	library(dplyr)
	library(fable)
	library(tsibble)

	sf <- 2
	width <- 900 * sf
	height <- 450 * sf
	library(readr)
	library(GGally)

	sf <- 2
	width <- 900 * sf
	height <- 450 * sf

	options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

	source(paste0(
	library(tigris)
	library(ggplot2)
	library(dplyr)
	library(readxl)
	library(sf)

	sf <- 2
	width <- 1920 * sf
	height <- 1080 * sf
	#!/usr/bin/env bash

	# Require IP argument or environment variable
	IP="${1:-${IP}}"

	if [ -z "$IP" ]; then
	echo "❌ Error: IP is required."
	echo "Usage: IP=1.2.3.4 ./deploy.sh"
	echo " or: ./deploy.sh 1.2.3.4"
	exit 1