Added tests for #1091, changed global option to prettyprint.char.

Author: arunsrinivasan

R/data.table.R

@@ -163,7 +163,9 @@ format.data.table <- function (x, ..., justify="none") {
         else
             paste("<",class(x)[1L],">",sep="")
     }
-    char.trunc <- function(x, trunc.char = getOption("datatable.print.pretty.char")) {
+    # FR #1091 for pretty printing of character
+    # TODO: maybe instead of doing "this is...", we could do "this ... test"?
+    char.trunc <- function(x, trunc.char = getOption("datatable.prettyprint.char")) {
         trunc.char = max(0L, suppressWarnings(as.integer(trunc.char[1L])), na.rm=TRUE)
         if (!is.character(x) || trunc.char <= 0L) return(x)
         idx = which(nchar(x) > trunc.char)

R/onLoad.R

@@ -42,7 +42,8 @@
              "datatable.fread.datatable"="TRUE",
              "datatable.old.bywithoutby"="FALSE",    # temp rollback method for code migration, will be removed in future
              "datatable.fread.dec.experiment"="TRUE", # temp.  will remove once stable
-             "datatable.fread.dec.locale"=if (.Platform$OS.type=="unix") "'fr_FR.utf8'" else "'French_France.1252'"
+             "datatable.fread.dec.locale"=if (.Platform$OS.type=="unix") "'fr_FR.utf8'" else "'French_France.1252'",
+             "datatable.prettyprint.char" = NULL # FR #1091
              )
     for (i in setdiff(names(opts),names(options()))) {
         eval(parse(text=paste("options(",i,"=",opts[i],")",sep="")))

inst/tests/tests.Rraw

@@ -6333,6 +6333,12 @@ test(1514.5, isReallyReal(x), TRUE)
 x = as.numeric(runif(2))
 test(1514.6, isReallyReal(x), TRUE)
 
+# #1091
+old.option = getOption("datatable.prettyprint.char")
+options(datatable.prettyprint.char = 5L)
+DT = data.table(x=1:2, y=c("abcdefghijk", "lmnopqrstuvwxyz"))
+test(1515.1, grep("abcde...", capture.output(print(DT))), 2L)
+
 ##########################