@@ -1,8 +1,8 @@

 # Title: .Rprofile

 # Author: Frédéric CHEVALIER <f15.chevalier@gmail.com>

-# Version: 0.0

+# Version: 0.1

 # Created in: 2014-07-06

-# Modified in:

+# Modified in: 2014-08-06

@@ -19,6 +19,7 @@

 # Versions #

 #==========#

+# v0.1 - 2014-08-06: bug correction about interactivity (curly brackets missing)

 # v0.0 - 2014-07-06: creation

@@ -28,7 +29,7 @@

 #=======================#

 # Test if it is an interactive session

-if(interactive())

+if (interactive()) {

 # Create a new invisible environment for all the functions to go in so it doesn't clutter your workspace

 .startup <- new.env()

@@ -56,11 +57,11 @@ require(utils, quietly = TRUE)

 	# Add colors to prompt

 	options(colorout.anyterm = TRUE)

-    if(! .startup$is.installed("colorout")) {

-        cat("If you want colored prompt, you should install the colorout package.\nLink: http://www.lepem.ufc.br/jaa/colorout.html\n\n")

-    } else {

-        library('colorout')

-    	setOutputColors256(

+	if(! .startup$is.installed("colorout")) {

+		cat("If you want colored prompt, you should install the colorout package.\nLink: http://www.lepem.ufc.br/jaa/colorout.html\n\n")

+	} else {

+		library('colorout')

+		setOutputColors256(

 	    	normal = 40,

 		    number = 214,

     		string = 85,

@@ -69,13 +70,13 @@ require(utils, quietly = TRUE)

     		error = c(1, 0, 1),

 	    	warn = c(1, 0, 100)

     	)

-	    cat("\n")

+		cat("\n")

     }

-    # Enlarge columns display in R terminal

+	# Enlarge columns display in R terminal

 	# source: http://stackoverflow.com/questions/1172485/how-to-increase-the-number-of-columns-using-r-in-linux

 	wideScreen <- function(howWide=Sys.getenv("COLUMNS")) {

-	     options(width=as.integer(howWide))

+		options(width=as.integer(howWide))

 	wideScreen()

 	}

@@ -127,3 +128,5 @@ if (capabilities()[["tcltk"]] && require(tcltk2, quietly=TRUE)) {

 # Attach all the variables above

 attach(.startup)

+

+} # End of interactive statement