consider only first caption in fig-cap

jjallaire · jjallaire · commit f6e4f2974e44 · 2022-06-02T08:53:08.000-04:00
diff --git a/src/resources/rmd/patch.R b/src/resources/rmd/patch.R
@@ -89,7 +89,7 @@ wrap_asis_output <- function(options, x) {
   }
 
   # generate output div
-  caption <- figure_cap(options)
+  caption <- figure_cap(options)[[1]]
   if (nzchar(caption)) {
     x <- paste0(x, "\n\n", caption)
   }

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,7 @@ wrap_asis_output <- function(options, x) {`
`89`	`89`	`}`
`90`	`90`
`91`	`91`	`# generate output div`
`92`		`- caption <- figure_cap(options)`
	`92`	`+ caption <- figure_cap(options)[[1]]`
`93`	`93`	`if (nzchar(caption)) {`
`94`	`94`	`x <- paste0(x, "\n\n", caption)`
`95`	`95`	`}`