don't error no empty roxygen example

lorenzwalthert · lorenzwalthert · commit f5d9b6200c17 · 2023-02-13T20:10:45.000+01:00
diff --git a/R/transform-files.R b/R/transform-files.R
@@ -247,7 +247,7 @@ parse_transform_serialize_r <- function(text,
   )
 
   text <- assert_text(text)
-  if (identical(text, "")) {
+  if (identical(unique(text), "")) {
     if (warn_empty) {
       warn("Text to style did not contain any tokens. Returning empty string.")
     }
diff --git a/tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-in.R b/tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-in.R
@@ -0,0 +1,5 @@
+#' Empty line in examples
+#'
+#' @examples
+#'
+1
diff --git a/tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-out.R b/tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-out.R
@@ -0,0 +1,4 @@
+#' Empty line in examples
+#'
+#' @examples
+1
diff --git a/tests/testthat/test-roxygen-examples-complete.R b/tests/testthat/test-roxygen-examples-complete.R
@@ -144,4 +144,9 @@ test_that("analogous to test-roxygen-examples-complete", {
     "roxygen-examples-complete", "^28",
     transformer = style_text
   ), NA)
+
+  expect_warning(test_collection(
+    "roxygen-examples-complete", "^29",
+    transformer = style_text
+  ), NA)
 })

Original file line number	Diff line number	Diff line change
`@@ -247,7 +247,7 @@ parse_transform_serialize_r <- function(text,`
`247`	`247`	`)`
`248`	`248`
`249`	`249`	`text <- assert_text(text)`
`250`		`- if (identical(text, "")) {`
	`250`	`+ if (identical(unique(text), "")) {`
`251`	`251`	`if (warn_empty) {`
`252`	`252`	`warn("Text to style did not contain any tokens. Returning empty string.")`
`253`	`253`	`}`
-Original file line number
+Diff line change
@@ @@ -0,0 +1,5 @@ @@
 +#' Empty line in examples
 +#'
 +#' @examples
 +#'
 +1