fix copy constructors for C++ 11/14 / ammend RNG note / partial int-dbl-lgl matrix implict conversion

Author: pachadotdev

.github/workflows/test-coverage.yaml

@@ -34,14 +34,33 @@ jobs:
         run: |
           options(warn = 2)
           pak::local_install("./", dependencies = TRUE)
+          
+          # Override Makevars to avoid _FORTIFY_SOURCE warning with -O0
+          # covr adds --coverage which needs -O0, but _FORTIFY_SOURCE needs -O
+          makevars_content <- paste(
+            "PKG_CXXFLAGS = $(SHLIB_OPENMP_CXXFLAGS)",
+            "PKG_LIBS = $(SHLIB_OPENMP_CXXFLAGS) $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)",
+            sep = "\n"
+          )
+          writeLines(makevars_content, "./extended-tests/cpp4rtest/src/Makevars")
+          
           pak::local_install("./extended-tests/cpp4rtest", dependencies = TRUE)
         shell: Rscript {0}
 
       - name: Test coverage
         run: |
-          coverage <- covr::package_coverage("./extended-tests/cpp4rtest", quiet = FALSE)
-          percent <- round(covr::percent_coverage(coverage))
-          cat("Coverage:", percent, "%\n")
+          coverage <- covr::package_coverage(
+            "./extended-tests/cpp4rtest",
+            type = "all",
+            quiet = FALSE
+          )
+          
+          # Debug: show coverage breakdown
+          print(coverage)
+          
+          percent_exact <- covr::percent_coverage(coverage)
+          percent <- floor(percent_exact)  # Use floor for conservative estimate
+          cat("\nCoverage:", percent_exact, "% (rounded down to", percent, "%)\n")
           
           # Create badge color based on coverage
           if (percent >= 90) {

Makefile

@@ -21,13 +21,12 @@ check:
 	@$(MAKE) install
 	@$(MAKE) register
 	@Rscript -e 'devtools::check("./", error_on = "error")'
-	@Rscript -e	'cpp4r::register("extended-tests/cpp4rtest")'
-	@Rscript -e 'devtools::check("./", error_on = "error")'
 	@echo "==============================="
 	@echo "Checking C++ code"
 	@$(MAKE) install
 	@rm -f extended-tests-results/*.log
 	@rm -f extended-tests-results/check-results.md
+	@Rscript -e	'cpp4r::register("extended-tests/cpp4rtest")'
 	@export -p USE_CLANG; /bin/bash -euo pipefail -c './scripts/check_loop.sh'
 	@echo "==============================="
 

docs/last-updated.json

@@ -1,3 +1,3 @@
 {
-  "last_updated": "Last updated: 2025-11-29 20:43:17"
+  "last_updated": "Last updated: 2025-11-30 09:25:47"
 }

docs/search.json

@@ -260,9 +260,6 @@ <h2>Are all values in a vector ‘true’?</h2>
   all2_cpp_3(x &gt; 2)
 )</code></pre>
 </div>
-<div id="references" class="section level2">
-<h2>References</h2>
-</div>
 
 
 

docs/vignettes/08-logical-functions-2.html

@@ -286,9 +286,6 @@ <h2>Cumulative maximum</h2>
   cummax_cpp(x)
 )</code></pre>
 </div>
-<div id="references" class="section level2">
-<h2>References</h2>
-</div>
 
 
 

docs/vignettes/09-rolling-functions-2.html

@@ -249,9 +249,6 @@ <h2>Root Mean Square Error (RMSE)</h2>
   rmse2_cpp(x, 0, na_rm = TRUE)
 )</code></pre>
 </div>
-<div id="references" class="section level2">
-<h2>References</h2>
-</div>
 
 
 

docs/vignettes/10-statistical-functions-2.html

@@ -97,9 +97,6 @@ <h1></h1>
 return ptr;</code></pre>
 <p>Similarly, the <code>Rcpp</code> version checks the engine with:</p>
 <pre class="r"><code>stopifnot(inherits(engine, "tesseract"))</code></pre>
-<div id="references" class="section level2">
-<h2>References</h2>
-</div>
 
 
 

docs/vignettes/12-external-pointers.html

@@ -193,9 +193,6 @@ <h2>Anticonf scripts</h2>
 optimization level used by R. It also serves the goal of testing that a
 simple file can be compiled.</p>
 </div>
-<div id="references" class="section level2">
-<h2>References</h2>
-</div>
 
 
 

docs/vignettes/13-compiler-optimization.html

@@ -692,6 +692,26 @@ <h2>How do I modify a matrix rownames/colnames on C++ side?</h2>
   return out;
 }</code></pre>
 </div>
+<div id="how-do-i-use-the-same-seed-defined-in-r-for-random-number-generation-in-c" class="section level2">
+<h2>How do I use the same seed defined in R for random number generation
+in C++?</h2>
+<p>If you use <code>set.seed(42)</code> (or any other value) in R, you
+need to explicitly use <code>GetRNGstate()</code> and
+<code>PutRNGstate()</code> in your C++ code to synchronize the RNG state
+between R and C++. Otherwise, the result will not be replicable for not
+correctly using the Random Number Generator (RNG) state from R.</p>
+<pre class="cpp"><code>#include "cpp4r/doubles.hpp"
+#include "R.h"
+#include "Rmath.h"
+
+// single draw from standard normal using R's RNG (replicable result)
+[[cpp4r::register]] double using_rng_() {
+  GetRNGstate();
+  double x = Rf_rnorm(0, 1);
+  PutRNGstate();
+  return x;
+}</code></pre>
+</div>