Add loadModule to NAMESPACE in Rcpp.package.skeleton() (closes #118)

kevinushey · kevinushey · commit 6d30b2fa5c77 · 2014-02-24T16:46:02.000-08:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-23  Kevin Ushey <kevinushey@gmail.com>
+
+        * R/Rcpp.package.skeleton.R: make sure we add loadModule
+        to NAMESPACE when module is TRUE
+
 2014-02-23  Kevin Ushey <kevinushey@gmail.com>
 
         * inst/include/Rcpp/DataFrame.h: better nrows behavior
diff --git a/R/Rcpp.package.skeleton.R b/R/Rcpp.package.skeleton.R
@@ -109,6 +109,8 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
     }
     if (isTRUE(module)) {
         writeLines('import(methods)', ns)
+        writeLines('importFrom(Rcpp, loadModule)', ns)
+        message(" >> added importFrom(Rcpp, loadModule) directive to NAMESPACE")
     }
     writeLines('importFrom(Rcpp, evalCpp)', ns)
     message(" >> added importFrom(Rcpp, evalCpp) directive to NAMESPACE" )

-Original file line number
+Diff line change
@@ @@ -1,3 +1,8 @@ @@
 +2014-02-23  Kevin Ushey <[email protected]>
++
 +        * R/Rcpp.package.skeleton.R: make sure we add loadModule
 +        to NAMESPACE when module is TRUE
++
 -02-23  Kevin Ushey <[email protected]>
         * inst/include/Rcpp/DataFrame.h: better nrows behavior
Original file line number	Diff line number	Diff line change
`@@ -109,6 +109,8 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),`
`109`	`109`	`}`
`110`	`110`	`if (isTRUE(module)) {`
`111`	`111`	`writeLines('import(methods)', ns)`
	`112`	`+ writeLines('importFrom(Rcpp, loadModule)', ns)`
	`113`	`+ message(" >> added importFrom(Rcpp, loadModule) directive to NAMESPACE")`
`112`	`114`	`}`
`113`	`115`	`writeLines('importFrom(Rcpp, evalCpp)', ns)`
`114`	`116`	`message(" >> added importFrom(Rcpp, evalCpp) directive to NAMESPACE" )`