Ad-hoc fix for testthat's C entrypoint (#1274)

* fix argument type for run_testthat_tests entrypoint

* update Changelog

Author: Enchufa2

ChangeLog

@@ -1,3 +1,7 @@
+2023-08-29  Iñaki Ucar  <[email protected]>
+
+	* R/Attributes.R: Ad-hoc fix for testthat's C entrypoint in RcppExports.cpp
+
 2023-08-03  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Version, Date): Roll micro version

R/Attributes.R

@@ -1260,6 +1260,10 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
             if (!routine %in% routines) {
                 declaration <- grep(sprintf("^extern .* %s\\(.*$", routine), code,
                                     value = TRUE)
+                # FIXME: maybe we should extend this to *any* routine?
+                # or is there any case in which `void *` is not SEXP for a .Call?
+                if (routine == "run_testthat_tests")
+                    declaration <- gsub("void *", "SEXP", declaration, fixed=TRUE)
                 declarations <- c(declarations, sub("^extern", "RcppExport", declaration))
                 call_entries <- c(call_entries, match[[1]])			# #nocov end
             }