[education/rkward] /: Fix options(warn) with R 4.6.0

[Thomas Friedrichsmeier]

Git commit f4dd23307fd124325241108a4ec174995f56b476 by Thomas Friedrichsmeier.
Committed on 20/05/2026 at 17:43.
Pushed by tfry into branch 'master'.

Fix options(warn) with R 4.6.0

M  +1    -1    ChangeLog
M  +1    -1    rkward/rbackend/rkrbackend.cpp

https://invent.kde.org/education/rkward/-/commit/f4dd23307fd124325241108a4ec174995f56b476

diff --git a/ChangeLog b/ChangeLog
index b27b93c52..5b448ebb5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,5 @@
 --- Version 0.8.4 - UNRELEASED
-
+- Fixed: Setting options(warn=...) resulted in an error with R 4.6.0
 
 --- Version 0.8.3 - Apr-24-2026
 - Fixed: Remove obsolete dep# on dbus
diff --git a/rkward/rbackend/rkrbackend.cpp b/rkward/rbackend/rkrbackend.cpp
index 190ad9f58..b80eae3ca 100644
--- a/rkward/rbackend/rkrbackend.cpp
+++ b/rkward/rbackend/rkrbackend.cpp
@@ -1207,7 +1207,7 @@ RCommandProxy *RKRBackend::runDirectCommand(const QString &command, RCommand::Co
 
 static void setWarnOption(int level, bool tryeval = false) {
 	SEXP s, t;
-	RFn::Rf_protect(t = s = RFn::Rf_lcons(ROb(R_NilValue), RFn::Rf_allocList(2)));
+	RFn::Rf_protect(t = s = RFn::Rf_lcons(ROb(R_NilValue), RFn::Rf_allocList(1)));
 	RFn::SETCAR(t, RFn::Rf_install("options"));
 	t = RFn::CDR(t);
 	RFn::SETCAR(t, RFn::Rf_ScalarInteger(level));