v0.4.0 on CRAN

Author: pachadotdev

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.3.0
-Date: 2025-10-10 21:27:52 UTC
-SHA: 7df902a139baf9562afb5fdbe849f1c6f6454098
+Version: 0.4.0
+Date: 2025-12-04 13:21:04 UTC
+SHA: b515f37932f4f590f785e2271e4d95b97c12546b

Makefile

@@ -4,14 +4,9 @@ clean:
 	@Rscript -e 'devtools::clean_dll("extended-tests/cpp4rbenchmark")'
 	@Rscript -e 'devtools::clean_dll("extended-tests/Rcppbenchmark")'
 
-register:
-	@Rscript -e	'cpp4r::register("extended-tests/cpp4rtest")'
-	@Rscript -e	'cpp4r::register("extended-tests/cpp4rbenchmark")'
-
 install:
 	@Rscript -e 'devtools::install("./")'
-	@Rscript -e 'cpp4r::unvendor("./extended-tests/cpp4r4rtest/src/vendor");
-		cpp4r::vendor("./extended-tests/cpp4r4rtest/src/vendor")'
+	@Rscript -e 'cpp4r::unvendor("./extended-tests/cpp4rtest/src/vendor"); cpp4r::vendor("./extended-tests/cpp4rtest/src/vendor")'
 
 docs:
 	@Rscript -e 'devtools::document("./"); pkgsite::build_site("./")'
@@ -21,14 +16,12 @@ check:
 	@echo "Checking R code"
 	@$(MAKE) clean
 	@$(MAKE) install
-	@$(MAKE) register
 	@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 "==============================="
 
@@ -37,7 +30,6 @@ bench:
 	@rm -f extended-tests-results/bench_summary.md
 	@$(MAKE) clean
 	@$(MAKE) install
-	@$(MAKE) register
 	@export -p USE_CLANG; /bin/bash -euo pipefail -c './scripts/bench_loop.sh'
 	@Rscript './scripts/combine-benchmarks.R'
 

R/register.R

@@ -223,17 +223,17 @@ generate_r_functions <- function(funs, package = "cpp4r", use_package = FALSE) {
   }
 
   funs$package_call <- package_call
