Conditrion nullable<String> test on R 4.3.0 or later

Author: eddelbuettel

inst/tinytest/cpp/misc.cpp

@@ -217,13 +217,15 @@ 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

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