From e5826285eedf110ffa712e46a677d343cbfe2013 Mon Sep 17 00:00:00 2001
From: zsxwing <zsxwing@gmail.com>
Date: Mon, 22 Jun 2015 11:06:16 +0800
Subject: [PATCH] Add pretty parameter to the show method in R

---
 R/pkg/R/DataFrame.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/pkg/R/DataFrame.R b/R/pkg/R/DataFrame.R
index 41ec979664413..b91ac44bc89cd 100644
--- a/R/pkg/R/DataFrame.R
+++ b/R/pkg/R/DataFrame.R
@@ -169,8 +169,8 @@ setMethod("isLocal",
 #'}
 setMethod("showDF",
           signature(x = "DataFrame"),
-          function(x, numRows = 20) {
-            s <- callJMethod(x@sdf, "showString", numToInt(numRows), TRUE)
+          function(x, numRows = 20, pretty = TRUE) {
+            s <- callJMethod(x@sdf, "showString", numToInt(numRows), pretty)
             cat(s)
           })