Add missing period at the end of sentence (#4227)

mine-cetinkaya-rundel · web-flow · commit d700a0b99ad9 · 2020-10-15T10:13:21.000-05:00
diff --git a/R/fortify.r b/R/fortify.r
@@ -41,7 +41,7 @@ fortify.grouped_df <- function(model, data, ...) {
 fortify.default <- function(model, data, ...) {
   msg <- paste0(
     "`data` must be a data frame, or other object coercible by `fortify()`, ",
-    "not ", obj_desc(model)
+    "not ", obj_desc(model), "."
   )
   if (inherits(model, "uneval")) {
     msg <- paste0(

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ fortify.grouped_df <- function(model, data, ...) {`
`41`	`41`	`fortify.default <- function(model, data, ...) {`
`42`	`42`	`msg <- paste0(`
`43`	`43`	"`data` must be a data frame, or other object coercible by `fortify()`, ",
`44`		`- "not ", obj_desc(model)`
	`44`	`+ "not ", obj_desc(model), "."`
`45`	`45`	`)`
`46`	`46`	`if (inherits(model, "uneval")) {`
`47`	`47`	`msg <- paste0(`