fix: filter_chunk_end_md should recognize chunk end with extra spaces

yihui · Sep 23, 2021 · 53cfb9e · 53cfb9e
1 parent 895245b
commit 53cfb9e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/parser.R b/R/parser.R
@@ -425,13 +425,13 @@ filter_chunk_end_md = function(chunk.begin, chunk.end, lines) {
   in.chunk = FALSE
   expected_end = NA_character_
   fun = function(is.begin, is.end, line) {
-    if (in.chunk && is.end && identical(line, expected_end)) {
+    if (in.chunk && is.end && grepl(expected_end, line)) {
       in.chunk <<- FALSE
       return(TRUE)
     }
     if (!in.chunk && is.begin) {
       in.chunk <<- TRUE
-      expected_end <<- sub('(^[\t >]*```+).*', '\\1', line)
+      expected_end <<- paste0(sub('(^[\t >]*```+).*', '\\1', line), "\\s*$")
     }
     FALSE
   }