79715875

Date: 2025-07-26 17:44:13
Score: 0.5
Natty:
Report link

Thank you Dave2e for mentioning lunar-package.

So the solution is:

library(tibble)
library(dplyr)
library(lubridate)
mycal <- tibble(datum=(seq(as.Date("2020/01/01"), as.Date("2025/12/31"), "days")))

library(lunar)
mycal %>% mutate(moon=lunar.phase(datum, name=T) %>% as.character())
Reasons:
  • Blacklisted phrase (0.5): Thank you
  • Whitelisted phrase (-1): solution is
  • Low length (0.5):
  • Has code block (-0.5):
  • Self-answer (0.5):
  • Low reputation (0.5):
Posted by: Patrick