[Rcpp-commits] r1113 - pkg/Rcpp/R

[noreply at r-forge.r-project.org]

Author: edd
Date: 2010-04-23 04:56:38 +0200 (Fri, 23 Apr 2010)
New Revision: 1113

Modified:
   pkg/Rcpp/R/RcppLdpath.R
Log:
white-space changes only (indentation mostly)


Modified: pkg/Rcpp/R/RcppLdpath.R
===================================================================
--- pkg/Rcpp/R/RcppLdpath.R	2010-04-22 14:41:13 UTC (rev 1112)
+++ pkg/Rcpp/R/RcppLdpath.R	2010-04-23 02:56:38 UTC (rev 1113)
@@ -1,14 +1,14 @@
 
 ## make sure system.file returns an absolute path
-system.file <- function(...){
-	tools:::file_path_as_absolute( base:::system.file( ... ) )
+system.file <- function(...) {
+    tools:::file_path_as_absolute( base:::system.file( ... ) )
 }
 
-## identifies if the default linking on the platform should be static 
+## identifies if the default linking on the platform should be static
 ## or dynamic. Currently only linux uses dynamic linking by default
 ## although it works fine on mac osx as well
-staticLinking <- function(){
-	! grepl( "^linux", R.version$os ) 
+staticLinking <- function() {
+    ! grepl( "^linux", R.version$os )
 }
 
 ## Use R's internal knowledge of path settings to find the lib/ directory
@@ -75,9 +75,9 @@
 # compile, load and call the cxx0x.c script to identify whether
 # the compiler is GCC >= 4.3
 RcppCxx0xFlags <- function(){
-	script <- system.file( "discovery", "cxx0x.R", package = "Rcpp" )
-	flag <- capture.output( source( script ) )
-	flag
+    script <- system.file( "discovery", "cxx0x.R", package = "Rcpp" )
+    flag <- capture.output( source( script ) )
+    flag
 }
 
 Cxx0xFlags <- function() cat( RcppCxx0xFlags() )