spaces before parens

hadley · Apr 8, 2015 · 9d32f32 · 9d32f32
1 parent 390f58d
commit 9d32f32
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/R/each.r b/R/each.r
@@ -48,7 +48,7 @@ each <- function(...) {
     # If there is only one function, things are simple.  We just
     # need to name the output, if appropriate.
     function(x, ...) {
-      res <- fs[[1]](x, ...)
+      res <- fs[[1]](x, ...) # nolint
       if (length(res) == 1) names(res) <- unames
       res
     }
@@ -65,10 +65,10 @@ each <- function(...) {
         result <<- vector("list", length = n)
         names(result) <- unames
 
-        for (i in 1:n) result[[i]] <- fs[[i]](x, ...)
+        for (i in 1:n) result[[i]] <- fs[[i]](x, ...) # nolint
         proto <<- list_to_vector(result)
       } else {
-        for (i in 1:n) proto[[i]] <- fs[[i]](x, ...)
+        for (i in 1:n) proto[[i]] <- fs[[i]](x, ...) # nolint
       }
       proto
     }

diff --git a/R/here.r b/R/here.r
@@ -21,7 +21,7 @@
 #' f2("name:")
 #' # Works :)
 here <- function(f) {
-  call <- substitute(function(...) (f)(...), list(f = f))
+  call <- substitute(function(...) (f)(...), list(f = f)) # nolint
   fun <- eval(call, parent.frame())
   attr(fun, "srcref") <- srcfilecopy("<text>", deparse(call))
   fun

diff --git a/R/rbind-fill.r b/R/rbind-fill.r
@@ -67,7 +67,7 @@ rbind.fill <- function(...) {
     df <- dfs[[i]]
 
     for (var in names(df)) {
-      setters[[var]](rng, df[[var]])
+      setters[[var]](rng, df[[var]]) # nolint
     }
   }
 

diff --git a/tests/testthat/test-rbind.r b/tests/testthat/test-rbind.r
@@ -286,19 +286,19 @@ expect_linear_enough <- function(timings, size=2^10, threshold=0.2) {
 }
 
 test_that("rbind.fill performance linear", {
-  timings <- get_rbind_times(data.frame(size = 2^(1:10)),
+  timings <- get_rbind_times(data.frame(size = 2 ^ (1:10)),
                              classes=c("numeric", "character", "array"))
   expect_linear_enough(timings)
 })
 
 test_that("rbind.fill performance linear with factors", {
-  timings <- get_rbind_times(data.frame(size = 2^(1:10)),
+  timings <- get_rbind_times(data.frame(size = 2 ^ (1:10)),
                              classes=c("factor"))
   expect_linear_enough(timings)
 })
 
 test_that("rbind.fill performance linear with times", {
-  timings <- get_rbind_times(data.frame(size = 2^(1:10)),
+  timings <- get_rbind_times(data.frame(size = 2 ^ (1:10)),
                              classes=c("time"))
   expect_linear_enough(timings)
 })