markdown code blocks escape percent signs

NEWS.md

@@ -107,8 +107,8 @@
     * Whitespace between words in link text is now preserved as single
       space (#628, @egnha).
 
-    * `%` in inline code blocks (#640) and links (#724) is now automatically 
-      escaped.
+    * `%` in inline code (#640), code blocks (@nteetor, #699) and 
+      links (#724) is now automatically escaped.
 
     * Parsing of markdown links has been tweaked to reduce false positives 
       (#555). If you still get a false positive, you can now put `\\` in front 

R/markdown.R

@@ -139,7 +139,7 @@ markdown_tags <- list(
 
   code_block = function(xml) {
     ## Large block of code
-    list("\\preformatted{", xml_contents(xml), "}")
+    list("\\preformatted{", gsub("%", "\\\\%", xml_text(xml)), "}")
   },
 
   html = function(xml) {

tests/testthat/test-rd-markdown.R

@@ -48,8 +48,8 @@ test_that("code blocks work", {
     #'
     #' Description
     #'
-    #' Details with a code block:\\preformatted{x <- 1:10 %>%
-    #'   multiply_by(10) %>%
+    #' Details with a code block:\\preformatted{x <- 1:10 \\%>\\%
+    #'   multiply_by(10) \\%>\\%
     #'   add(42)
     #' }
     #'
@@ -68,6 +68,19 @@ test_that("inline code escapes %", {
   expect_equal(out$get_field("title")$values, "\\code{0.5\\%}")
 })
 
+test_that("code blocks escape %", {
+  out <- roc_proc_text(rd_roclet(), "
+    #' ```
+    #' 1:10 %>% mean()
+    #' ```
+    #'
+    #' @md
+    f <- function() 1
+  ")[[1]]
+
+  expect_equal(out$get_field("title")$values, "\\preformatted{1:10 \\%>\\% mean()\n}")
+})
+
 test_that("inline code works with < and >", {
   out <- roc_proc_text(rd_roclet(), "
     #' `SELECT <name> FROM <table>`