Revert refactor of pl$DataFrame() with schema only (#926)

pola-rs · Mar 16, 2024 · 720af6a · 720af6a
1 parent afbb94c
commit 720af6a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/dataframe__frame.R b/R/dataframe__frame.R
@@ -279,8 +279,10 @@ pl_DataFrame = function(..., make_names_unique = TRUE, schema = NULL) {
   # no args create empty DataFrame
   if (length(largs) == 0L) {
     if (!is.null(schema)) {
-      out = lapply(schema, \(dtype) pl$Series(NULL)$cast(dtype)) |>
-        pl$select()
+      largs = lapply(seq_along(schema), \(x) {
+        pl$lit(numeric(0))$cast(schema[[x]])$alias(names(schema)[x])
+      })
+      out = pl$select(largs)
     } else {
       out = .pr$DataFrame$default()
     }