remove force argument if pkgKitten is used

eddelbuettel · eddelbuettel · commit cac955311eb0 · 2019-10-13T16:36:45.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -2,8 +2,8 @@
 
 	* DESCRIPTION (Version, Date): Roll minor version
 
-	* R/RcppEigen.package.skeleton.R (RcppEigen.package.skeleton): Move
-	test for example_code outside of haveKitten test
+	* R/RcppEigen.package.skeleton.R (RcppEigen.package.skeleton): Test for
+	example_code outside of haveKitten test; remove force argument if unused
 
 2019-05-24  Dirk Eddelbuettel  <edd@debian.org>
 
diff --git a/R/RcppEigen.package.skeleton.R b/R/RcppEigen.package.skeleton.R
@@ -47,6 +47,10 @@ RcppEigen.package.skeleton <- function(name= "anRpackage", list = character(),
         if (fake) {
             call[["list"]] <- "Rcpp.fake.fun"
         }
+    } else {
+        if (force) {
+            call[["force"]] <- NULL
+        }
     }
 
     tryCatch(eval(call, envir = env),

Original file line number	Diff line number	Diff line change
`@@ -47,6 +47,10 @@ RcppEigen.package.skeleton <- function(name= "anRpackage", list = character(),`
`47`	`47`	`if (fake) {`
`48`	`48`	`call[["list"]] <- "Rcpp.fake.fun"`
`49`	`49`	`}`
	`50`	`+ } else {`
	`51`	`+ if (force) {`
	`52`	`+ call[["force"]] <- NULL`
	`53`	`+ }`
`50`	`54`	`}`
`51`	`55`
`52`	`56`	`tryCatch(eval(call, envir = env),`