From 90a1f02f92928a2bbcaba596a6018844c4271095 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <krlmlr@users.noreply.github.com>
Date: Sat, 2 Nov 2024 21:24:36 +0100
Subject: [PATCH] fix: Check perfect roundtrip for constants again (#307)

---
 R/relational-duckdb.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/relational-duckdb.R b/R/relational-duckdb.R
index d5c100aa..bd2bfea8 100644
--- a/R/relational-duckdb.R
+++ b/R/relational-duckdb.R
@@ -425,6 +425,10 @@ to_duckdb_expr <- function(x) {
       out
     },
     relational_relexpr_constant = {
+      # FIXME: Should be duckdb's responsibility
+      # Example: https://github.com/dschafer/activatr/issues/18
+      check_df_for_rel(tibble(constant = x$val))
+
       if ("experimental" %in% names(formals(duckdb$expr_constant))) {
         experimental <- (Sys.getenv("DUCKPLYR_EXPERIMENTAL") == "TRUE")
         out <- duckdb$expr_constant(x$val, experimental = experimental)