fix error

lorenzwalthert · lorenzwalthert · commit ce351222bdf4 · 2021-12-23T14:31:37.000+01:00
diff --git a/R/parse.R b/R/parse.R
@@ -101,11 +101,11 @@ get_parse_data <- function(text, include_text = TRUE, ...) {
   if (getRversion() < "4.2") {
     is_unicode_parsing_error <- grepl("^\"<U\\+[0-9]+>\"$", pd$text)
     if (any(is_unicode_parsing_error)) {
-      rlang::abort(
+      rlang::abort(paste0(
         "Can't parse input due to unicode restriction in base R. Please ",
         "upgrade R to >= 4.2 to style this input. ",
         "Context: https://github.com/r-lib/styler/issues/847"
-      )
+      ))
     }
   }
   pd <- pd %>%

Original file line number	Diff line number	Diff line change
`@@ -101,11 +101,11 @@ get_parse_data <- function(text, include_text = TRUE, ...) {`
`101`	`101`	`if (getRversion() < "4.2") {`
`102`	`102`	`is_unicode_parsing_error <- grepl("^\"<U\\+[0-9]+>\"$", pd$text)`
`103`	`103`	`if (any(is_unicode_parsing_error)) {`
`104`		`- rlang::abort(`
	`104`	`+ rlang::abort(paste0(`
`105`	`105`	`"Can't parse input due to unicode restriction in base R. Please ",`
`106`	`106`	`"upgrade R to >= 4.2 to style this input. ",`
`107`	`107`	`"Context: https://github.com/r-lib/styler/issues/847"`
`108`		`- )`
	`108`	`+ ))`
`109`	`109`	`}`
`110`	`110`	`}`
`111`	`111`	`pd <- pd %>%`