diff --git a/R/replace_html.R b/R/replace_html.R index ef9c478..1569873 100644 --- a/R/replace_html.R +++ b/R/replace_html.R @@ -246,7 +246,7 @@ build_image <- function(src, ..., caption = NULL, embed = NULL, 'align: "{align}",', 'type: "{type}",', 'poster: "{poster}",', - 'embed: "{embed}"' + 'embed: "{embed}",' ) if (is.null(fullbleed) || length(fullbleed) == 0 || @@ -273,6 +273,8 @@ build_image <- function(src, ..., caption = NULL, embed = NULL, # Make sure it's coerced as a character specs <- unlist(sapply(specs, as.character)) + specs <- gsub(",\\}$", "}", specs) + # Set as fullbleed if TRUE specs <- c(specs, if (fullbleed) "fullbleed: true")