# 03_pivot_income.R
# Reads wide-format income (USD), pivots to long format.

source("scripts/00_paths.R")

library(readr)
library(tidyr)

df <- read_csv(income_usd_wide, show_col_types = FALSE)

df_long <- df |>
  pivot_longer(
    cols      = jan:jun,
    names_to  = "month",
    values_to = "value_usd"
  )

write_csv(df_long, income_usd)

cat("03_pivot_income.R: wide -> long, wrote df_income_usd.csv\n")