Move the conditional to operator T()

Author: eddelbuettel

ChangeLog

@@ -1,6 +1,7 @@
 2026-04-09  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/include/Rcpp/Nullable.h (T): Also add 'operator T()'
+	(conditional on R (>= 4.3.0) as older versions croak)
 
 2026-04-08  Dirk Eddelbuettel  <edd@debian.org>
 

inst/include/Rcpp/Nullable.h

@@ -81,6 +81,7 @@ namespace Rcpp {
             return m_sexp;
         }
 
+#if R_VERSION > R_Version(4,3,0)
         /**
          * operator T() to return nullable object
          *
@@ -90,6 +91,7 @@ namespace Rcpp {
             checkIfSet();
             return Rcpp::as<T>(m_sexp);
         }
+#endif
 
         /**
          * get() accessor for object

inst/tinytest/cpp/misc.cpp

@@ -217,15 +217,13 @@ SEXP testNullableIsUsable(const Nullable<NumericMatrix>& M) {
     }
 }
 
-#if R_VERSION > R_Version(4,3,0)
 // [[Rcpp::export]]
 String testNullableString(Rcpp::Nullable<Rcpp::String> param = R_NilValue) {
   if (param.isNotNull())
     return String(param);
   else
     return String("");
 }
-#endif
 
 // [[Rcpp::export]]
 void messageWrapper(SEXP s) {

inst/tinytest/test_misc.R

@@ -169,10 +169,8 @@ expect_equal( testNullableIsUsable(M), M)
 expect_true(is.null(testNullableIsUsable(NULL)))
 
 ##    test.NullableString <- function() {
-if (getRversion() > "4.3.0") {
-    expect_equal(testNullableString(), "")
-    expect_equal(testNullableString("blah"), "blah")
-}
+expect_equal(testNullableString(), "")
+expect_equal(testNullableString("blah"), "blah")
 
 #    test.bib <- function() {
 expect_true(nchar(Rcpp:::bib()) > 0, info="bib file")