fix: Check "duckdb.materialize_message" symbol (#592)

krlmlr · web-flow · commit 0bdeb681a7e0 · 2024-11-18T09:18:51.000Z
diff --git a/src/reltoaltrep.cpp b/src/reltoaltrep.cpp
@@ -104,7 +104,9 @@ struct AltrepRelationWrapper {
 				sexp call = Rf_lang2(materialize_callback, rel_eptr);
 				Rf_eval(call, R_BaseEnv);
 			}
-			else if (Rf_isLogical(materialize_callback) && Rf_length(materialize_callback) == 1 && LOGICAL_ELT(materialize_callback, 0) == true) {
+
+			auto materialize_message = Rf_GetOption(RStrings::get().materialize_message_sym, R_BaseEnv);
+		  if (Rf_isLogical(materialize_message) && Rf_length(materialize_message) == 1 && LOGICAL_ELT(materialize_message, 0) == true) {
 				// Legacy
 				Rprintf("duckplyr: materializing\n");
 			}

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,9 @@ struct AltrepRelationWrapper {`
`104`	`104`	`sexp call = Rf_lang2(materialize_callback, rel_eptr);`
`105`	`105`	`Rf_eval(call, R_BaseEnv);`
`106`	`106`	`}`
`107`		`- else if (Rf_isLogical(materialize_callback) && Rf_length(materialize_callback) == 1 && LOGICAL_ELT(materialize_callback, 0) == true) {`
	`107`	`+`
	`108`	`+ auto materialize_message = Rf_GetOption(RStrings::get().materialize_message_sym, R_BaseEnv);`
	`109`	`+ if (Rf_isLogical(materialize_message) && Rf_length(materialize_message) == 1 && LOGICAL_ELT(materialize_message, 0) == true) {`
`108`	`110`	`// Legacy`
`109`	`111`	`Rprintf("duckplyr: materializing\n");`
`110`	`112`	`}`