r_bank_statement <- tibble::tibble(
Date = as.Date(c(
"2026-01-02", "2026-01-02", "2026-01-03", "2026-01-03",
"2026-01-04", "2026-01-04", "2026-01-05", "2026-01-06",
"2026-01-07", "2026-01-08", "2026-01-09", "2026-01-10",
"2026-01-11", "2026-01-12", "2026-01-13", "2026-01-14",
"2026-01-15"
)),
Description = c(
"Employer Payroll", "Rent", "Comcast Internet", "Trader Joe's",
"Shell Gas", "Netflix", "Starbucks", "PG&E Electric",
"AT&T Wireless", "Spotify", "Whole Foods", "Chipotle",
"Geico Auto Insurance", "NYTimes Digital", "Shell Gas", "Costco",
"24 Hour Fitness"
),
Amount = c(
2400.00, -1500.00, -75.00, -82.45, -45.20, -15.99, -6.75,
-142.30, -85.00, -10.99, -64.12, -14.50, -125.00, -17.00,
-42.80, -156.78, -39.99
)
)
r_bank_statement |> knitr::kable()