[R][BACKPORT-2.2] backport lint fix

felixcheung · Felix Cheung · commit b51ce9377d44 · 2018-05-15T19:31:34.000-07:00
## What changes were proposed in this pull request? backport part of the commit that addresses lintr issue Author: Felix Cheung <felixcheung_m@hotmail.com> Closes #21325 from felixcheung/rlintfix22. (cherry picked from commit 8c223b6) Signed-off-by: Felix Cheung <felixcheung@apache.org>
diff --git a/R/pkg/R/sparkR.R b/R/pkg/R/sparkR.R
@@ -196,7 +196,7 @@ sparkR.sparkContext <- function(
 
     # Don't use readString() so that we can provide a useful
     # error message if the R and Java versions are mismatched.
-    authSecretLen = readInt(f)
+    authSecretLen <- readInt(f)
     if (length(authSecretLen) == 0 || authSecretLen == 0) {
       stop("Unexpected EOF in JVM connection data. Mismatched versions?")
     }

Original file line number	Diff line number	Diff line change
`@@ -196,7 +196,7 @@ sparkR.sparkContext <- function(`
`196`	`196`
`197`	`197`	`# Don't use readString() so that we can provide a useful`
`198`	`198`	`# error message if the R and Java versions are mismatched.`
`199`		`- authSecretLen = readInt(f)`
	`199`	`+ authSecretLen <- readInt(f)`
`200`	`200`	`if (length(authSecretLen) == 0 \|\| authSecretLen == 0) {`
`201`	`201`	`stop("Unexpected EOF in JVM connection data. Mismatched versions?")`
`202`	`202`	`}`