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

Question

问题在 R基本的动手，

创建一个变量 L，并为其分配年份 (2018) 的值。

创建另一个变量 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)]
}