WIP that breaks test

Attempt to use clear definitions for code line:
* until immediately before transofmriong: \n characterizes line break,

* map the previous definition to the styler definition. One line is one element. Can't simply paste0(...) %>% strplit("\n", fixed = TRUE) I think.

Author: lorenzwalthert

R/roxygen-examples-add-remove.R

@@ -3,10 +3,8 @@
 #' @param roxygen Roxygen code examples that contains a dont* segment only.
 #' @keywords internal
 remove_dont_mask <- function(roxygen) {
-  potential_pos <- c(3L, length(roxygen) - 1L)
-  is_line_break_at_potential_pos <- which(roxygen[potential_pos] == "\n")
   mask <- c(
-    1L, 2L, length(roxygen), potential_pos[is_line_break_at_potential_pos]
+    1L, 2L, if (roxygen[3] == "\n") 3L, last(which(roxygen == "}"))
   ) %>% sort()
   list(
     code = roxygen[-mask], mask = paste(roxygen[seq2(1, 2)], collapse = "")

R/roxygen-examples-parse.R

@@ -32,10 +32,11 @@ post_parse_roxygen <- function(raw) {
   special <- substr(raw, 1, 1) == "%"
   len <- nchar(raw)
   newline_after <- substr(raw, len, len) == "\n"
-  must_instert_linebreak_after <- which(
-    (special & !newline_after) |
-      (raw == "}" & (!(lead(substr(raw, 1, 1)) %in% c(",", "}", ")"))))
-  )
+  # must_instert_linebreak_after <- which(
+  #   (special & !newline_after) |
+  #     (raw == "}" & (!(lead(substr(raw, 1, 1)) %in% c(",", "}", ")"))))
+  # )
+  must_instert_linebreak_after <- integer(0)
   split <- reduce(must_instert_linebreak_after +
                     seq(0L, length(must_instert_linebreak_after) - 1L),
                   append, values = "\n", .init = raw

R/roxygen-examples.R

@@ -35,7 +35,6 @@ style_roxygen_code_example <- function(example, transformers) {
 #' @importFrom purrr map2 flatten_chr
 #' @keywords internal
 style_roxygen_code_example_segment <- function(one_dont, transformers) {
-  one_dont <- remove_blank_lines(one_dont)
   if (length(one_dont) < 1L) return(character())
   dont_seqs <- find_dont_seqs(one_dont)
   split_segments <- split_roxygen_segments(one_dont, unlist(dont_seqs))
@@ -68,7 +67,6 @@ style_roxygen_example_snippet <- function(code_snippet,
     mask <- decomposed$mask
   }
   code_snippet <- post_parse_roxygen(code_snippet) %>%
-    paste0(collapse = "\n") %>%
     parse_transform_serialize_r(transformers)
 
   if (is_dont) {

tests/testthat/roxygen-examples-complete/13-empty-lines-in.R

@@ -0,0 +1,48 @@
+
+#' Create a style guide
+#'
+#' @param reindention A list of parameters for regex re-indention, most
+#'   conveniently constructed using [specify_reindention()].
+#' @examples
+#' # empty
+#'
+#'
+#' # two
+#'
+#'
+#'
+#'
+#' # more
+#' a <- 3
+#' # a comment
+#' \dontrun{
+#' x
+#'
+#' y # hi
+#'
+#' # more
+#'
+#' a <- 3
+#' }
+#' @importFrom purrr compact
+#' @export
+create_style_guide <- function(initialize = default_style_guide_attributes,
+                               line_break = NULL,
+                               space = NULL,
+                               token = NULL,
+                               indention = NULL,
+                               use_raw_indention = FALSE,
+                               reindention = tidyverse_reindention()) {
+  lst(
+    # transformer functions
+    initialize = lst(initialize),
+    line_break,
+    space,
+    token,
+    indention,
+    # transformer options
+    use_raw_indention,
+    reindention
+  ) %>%
+    map(compact)
+}

tests/testthat/roxygen-examples-complete/13-empty-lines-in_tree

@@ -0,0 +1,51 @@
+
+#' Create a style guide
+#'
+#' @param reindention A list of parameters for regex re-indention, most
+#'   conveniently constructed using [specify_reindention()].
+#' @examples
+#' 
+#' # empty
+#' 
+#' 
+#' # two
+#' 
+#' 
+#' 
+#' 
+#' # more
+#' a <- 3
+#' # a comment
+#' @examples
+#' \dontrun{
+#' x
+#' 
+#' y # hi
+#' 
+#' # more
+#' 
+#' a <- 3
+#' }
+#' 
+#' @importFrom purrr compact
+#' @export
+create_style_guide <- function(initialize = default_style_guide_attributes,
+                               line_break = NULL,
+                               space = NULL,
+                               token = NULL,
+                               indention = NULL,
+                               use_raw_indention = FALSE,
+                               reindention = tidyverse_reindention()) {
+  lst(
+    # transformer functions
+    initialize = lst(initialize),
+    line_break,
+    space,
+    token,
+    indention,
+    # transformer options
+    use_raw_indention,
+    reindention
+  ) %>%
+    map(compact)
+}