#!/usr/bin/env Rscript
# R equivalent of replication_aer/getboot.do
# Usage (from repo root):
#   Rscript 04-topics/rep-chv2011/Rcode/getboot.R
#   CHV2011_BOOT=250 CHV2011_BOOT_SEED=703296661 Rscript 04-topics/rep-chv2011/Rcode/getboot.R

suppressPackageStartupMessages({
  library(here)
})

source(here("04-topics/rep-chv2011/Rcode/chv2011-data-prep.R"))

B <- as.integer(Sys.getenv("CHV2011_BOOT", "250"))
overwrite <- isTRUE(as.logical(Sys.getenv("CHV2011_BOOT_OVERWRITE", "FALSE")))
mode_info <- detect_chv2011_data_mode()

message("CHV2011 getboot (R) — data mode: ", mode_info$mode)
message("Generating bootdata/phat1.asc … phat", B, ".asc (overwrite=", overwrite, ")")

out <- generate_chv2011_bootdata(B = B, overwrite = overwrite)
st <- out$status

if (st$ok) {
  message("Done: ", st$message, " [seed=", st$seed, ", mode=", st$data_mode, "]")
} else {
  message("Warning: ", st$message)
  quit(status = 1)
}