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

Author: jjallaire

R/Rcpp.package.skeleton.R

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