Update communicate.R

devSJR · web-flow · commit 121933675179 · 2017-12-12T16:01:20.000+01:00
fix typo
diff --git a/R/communicate.R b/R/communicate.R
@@ -21,6 +21,6 @@ communicate_summary <- function(changed, ruler_width) {
   cat("Status\tCount\tLegend \n")
   cli::cat_bullet("\t", sum(!changed, na.rm = TRUE), "\tFile unchanged.", bullet = "tick")
   cli::cat_bullet("\t", sum(changed, na.rm = TRUE), "\tFile changed.", bullet = "info")
-  cli::cat_bullet(bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an eror.")
+  cli::cat_bullet(bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an error.")
   cli::cat_rule(width = max(40, ruler_width))
 }

Original file line number	Diff line number	Diff line change
`@@ -21,6 +21,6 @@ communicate_summary <- function(changed, ruler_width) {`
`21`	`21`	`cat("Status\tCount\tLegend \n")`
`22`	`22`	`cli::cat_bullet("\t", sum(!changed, na.rm = TRUE), "\tFile unchanged.", bullet = "tick")`
`23`	`23`	`cli::cat_bullet("\t", sum(changed, na.rm = TRUE), "\tFile changed.", bullet = "info")`
`24`		`- cli::cat_bullet(bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an eror.")`
	`24`	`+ cli::cat_bullet(bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an error.")`
`25`	`25`	`cli::cat_rule(width = max(40, ruler_width))`
`26`	`26`	`}`