From 09d2dbefa761a4f7fd762c85759875cc7c1639b6 Mon Sep 17 00:00:00 2001
From: Maximilian Held <info@maxheld.de>
Date: Fri, 29 Nov 2024 17:24:32 +0100
Subject: [PATCH] factor out some glue

---
 R/shiny2screenshot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/shiny2screenshot.R b/R/shiny2screenshot.R
index 1e76442..3820e66 100644
--- 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