Reworked vignette processing via new 'asis' driver

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,15 @@
+2025-07-18  Dirk Eddelbuettel  <[email protected]>
+
+	* DESCRIPTION (Version, Date): Roll micro version and date
+	* inst/include/Rcpp/config.h: Idem
+
+	* R/asis.R (asisWeave, asisTangle): Borrowed with thanks from R.rsp
+	and shortened / simplified to provide 'asis' vignette processor
+	* R/zzz.R (.onLoad): Register new vignette processor
+	* vignettes/*.asis: New files with vignette info from .Rnw files
+	* vignettes/pdf/*.pdf: Moved to directory vignettes/
+	* vignettes/*.Rnw: Removed
+
 2025-07-01  Dirk Eddelbuettel  <[email protected]>
 
         * DESCRIPTION (Date, Version): Release 1.1.0

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 1.1.0
-Date: 2025-07-01
+Version: 1.1.0.1
+Date: 2025-07-18
 Authors@R: c(person("Dirk", "Eddelbuettel", role = c("aut", "cre"), email = "[email protected]",
                     comment = c(ORCID = "0000-0001-6419-907X")),
              person("Romain", "Francois", role = "aut",
@@ -35,3 +35,4 @@ BugReports: https://github.com/RcppCore/Rcpp/issues
 MailingList: [email protected]
 RoxygenNote: 6.1.1
 Encoding: UTF-8
+VignetteBuilder: Rcpp

R/asis.R

@@ -0,0 +1,27 @@
+## These two functions are borrowed with grateful appreciation from the R.rsp package
+## by Henrik Bengtsson licensend under LPGL (>= 2.1) and somewhat simplified / shortened
+## feature-reduced here. Please the R.rsp for a full-featured version and documentation
+
+asisWeave <- function (file, ...) {
+    output <- tools::file_path_sans_ext(basename(file))
+    if (!file.exists(output)) {
+        outputS <- file.path("..", "inst", "doc", output)
+        if (file.exists(outputS)) {
+            file.copy(outputS, output, overwrite = TRUE)
+            output <- outputS
+        } else {
+            stop("No file to process", call. = FALSE)
+        }
+    }
+    Sys.setFileTime(output, time = Sys.time())
+    output
+}
+
+asisTangle <- function (file, ..., pattern = "(|[.][^.]*)[.]asis$") {
+    workdir <- "."
+    filename <- basename(file)
+    fullname <- gsub(pattern, "", filename)
+    filenameR <- sprintf("%s.R", fullname)
+    cat(sprintf("### This is an R script tangled from '%s'\n", filename), file = filenameR)
+    invisible(filenameR)
+}

R/zzz.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2009 - 2016  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2009 - 2025  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -20,7 +20,8 @@
 .classes_map <- new.env()
 
 .onLoad <- function(libname, pkgname){
-    new_dummyObject(.dummyInstancePointer)   # nocov
-}
-
+    new_dummyObject(.dummyInstancePointer)   						# nocov start
 
+    tools::vignetteEngine("asis", package = pkgname, pattern = "[.](pdf|html)[.]asis$",
+                          weave = asisWeave, tangle = asisTangle)	# nocov end
+}

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,0)
-#define RCPP_DEV_VERSION_STRING "1.1.0.0"
+#define RCPP_DEV_VERSION        RcppDevVersion(1,1,0,1)
+#define RCPP_DEV_VERSION_STRING "1.1.0.1"
 
 #endif

vignettes/Rcpp-FAQ.Rnw

@@ -0,0 +1,5 @@
+%\VignetteIndexEntry{Rcpp-FAQ}
+%\VignetteKeywords{Rcpp, FAQ, R, Cpp}
+%\VignettePackage{Rcpp}
+%\VignetteEncoding{UTF-8}
+%\VignetteEngine{Rcpp::asis}