USMortality

#!/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

USMortality

# Download all previously release files
library(httr) # Load httr for GET function
library(readxl) # Load readxl for reading Excel files

read.xls <- function(url) {
  # Create a temporary file
  temp_file <- tempfile(fileext = ".xlsx")

  # Download the file to the temporary location
  GET(url, write_disk(temp_file, overwrite = TRUE))

USMortality

library(ggplot2)
library(readr)
library(dplyr)
library(stringr)
library(scales)
library(ggrepel)

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

USMortality

library(tidyverse)

# Load and preprocess the dataset
df <- read_csv("https://www.football-data.co.uk/mmz4281/2425/D2.csv") |>
  mutate(Date = as.Date(Date, format = "%d/%m/%Y")) |>
  select(Date, HomeTeam, AwayTeam, FTR) |>
  arrange(Date)

# Ensure unique set of teams per matchday
matchday_counter <- 1

USMortality

library(readr)
library(tidyr)
library(ggplot2)
library(dplyr)
library(fable)
library(tsibble)

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

USMortality

library(readr)
library(dplyr)
library(tidyr)

df <- read_tsv(
  paste0(
    "https://raw.githubusercontent.com/robert-koch-institut/",
    "GrippeWeb_Daten_des_Wochenberichts/main/",
    "GrippeWeb_Daten_des_Wochenberichts.tsv"
  )

USMortality

library(ggplot2)

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

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

# CDU/CSU
# https://polymarket.com/event/cducsu-of-vote-in-german-election-2-brackets

USMortality

Sterbef�lle, Sterbeziffern (je 100.000 Einwohner, altersstandardisiert) (ab 1998). Gliederungsmerkmale: Jahre, Region, Alter, Geschlecht, Nationalit�t, ICD-10, Art der Standardisierung
****************************************************************************************************

Diese Tabelle bezieht sich auf:
Region:;Deutschland
Alter:;Alle Altersgruppen
Geschlecht:;Insgesamt
Nationalit�t:;Alle Nationalit�ten
Art der Standardisierung:;Standardbev�lkerung "Deutschland 2011"

USMortality

library(tidyverse)
library(scales)

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

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

df <- read_csv("/Users/ben/Downloads/a.csv")

USMortality

library(readr)
library(tidyr)
library(readxl)
library(tidyverse)


### Deaths

# https://ec.europa.eu/eurostat/databrowser/product/view/demo_magec
df <- read_tsv("/Users/Ben/Downloads/estat_demo_magec.tsv")