feat: * Add support for webr code chunks in Rmd/qmd documents

Author: wurli

R/transform-code.R

@@ -100,8 +100,8 @@ identify_raw_chunks <- function(lines,
 
   if (filetype == "Rmd") {
     starts <- grep(
-      "^[\t >]*```+\\s*\\{([Rr]( *[ ,].*)?)\\}\\s*$", lines,
-      perl = TRUE
+      "^[\t >]*```+\\s*\\{((r|webr-r|webr)( *[ ,].*)?)\\}\\s*$", 
+      lines, perl = TRUE, ignore.case = TRUE
     )
     ends <- grep("^[\t >]*```+\\s*$", lines, perl = TRUE)
     ends <- purrr::imap_int(starts, ~ ends[which(ends > .x)[1L]]) %>%

tests/testthat/rmd/r_and_non_r_code_chunks-in.Rmd

@@ -18,6 +18,14 @@ Some text.
 1+1
 ```
 
+```{webr}
+1+1
+```
+
+```{webr-r}
+1+1
+```
+
 More text.
 
 ```{nonR}

tests/testthat/rmd/r_and_non_r_code_chunks-out.Rmd

@@ -18,6 +18,14 @@ Some text.
 1+1
 ```
 
+```{webr}
+1 + 1
+```
+
+```{webr-r}
+1 + 1
+```
+
 More text.
 
 ```{nonR}