From 2a92df4b6f66827e8766d011552da4a57a29ee39 Mon Sep 17 00:00:00 2001 From: Danielle Navarro Date: Thu, 10 Mar 2022 13:43:48 +1100 Subject: [PATCH] uses is_leap_year --- r/R/dplyr-funcs-datetime.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/r/R/dplyr-funcs-datetime.R b/r/R/dplyr-funcs-datetime.R index 8f5a7689c07..ab1313bb255 100644 --- a/r/R/dplyr-funcs-datetime.R +++ b/r/R/dplyr-funcs-datetime.R @@ -157,8 +157,7 @@ register_bindings_datetime <- function() { }) register_binding("leap_year", function(date) { - year <- Expression$create("year", date) - (year %% 4 == 0) & ((year %% 100 != 0) | (year %% 400 == 0)) + Expression$create("is_leap_year", date) }) register_binding("am", function(x) {