factor out some glue

dataheld · Nov 29, 2024 · 09d2dbe · 09d2dbe
1 parent 01f1272
commit 09d2dbe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/shiny2screenshot.R b/R/shiny2screenshot.R
@@ -279,7 +279,7 @@ snap_alt_text <- function() "Screenshot from App"
 #' @export
 snaps2md <- function(...) {
   path <- snaps2fig(...)
-  paste0("![", snap_alt_text(), "](", path, ")", collapse = "")
+  glue::glue("![{snap_alt_text()}]({path})")
 }
 
 #' @describeIn get_screenshot_from_snaps