This logic doesn't work all the time

[benda18]

eclipse/R/next_eclipse_total.R

Lines 63 to 77 in 07fdd1f

	ecl_type <- c("total" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_TOTAL,
	backward = F)$tret)),
	"annular" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_ANNULAR,
	backward = F)$tret)),
	"partial" = min(abs(min(when_next$tret[when_next$tret > 0]) -
	swe_sol_eclipse_when_glob(jd_start = min(when_next$tret[when_next$tret > 0]),
	ephe_flag = 4,
	ifltype = SE$ECL_PARTIAL,
	backward = F)$tret)))

[benda18]

The following inputs return TOTAL ECLIPSE when Wikipedia says ANNULAR

start.date <- mdy("april 9, 2024")
obs.gte    <- 0.05
var.lon    <- 51.47888  
var.lat    <- -8.597059