提前返回
有时，您不必运行完整个函数体就能得到答案。这种情况下，可以使用 return() 提前从函数返回。
要检查 x 是否能被 n 整除，您可以使用 assertive 中的 is_divisible_by(x, n)。
或者，使用取模运算符 %%。x %% n 表示 x 除以 n 的余数，因此 x %% n == 0 可以判断 x 是否能被 n 整除。请在控制台试试 1:10 %% 3 == 0。
要完成本练习，您需要知道：闰年是每逢第 400 年（例如 2000 年），或每逢第 4 年但不是整百年份（例如 1904 年，但不是 1900 年或 1905 年）。
已加载 assertive。
本练习是课程的一部分
R 函数编写入门
练习说明
- 完成
is_leap_year()的定义，依次检查year是否能被 400、然后 100、然后 4 整除，并在每种情况下都从函数中提前返回。
交互式实操练习
通过完成这段示例代码来试试这个练习。
is_leap_year <- function(year) {
# If year is div. by 400 return TRUE
if(___) {
return(___)
}
# If year is div. by 100 return FALSE
if(___) {
___
}
# If year is div. by 4 return TRUE
___
# Otherwise return FALSE
___
}