feat: R hms class conversion to Series and Series Time type conversio…

…n to R hms vector

DESCRIPTION

@@ -12,3 +12,5 @@ RoxygenNote: 7.3.1
 SystemRequirements: Cargo (Rust's package manager), rustc
 Imports:
     rlang
+Suggests:
+    hms

NAMESPACE

@@ -52,6 +52,7 @@ S3method(as_polars_series,default)
 S3method(as_polars_series,difftime)
 S3method(as_polars_series,double)
 S3method(as_polars_series,factor)
+S3method(as_polars_series,hms)
 S3method(as_polars_series,integer)
 S3method(as_polars_series,list)
 S3method(as_polars_series,logical)

R/as_polars_series.R

@@ -103,6 +103,17 @@ as_polars_series.difftime <- function(x, name = NULL, ...) {
     wrap()
 }
 
+#' @export
+as_polars_series.hms <- function(x, name = NULL, ...) {
+  PlRSeries$new_f64(name %||% "", x)$mul(
+    PlRSeries$new_i32("", 1000000000L)
+  )$cast(
+    pl$Time$`_dt`,
+    strict = TRUE
+  ) |>
+    wrap()
+}
+
 #' @export
 as_polars_series.array <- function(x, name = NULL, ...) {
   dims <- dim(x) |>

src/rust/src/conversion/chunked_array.rs

@@ -103,3 +103,22 @@ impl From<Wrap<&DurationChunked>> for Sexp {
         sexp.into()
     }
 }
+
+impl From<Wrap<&TimeChunked>> for Sexp {
+    fn from(ca: Wrap<&TimeChunked>) -> Self {
+        let ca = ca.0;
+        let mut sexp = OwnedRealSexp::new(ca.len()).unwrap();
+        let _ = sexp.set_class(&["hms", "difftime"]);
+        let _ = sexp
+            .set_attrib("units", <OwnedStringSexp>::try_from("secs").unwrap().into())
+            .unwrap();
+        for (i, v) in ca.into_iter().enumerate() {
+            if let Some(v) = v {
+                let _ = sexp.set_elt(i, v as f64 / 1_000_000_000.0);
+            } else {
+                let _ = sexp.set_na(i);
+            }
+        }
+        sexp.into()
+    }
+}

src/rust/src/series/export.rs

@@ -62,6 +62,7 @@ impl PlRSeries {
                     Ok(list.into())
                 },
                 DataType::Date => Ok(<Sexp>::from(Wrap(series.date().unwrap()))),
+                DataType::Time => Ok(<Sexp>::from(Wrap(series.time().unwrap()))),
                 DataType::Duration(_) => Ok(<Sexp>::from(Wrap(series.duration().unwrap()))),
                 DataType::Struct(_) => {
                     let df = series.clone().into_frame().unnest([series.name()]).unwrap();