Merge pull request #1096 from r-lib/issue-1095

Don't error no empty roxygen example

Author: lorenzwalthert

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.")
     }

tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-in.R

@@ -0,0 +1,11 @@
+#' Empty line in examples
+#'
+#' @examples
+1
+
+#' Empty line in examples
+#'
+#' @examples
+#' \dontrun{
+#' }
+2

tests/testthat/roxygen-examples-complete/29-multiple-empty-lines-in-example-out.R

@@ -0,0 +1,12 @@
+#' Empty line in examples
+#'
+#' @examples
+1
+
+#' Empty line in examples
+#'
+#' @examples
+#' \dontrun{
+#'
+#' }
+2

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)
 })