satisfy lintr

Author: clarkfitzg

R/pkg/inst/tests/testthat/test_utils.R

@@ -184,7 +184,7 @@ test_that("overrideEnvs", {
 })
 
 test_that("rbindRaws", {
-  r <- serialize(1, connection=NULL)
+  r <- serialize(1, connection = NULL)
   inputData <- list(list(1L, r), list(2L, r), list(3L, r))
   expected <- data.frame(V1 = 1:3)
   expected$V2 <- list(r, r, r)

R/pkg/inst/worker/worker.R

@@ -38,7 +38,7 @@ compute <- function(mode, partition, serializer, deserializer, key,
       options(stringsAsFactors = FALSE)
 
       # Handle binary data types
-      if("raw" %in% sapply(inputData[[1]], class)){
+      if ("raw" %in% sapply(inputData[[1]], class)) {
         inputData <- SparkR:::rbindRaws(inputData)
       } else {
         inputData <- do.call(rbind.data.frame, inputData)