code formatting

krlmlr · krlmlr · commit 3b5f6cfcf3e0 · 2017-11-29T09:04:48.000+01:00
diff --git a/R/format.R b/R/format.R
@@ -3,7 +3,7 @@ format.blob <- function(x, ...) {
   if (length(x) == 0)
     return(character())
 
-  ifelse(is.na(x), "<NA>", paste0("blob[", blob_size(x, ...) , "]"))
+  ifelse(is.na(x), "<NA>", paste0("blob[", blob_size(x, ...), "]"))
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ format.blob <- function(x, ...) {`
`3`	`3`	`if (length(x) == 0)`
`4`	`4`	`return(character())`
`5`	`5`
`6`		`- ifelse(is.na(x), "<NA>", paste0("blob[", blob_size(x, ...) , "]"))`
	`6`	`+ ifelse(is.na(x), "<NA>", paste0("blob[", blob_size(x, ...), "]"))`
`7`	`7`	`}`
`8`	`8`
`9`	`9`	`#' @export`