Repository: spark
Updated Branches:
  refs/heads/master e2a843090 -> 499e8e154


[SPARK-8952] [SPARKR] - Wrap normalizePath calls with suppressWarnings

This is based on davies comment on SPARK-8952 which suggests to only call 
normalizePath() when path starts with '~'

Author: Luciano Resende <lrese...@apache.org>

Closes #8343 from lresende/SPARK-8952.


Project: http://git-wip-us.apache.org/repos/asf/spark/repo
Commit: http://git-wip-us.apache.org/repos/asf/spark/commit/499e8e15
Tree: http://git-wip-us.apache.org/repos/asf/spark/tree/499e8e15
Diff: http://git-wip-us.apache.org/repos/asf/spark/diff/499e8e15

Branch: refs/heads/master
Commit: 499e8e154bdcc9d7b2f685b159e0ddb4eae48fe4
Parents: e2a8430
Author: Luciano Resende <lrese...@apache.org>
Authored: Fri Aug 28 09:13:21 2015 -0700
Committer: Shivaram Venkataraman <shiva...@cs.berkeley.edu>
Committed: Fri Aug 28 09:13:21 2015 -0700

----------------------------------------------------------------------
 R/pkg/R/SQLContext.R | 4 ++--
 R/pkg/R/sparkR.R     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/spark/blob/499e8e15/R/pkg/R/SQLContext.R
----------------------------------------------------------------------
diff --git a/R/pkg/R/SQLContext.R b/R/pkg/R/SQLContext.R
index 110117a..1bc6445 100644
--- a/R/pkg/R/SQLContext.R
+++ b/R/pkg/R/SQLContext.R
@@ -201,7 +201,7 @@ setMethod("toDF", signature(x = "RDD"),
 
 jsonFile <- function(sqlContext, path) {
   # Allow the user to have a more flexible definiton of the text file path
-  path <- normalizePath(path)
+  path <- suppressWarnings(normalizePath(path))
   # Convert a string vector of paths to a string containing comma separated 
paths
   path <- paste(path, collapse = ",")
   sdf <- callJMethod(sqlContext, "jsonFile", path)
@@ -251,7 +251,7 @@ jsonRDD <- function(sqlContext, rdd, schema = NULL, 
samplingRatio = 1.0) {
 # TODO: Implement saveasParquetFile and write examples for both
 parquetFile <- function(sqlContext, ...) {
   # Allow the user to have a more flexible definiton of the text file path
-  paths <- lapply(list(...), normalizePath)
+  paths <- lapply(list(...), function(x) suppressWarnings(normalizePath(x)))
   sdf <- callJMethod(sqlContext, "parquetFile", paths)
   dataFrame(sdf)
 }

http://git-wip-us.apache.org/repos/asf/spark/blob/499e8e15/R/pkg/R/sparkR.R
----------------------------------------------------------------------
diff --git a/R/pkg/R/sparkR.R b/R/pkg/R/sparkR.R
index e83104f..3c57a44 100644
--- a/R/pkg/R/sparkR.R
+++ b/R/pkg/R/sparkR.R
@@ -160,7 +160,7 @@ sparkR.init <- function(
   })
 
   if (nchar(sparkHome) != 0) {
-    sparkHome <- normalizePath(sparkHome)
+    sparkHome <- suppressWarnings(normalizePath(sparkHome))
   }
 
   sparkEnvirMap <- new.env()


---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscr...@spark.apache.org
For additional commands, e-mail: commits-h...@spark.apache.org

Reply via email to