Skip to content

Commit

Permalink
Update R/hooks-md.R
Browse files Browse the repository at this point in the history
Co-authored-by: Yihui Xie <xie@yihui.name>
  • Loading branch information
atusy and yihui authored Sep 25, 2021
1 parent 53cfb9e commit d6b6e6c
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/hooks-md.R
Original file line number Diff line number Diff line change
Expand Up @@ -152,7 +152,7 @@ render_markdown = function(strict = FALSE, fence_char = '`') {
#' @export
hooks_markdown = function(strict = FALSE, fence_char = '`') {
fence = paste(rep(fence_char, 3), collapse = '')
update_fence <- function(x) {
update_fence = function(x) {
r = paste0('\n', fence_char, '{3,}')
if (grepl(r, x)) {
l = attr(gregexpr(r, x)[[1]], 'match.length')
Expand Down

0 comments on commit d6b6e6c

Please sign in to comment.