Find the next lunar apsis event — next_lunar

Given a lunar apsis event (perigee or apogee), finds the next apsis event in the series. This function alternates between finding perigees and apogees.

Usage

next_lunar_apsis(apsis)

Arguments

apsis: A list returned from search_lunar_apsis() or a previous call to next_lunar_apsis().

Value

A list with the same structure as search_lunar_apsis():

time: A POSIXct datetime of the next lunar apsis.
kind: Integer code: 0 for perigee, 1 for apogee.
dist_au: Distance in astronomical units.
dist_km: Distance in kilometers.

Examples

start <- as.POSIXct("2025-01-01", tz = "UTC")
apsis1 <- search_lunar_apsis(start)
apsis2 <- next_lunar_apsis(apsis1)
apsis3 <- next_lunar_apsis(apsis2)