add unparsable example, make it work for named r chunks

.pre-commit-config.yaml

@@ -45,8 +45,8 @@ repos:
         exclude: >
           (?x)^(
           bench/.*|
-          tests/testthat/.*-in\.R|
-          tests/testthat/.*-out\.R
+          tests/testthat/.*-in\.R(md)?|
+          tests/testthat/.*-out\.R(md)?
           )$
 -   repo: https://github.com/pre-commit/pre-commit-hooks
     rev: v3.2.0

R/transform-code.R

@@ -116,7 +116,7 @@ identify_raw_chunks <- function(lines, filetype, engine_pattern = get_engine_pat
 #' addition not styled with styler when formatting the document.
 #' @keywords internal
 finalize_raw_chunks <- function(start, end, filetype, lines) {
-  header <- gsub(get_knitr_pattern(filetype)$chunk.begin, "\\1", lines[start])
+  header <- gsub(get_knitr_pattern(filetype)$chunk.begin, "\\2", lines[start])
   parsed <- get_parse_data(paste0("c(", header, ")"))$text
   do_not_tidy <- any(parsed == "tidy") &&
     parsed[which(parsed == "tidy") + 1] == "=" &&

tests/testthat/rmd/no-tidy-in.Rmd

@@ -9,10 +9,10 @@ test + f(1)
 ```
 
 
-```{r, tidy=FALSE}
-1 +1 #co
+```{r, tidy = FALSE}
+1, , ___ 
 ```
 
 ```{r}
-test + f(1 )
+test + f(1)
 ```

tests/testthat/rmd/no-tidy-out.Rmd

@@ -9,8 +9,8 @@ test + f(1)
 ```
 
 
-```{r, tidy=FALSE}
-1 +1 #co
+```{r, tidy = FALSE}
+1, , ___ 
 ```
 
 ```{r}