Formatting

R/rbind-matrix.r

@@ -60,12 +60,12 @@ rbind.fill.matrix <- function(...) {
   output <- matrix(NA, nrow = nrows, ncol = length(cols))
   colnames(output) <- cols
 
-  # Compute start and length for each data frame
-  pos <- matrix(c(cumsum(rows)-rows+1, rows), ncol=2)
+  # Compute start and length for each matrix
+  pos <- matrix(c(cumsum(rows) - rows + 1, rows), ncol = 2)
 
-  ## fill in the new matrix 
+  ## fill in the new matrix
   for(i in seq_along(rows)) {
-    rng <- seq(pos[i,1], length=pos[i,2])
+    rng <- seq(pos[i, 1], length = pos[i, 2])
     output[rng, lcols[[i]]] <- matrices[[i]]
   }
 

R/rbind.r

@@ -23,7 +23,7 @@ rbind.fill <- function(...) {
   if (is.list(dfs[[1]]) && !is.data.frame(dfs[[1]])) {
     dfs <- dfs[[1]]
   }
-  
+
   if (length(dfs) == 0) return()
   if (length(dfs) == 1) return(dfs[[1]])
 
@@ -34,13 +34,13 @@ rbind.fill <- function(...) {
 
   # Generate output template
   output <- output_template(dfs, nrows)
-  
+
   # Compute start and length for each data frame
-  pos <- matrix(c(cumsum(rows)-rows+1, rows), ncol=2)
-  
+  pos <- matrix(c(cumsum(rows) - rows + 1, rows), ncol = 2)
+
   # Copy inputs into output
   for(i in seq_along(rows)) {
-    rng <- seq(pos[i,1], length=pos[i,2])
+    rng <- seq(pos[i, 1], length = pos[i, 2])
     df <- dfs[[i]]
 
     for(var in names(df)) {