powered by
Insert Moon Phase Emoji
moon(date, day = day_in_synodic_cycle(date))
a moon emoji
a date
number of days since new moon
This function is vectorized. If not supplied, day is calculated using the approximation of day_in_synodic_cycle, i.e the number of days since a known new moon modulo 29.530588853 days.
day
29.530588853
moon(Sys.Date()) january <- as.Date("2021-01-01") + 0:30 moon(january)
Run the code above in your browser using DataLab