No raw strings in old R versions

RcppCore · Aug 28, 2024 · d7858cb · d7858cb
1 parent 4ac962d
commit d7858cb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/Rcpp.package.skeleton.R b/R/Rcpp.package.skeleton.R
@@ -86,7 +86,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
                                                      "Description", "License")),
                    "Imports" = paste(imports, collapse = ", "),
                    "LinkingTo" = "Rcpp",
-                   "Authors@R" = sprintf(r"(person("%s", "%s", role = c("aut", "cre"), email = "%s"))",
+                   "Authors@R" = sprintf("person(\"%s\", \"%s\", role = c(\"aut\", \"cre\"), email = \"%s\")",
                                          paste(splitname[-length(splitname)], collapse=" "),
                                          splitname[length(splitname)],
                                          email))

diff --git a/inst/tinytest/test_rcpp_package_skeleton.R b/inst/tinytest/test_rcpp_package_skeleton.R
@@ -45,7 +45,9 @@ checkTrue( "foo" %in% list.files(path), "pkg path generated as named" )
 
 ## check the DESCRIPTION
 DESCRIPTION <- as.list( read.dcf( file.path(pkg_path, "DESCRIPTION") )[1,] )
-checkTrue( DESCRIPTION["Authors@R"] == 'person("Boo-Boo", "Bear", role = c("aut", "cre"), email = "yogibear@yogimail.com")', "wrote the Authors@R field in DESCRIPTION" )
+checkEqual(gsub("\\n", " ", DESCRIPTION["Authors@R"]),  # need to neutralise a line break
+           'person("Boo-Boo", "Bear", role = c("aut", "cre"), email = "yogibear@yogimail.com")',
+           "wrote the Authors@R field in DESCRIPTION" )
 checkTrue( DESCRIPTION["Date"] == format(Sys.Date()), "uses current date in DESCRIPTION")
 checkTrue( DESCRIPTION["License"] == "An Opensource License",
           "wrote the License field in DESCRIPTION" )