Commit3f3bf08

committed

don't print init.c message if attributes=TRUE

1 parentce023b8 commit3f3bf08Copy full SHA for 3f3bf08

File tree

-7

lines changed

-7

lines changed

Lines changed: 9 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -187,13 +187,15 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),`
`187`	`187`
`188`	`188`	`# generate native routines if we aren't using attributes (which already generate`
`189`	`189`	`# them automatically) and we have at least R 3.4`
`190`		`-if (!attributes&& getRversion()>="3.4.0") {`
`191`		`-con<- file(file.path(src,"init.c"),"wt")`
`192`		`-tools::package_native_routine_registration_skeleton(root,con=con)`
`193`		`- close(con)`
`194`		`- message(" >> created init.c for package registration")`
`195`		`- }else {`
`196`		`- message(" >> R version older than 3.4.0 detected, so NO file init.c created.")`
	`190`	`+if (!attributes) {`
	`191`	`+if (getRversion()>="3.4.0") {`
	`192`	`+con<- file(file.path(src,"init.c"),"wt")`
	`193`	`+tools::package_native_routine_registration_skeleton(root,con=con)`
	`194`	`+ close(con)`
	`195`	`+ message(" >> created init.c for package registration")`
	`196`	`+ }else {`
	`197`	`+ message(" >> R version older than 3.4.0 detected, so NO file init.c created.")`
	`198`	`+ }`
`197`	`199`	`}`
`198`	`200`
`199`	`201`	`lines<- readLines(package.doc<- file.path(root,"man", sprintf("%s-package.Rd",name)))`

Comments

(0)