Merge pull request #1229 from wurli/main

Add support for webr code chunks in Rmd/qmd documents
r-lib · Sep 20, 2024 · b477757 · b477757
2 parents 4665f2d + dc08277
commit b477757
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 2 deletions.
diff --git a/R/transform-code.R b/R/transform-code.R
@@ -100,8 +100,9 @@ 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]]) %>%

diff --git a/tests/testthat/rmd/r_and_non_r_code_chunks-in.Rmd b/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}

diff --git a/tests/testthat/rmd/r_and_non_r_code_chunks-out.Rmd b/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}