Merge pull request #74 from jhudsl/cansavvy/image-fixes

Get rid of pesky comma on image specs
jhudsl · Sep 28, 2021 · 969d347 · 969d347
2 parents b27c4d1 + beb7e57
commit 969d347
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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")