handl multiple idnetical comments right

Author: lorenzwalthert

R/roxygen-examples.R

@@ -40,6 +40,7 @@ style_roxygen_code_example_one <- function(example_one, transformers, base_inden
   for (idx in seq_along(ordinary_comment)) {
     to_replace <- which(ordinary_comment[idx] == without_mask)[1]
     styled[to_replace] <- ordinary_comment[idx]
+    without_mask[to_replace] <- NA
   }
   styled
 }

tests/testthat/roxygen-examples-complete/25-ordinary-comment-in-example-in.R

@@ -108,3 +108,26 @@ NULL
 # nolint end
 #' df %>% func()
 func <- function() NULL
+
+
+#' Hi
+# Comment
+#' @examples
+#' 1 + 1
+# this
+# this
+#this
+# thi3
+#' c()
+NULL
+
+#' Hi
+# Comment
+#' @examples
+#' 1 + 1
+# this
+# this 
+#this
+# thi3
+#' c()
+NULL

tests/testthat/roxygen-examples-complete/25-ordinary-comment-in-example-in_tree

@@ -109,3 +109,26 @@ NULL
 # nolint end
 #' df %>% func()
 func <- function() NULL
+
+
+#' Hi
+# Comment
+#' @examples
+#' 1 + 1
+# this
+# this
+# this
+# thi3
+#' c()
+NULL
+
+#' Hi
+# Comment
+#' @examples
+#' 1 + 1
+# this
+# this
+# this
+# thi3
+#' c()
+NULL