Чтобы распечатать значение следующего високосного года, используя переменную в программировании R

Question

Вопрос в R basi c на практике,

1. Создайте переменную L и присвойте ей значение года (2018).

2. Создайте другую переменную NL, назначьте значение следующего високосного года, используя переменную L, а затем распечатайте NL. "

Я пробовал, как показано ниже, но Я не получаю желаемого результата, пожалуйста, помогите мне

L <- as.Date("2018")
NL <- L + timedelta(year=4)
print(NL)

Answer 1

Это может помочь:

get_next_leap_year <- function(L) {
   all_years <- L + 1:4
   all_years[(all_years %% 4 == 0 & all_years %%100 != 0) | all_years %% 400 == 0]
}

get_next_leap_year(2018)
#[1] 2020

---

Если вам разрешено использовать пакет, вы можете использовать leap_year из lubridate.

get_next_leap_year <- function(L) {
   all_years <- L + 1:4
   all_years[lubridate::leap_year(all_years)]
}