Remove access to Rf_rnbeta (#1419)

* Do not access Rf_rnbeta

* Roll micro version and date

* Comment-out an #undef

* Micro whitespace edit following rebase

Author: eddelbuettel

ChangeLog

@@ -3,6 +3,14 @@
 	* inst/tinytest/test_system.R: Wrap suppressMessages() around three
 	tests for long-obsolete linker and compiler flags
 
+2025-12-10  Dirk Eddelbuettel  <edd@debian.org>
+
+	* DESCRIPTION (Version, Date): Roll micro version and date
+	* inst/include/Rcpp/config.h: Idem
+
+	* inst/include/Rcpp/Rmath.h: Do not access Rf_rnbeta
+	* inst/include/Rcpp/sugar/undoRmath.h: Remove #undef
+
 2025-12-06  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Version, Date): Roll micro version and date

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 1.1.0.8
-Date: 2025-12-06
+Version: 1.1.0.9
+Date: 2025-12-10
 Authors@R: c(person("Dirk", "Eddelbuettel", role = c("aut", "cre"), email = "edd@debian.org",
                     comment = c(ORCID = "0000-0001-6419-907X")),
              person("Romain", "Francois", role = "aut",

inst/include/Rcpp/Rmath.h

@@ -1,8 +1,7 @@
-// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
-//
+
 // Rmath.h: Rcpp R/C++ interface class library -- Wrappers for R's Rmath API
 //
-// Copyright (C) 2012 Dirk Eddelbuettel and Romain Francois
+// Copyright (C) 2012-2025  Dirk Eddelbuettel and Romain Francois
 //
 // This file is part of Rcpp.
 //
@@ -160,7 +159,7 @@ namespace R {
     inline double dnbeta(double x, double a, double b, double ncp, int lg)		{ return ::Rf_dnbeta(x, a, b, ncp, lg); }
     inline double pnbeta(double x, double a, double b, double ncp, int lt, int lg)	{ return ::Rf_pnbeta(x, a, b, ncp, lt, lg); }
     inline double qnbeta(double p, double a, double b, double ncp, int lt, int lg)	{ return ::Rf_qnbeta(p, a, b, ncp, lt, lg); }
-    inline double rnbeta(double a, double b, double np)					{ return ::Rf_rnbeta(a, b, np); }
+    //inline double rnbeta(double a, double b, double np)					{ return ::Rf_rnbeta(a, b, np); }
 
     /* Non-central F Distribution */
     inline double dnf(double x, double df1, double df2, double ncp, int lg)		{ return ::Rf_dnf(x, df1, df2, ncp, lg); }

inst/include/Rcpp/config.h

@@ -31,7 +31,7 @@
 #define RCPP_VERSION_STRING     "1.1.0"
 
 // the current source snapshot (using four components, if a fifth is used in DESCRIPTION we ignore it)
-#define RCPP_DEV_VERSION        RcppDevVersion(1,1,0,8)
-#define RCPP_DEV_VERSION_STRING "1.1.0.8"
+#define RCPP_DEV_VERSION        RcppDevVersion(1,1,0,9)
+#define RCPP_DEV_VERSION_STRING "1.1.0.9"
 
 #endif

inst/include/Rcpp/sugar/undoRmath.h

@@ -146,7 +146,7 @@
 #undef rhyper
 #undef rlnorm
 #undef rlogis
-#undef rnbeta
+//#undef rnbeta
 #undef rnbinom
 #undef rnchisq
 #undef rnf