-  
+
   # Extract default values and create parameter lists
   funs$param_info <- lapply(funs$args, function(args_df) {
     if (nrow(args_df) == 0) {
       return(list(params = "", args = "", checks = ""))
     }
-    
+
     # Parse default values from the type column (they appear after '=')
     param_names <- args_df$name
     param_types <- args_df$type
-    
+
     # Extract defaults (format: "type name = value" becomes "value")
     defaults <- vapply(param_types, function(t) {
       if (grepl("=", t)) {
@@ -242,12 +242,12 @@ generate_r_functions <- function(funs, package = "cpp4r", use_package = FALSE) {
         ""
       }
     }, character(1))
-    
+
     # Clean up types (remove default value parts)
     clean_types <- vapply(param_types, function(t) {
       trimws(sub("\\s*=.*$", "", t))
     }, character(1))
-    
+
     # Generate R function parameters with defaults
     params_with_defaults <- vapply(seq_along(param_names), function(i) {
       if (nzchar(defaults[i])) {
@@ -258,24 +258,24 @@ generate_r_functions <- function(funs, package = "cpp4r", use_package = FALSE) {
         param_names[i]
       }
     }, character(1))
-    
+
     # Generate type checking/coercion code
     checks <- vapply(seq_along(param_names), function(i) {
       generate_type_check(param_names[i], clean_types[i])
     }, character(1))
     checks <- checks[nzchar(checks)]
-    
+
     list(
       params = paste(params_with_defaults, collapse = ", "),
       args = paste(param_names, collapse = ", "),
       checks = if (length(checks) > 0) paste0("\t", checks, collapse = "\n") else ""
     )
   })
-  
+
   funs$list_params <- vapply(funs$param_info, function(x) x$params, character(1))
   funs$call_args <- vapply(funs$param_info, function(x) x$args, character(1))
   funs$type_checks <- vapply(funs$param_info, function(x) x$checks, character(1))
-  
+
   funs$params <- vcapply(funs$call_args, function(x) if (nzchar(x)) paste0(", ", x) else x)
   is_void <- funs$return_type == "void"
   funs$calls <- ifelse(is_void,
@@ -308,7 +308,7 @@ generate_r_functions <- function(funs, package = "cpp4r", use_package = FALSE) {
     } else {
       paste0("\n\t", calls, "\n")
     }
-    
+
     if (nzchar(roxygen_comment)) {
       glue::glue("{roxygen_comment}\n{name} <- function({list_params}) {{{body}}}")
     } else {
@@ -324,7 +324,7 @@ generate_r_functions <- function(funs, package = "cpp4r", use_package = FALSE) {
 # Helper function to convert C++ default values to R
 convert_cpp_default_to_r <- function(cpp_default) {
   cpp_default <- trimws(cpp_default)
-  
+
   # Handle common cases
   if (cpp_default == "true" || cpp_default == "TRUE") {
     return("TRUE")
@@ -342,7 +342,7 @@ convert_cpp_default_to_r <- function(cpp_default) {
   } else if (cpp_default == "NULL" || cpp_default == "nullptr") {
     return("NULL")
   }
-  
+
   # Default: keep as-is and hope for the best
   cpp_default
 }

R/template.R

@@ -2,11 +2,11 @@
 # which is then opened by RStudio when the new project is opened.
 
 #' @title Start a new project with the cpp4r package template
-#' 
+#'
 #' @description This function copies a package template into a new directory.
 #' The template includes a DESCRIPTION file, a minimal R/ directory and placeholders
 #' with instructions. You can then edit these files to customize your new package.
-#' 
+#'
 #' @param path Path to the new project
 #' @param pkgname Name of the new package
 #' @return The file path to the copied template (invisibly).

R/unvendor.R

@@ -54,7 +54,7 @@ unvendor <- function(path = NULL) {
 
   # Remove the info file if it exists
   unlink(info_file_path)
-  
+
   # If path does not contain any other files, remove the directory
   remaining_files <- list.files(path, all.files = TRUE, no.. = TRUE)
   if (length(remaining_files) == 0) {

dev/benchmark.R

@@ -16,9 +16,18 @@ rejection_bench <- map_df(
     cat("Target samples:", n_samples, "\n")
     d <- bench::mark(
       # "R" = { set.seed(123); cpp4rsampling::rejection_sampling(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5) },
-      "cpp4r" = { set.seed(123); cpp4rsampling::rejection_sampling_cpp4r(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5) },
-      "cpp11" = { set.seed(123); cpp11sampling::rejection_sampling_cpp11(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5) },
-      "Rcpp" = { set.seed(123); Rcppsampling::rejection_sampling_Rcpp(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5) },
+      "cpp4r" = {
+        set.seed(123)
+        cpp4rsampling::rejection_sampling_cpp4r(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5)
+      },
+      "cpp11" = {
+        set.seed(123)
+        cpp11sampling::rejection_sampling_cpp11(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5)
+      },
+      "Rcpp" = {
+        set.seed(123)
+        Rcppsampling::rejection_sampling_Rcpp(n_samples, mu = 0, sigma = 1, lower = -1.5, upper = 1.5)
+      },
       iterations = 10
     )
 

dev/check-urls.R

@@ -27,10 +27,10 @@ cat("\n" %in% "Checking for common redirect patterns...\n")
 desc_file <- "DESCRIPTION"
 if (file.exists(desc_file)) {
   desc_content <- readLines(desc_file)
-  
+
   # Look for URLs in DESCRIPTION
   url_lines <- grep("http", desc_content, value = TRUE)
-  
+
   if (length(url_lines) > 0) {
     cat("URLs found in DESCRIPTION:\n")
     for (line in url_lines) {
@@ -46,7 +46,7 @@ for (readme in readme_files) {
     cat(paste0("\nChecking ", readme, "...\n"))
     readme_content <- readLines(readme)
     url_lines <- grep("http", readme_content, value = TRUE)
-    
+
     if (length(url_lines) > 0) {
       cat("URLs found:\n")
       for (line in url_lines) {

docs/last-updated.json

@@ -1,3 +1,3 @@
 {
-  "last_updated": "Last updated: 2025-11-30 09:25:47"
+  "last_updated": "Last updated: 2025-12-05 21:21:48"
 }

docs/vignettes/01-intro.html

@@ -69,8 +69,7 @@
 <div id="content">
 <div class="content-wrapper">
         <div class="content-main">
-          <h1></h1>
-<script src="libs/header-attrs-2.30/header-attrs.js"></script><h1 class="title toc-ignore">01 - Introduction</h1>
+          <h1>01 - Introduction</h1>
 
 
 
@@ -298,21 +297,7 @@ <h1 class="unnumbered">References</h1>
 </div>
 </div>
 </div>
-
-
-
-<!-- code folding -->
-
-
-<!-- dynamically load mathjax for compatibility with self-contained -->
-<script>
-  (function () {
-    var script = document.createElement("script");
-    script.type = "text/javascript";
-    script.src  = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
-    document.getElementsByTagName("head")[0].appendChild(script);
-  })();
-</script></div>
+        </div>
         <footer><p id="last-updated">Loading...</p>
 </footer><script src="../js/footer.js"></script><script src="../js/theme.js"></script><script src="../js/search.js"></script><script src="../js/fontsize.js"></script></div>
 </div>

docs/vignettes/02-setup.html

@@ -69,8 +69,7 @@
 <div id="content">
 <div class="content-wrapper">
         <div class="content-main">
-          <h1></h1>
-<script src="libs/header-attrs-2.30/header-attrs.js"></script><h1 class="title toc-ignore">02 - Setup</h1>
+          <h1>02 - Setup</h1>
 
 
 
@@ -129,21 +128,7 @@ <h2>R Setup</h2>
 Running /usr/lib64/R/bin/R CMD SHLIB foo.c
 using C compiler: ‘gcc (GCC) 15.2.1 20250813’</code></pre>
 </div>
-
-
-
-<!-- code folding -->
-
-
-<!-- dynamically load mathjax for compatibility with self-contained -->
-<script>
-  (function () {
-    var script = document.createElement("script");
-    script.type = "text/javascript";
-    script.src  = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
-    document.getElementsByTagName("head")[0].appendChild(script);
-  })();
-</script></div>
+        </div>
         <footer><p id="last-updated">Loading...</p>
 </footer><script src="../js/footer.js"></script><script src="../js/theme.js"></script><script src="../js/search.js"></script><script src="../js/fontsize.js"></script></div>
 </div>