feat: Add support for lubridate::today() and lubridate::now()

NEWS.md

@@ -6,6 +6,8 @@
 
 * Added support for `lubridate::date()` (@atsyplenkov, #181).
 
+* Added support for `lubridate::today()` and `lubridate::now()` (#183).
+
 # tidypolars 0.13.0
 
 ## New features

R/funs-date.R

@@ -87,6 +87,15 @@
   pl$date(year = year, month = month, day = day)
 }
 
+pl_today_lubridate <- function(tzone = "") {
+  pl$lit(lubridate::today(tzone = tzone))
+}
+
+pl_now_lubridate <- function(tzone = "") {
+  pl$lit(lubridate::now(tzone = tzone))
+}
+
+
 # Durations --------------------------------------
 
 # TODO: annoying to parse `...` because of partial matching of args, e.g

tests/testthat/test-funs_date-lazy.R

@@ -804,4 +804,17 @@ test_that("check_timezone() throws expected errors", {
   )
 })
 
+test_that("today() works", {
+  test_df <- data.frame(
+    id = 1:6,
+    date = lubridate::now(tzone = "") + lubridate::days(-5:0)
+  )
+  test <- as_polars_lf(test_df)
+
+  expect_equal_lazy(
+    filter(test, date >= lubridate::today()),
+    filter(test_df, date >= lubridate::today())
+  )
+})
+
 Sys.setenv('TIDYPOLARS_TEST' = FALSE)

tests/testthat/test-funs_date.R

@@ -799,3 +799,16 @@ test_that("check_timezone() throws expected errors", {
     "`tidypolars` cannot pass a variable of the data as timezone."
   )
 })
+
+test_that("today() works", {
+  test_df <- data.frame(
+    id = 1:6,
+    date = lubridate::now(tzone = "") + lubridate::days(-5:0)
+  )
+  test <- as_polars_df(test_df)
+
+  expect_equal(
+    filter(test, date >= lubridate::today()),
+    filter(test_df, date >= lubridate::today())
+  )
+})