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

 # Title: .Rprofile

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

-# Version: 0.2

+# Version: 0.3

 # Created in: 2014-07-06

-# Modified in: 2014-10-21

+# Modified in: 2014-11-03

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

 # Versions #

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

+# v0.3 - 2014-11-03: less function added

 # v0.2 - 2014-10-21: bug correction about width of terminal

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

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

@@ -113,6 +114,15 @@ if (capabilities()[["tcltk"]] && require(tcltk2, quietly=TRUE)) {

 # Exit

 .startup$bye <- function () {q("no")}

+# Less emulation

+# source: http://stackoverflow.com/questions/3503811/is-there-an-r-equivalent-to-the-bash-command-more

+.startup$less <- function(x) {

+    file <- tempfile()

+    sink(file); on.exit(sink())

+    print(x)

+    file.show(file, delete.file = T)

+}

+

 #=========#