r - 在R编程中使用变量打印下一个闰年的值

Question

R 基本实践问题，

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

---

如果您被允许使用软件包，您可以使用 lubridate 中的 leap_year。

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