관세 그래프의 기준일과 데이터 파이프라인 추적하기

# Publication flag: controls whether final outputs are copied to output/publication/
# (which is tracked by git) and whether website assets are exported to website/.
# Default: FALSE (local/development run). Set to TRUE for publication, or override
# via environment variable: PUBLICATION_RUN=TRUE Rscript run_all.R
PUBLICATION_RUN <- as.logical(Sys.getenv("PUBLICATION_RUN", unset = "FALSE"))
if (is.na(PUBLICATION_RUN)) PUBLICATION_RUN <- FALSE
cat("Run mode:", if (PUBLICATION_RUN) "PUBLICATION (outputs copied to publication/ and website/)" else "LOCAL (development only)", "\n\n")

check_haver_available <- function() {
  tryCatch({
    if (!requireNamespace("Haver", quietly = TRUE)) {
      return(FALSE)
    }
    # Must use library() not just requireNamespace() -- Haver's .onAttach
    # initializes the DLL state that haver.direct() depends on.
    # suppressWarnings handles the "database path failed" message (expected
    # in server-only / direct mode with no local .dat files).
    suppressWarnings(library(Haver, quietly = TRUE))

pull_rename_save <- function(codes, col_names = NULL, output_name,
                              start_date = START_LONG, transform_fn = NULL) {
  log_msg("INFO", paste0("Pulling ", output_name, " data..."))
  data <- pull_haver_local(codes, "monthly", start_date)
  if (is.null(data)) return(invisible(NULL))
  if (!is.null(col_names)) {
    for (old_name in names(col_names)) {
      idx <- which(names(data) == old_name)
      if (length(idx) == 1) names(data)[idx] <- col_names[[old_name]]
    }

# F1: Daily ETR
if (daily_etr_available && exists("fig1_data_etr")) {
  fig1_csv <- fig1_data_etr %>% dplyr::select(Date, `Weighted ETR`)
  write_website_csv(fig1_csv, "F1_daily_etr.csv", "F1")
}

# F2: Effective Tariff Rate
fig2_csv <- fig2_data %>% dplyr::select(Date, `Effective tariff rate (%)`, `2022-2024 average (%)`)
write_website_csv(fig2_csv, "F2_effective_tariff_rate.csv", "F2")