Removed extra spaces to comply with R style

Author: olarayej

R/pkg/R/DataFrame.R

@@ -1864,12 +1864,12 @@ setMethod("crosstab",
 #' df <- as.data.frame(irisDF[irisDF$Species == "setosa", ])
 #' }
 setGeneric("as.data.frame")
-setMethod(f = "as.data.frame", signature = "DataFrame", definition = 
-            function(x, ...) {
-              # Check if additional parameters have been passed
-              if (length(list(...)) > 0) {
-                stop(paste("Unused argument(s): ", paste(list(...), collapse=", ")))
-              }
-              return(collect(x))
+setMethod(f = "as.data.frame", signature = "DataFrame", definition =
+          function(x, ...) {
+            # Check if additional parameters have been passed
+            if (length(list(...)) > 0) {
+              stop(paste("Unused argument(s): ", paste(list(...), collapse=", ")))
             }
+            return(collect(x))
+          }
 )