Open new tabs for hyperlinks in HTML reports

pharmaR · Jan 10, 2025 · 6cb226f · 6cb226f
1 parent e5787bd
commit 6cb226f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/report_downloads/reportHtml.Rmd b/inst/report_downloads/reportHtml.Rmd
@@ -76,7 +76,7 @@ createCard <- function(title, desc, value, score = "NULL",
   else if(is_url)
     value <- a(ifelse(nchar(value) <= val_max_nchar, value,
                     glue::glue('{stringr::str_sub(value, 1, (val_max_nchar - 3))}...')
-                 ), href = value)
+                 ), target = "_blank", href = value)
         # unfortunately, adding the href can sometimes force the footer to fall
         # outside the card when val_max_nchar is too large.
   else if(value %in% c('TRUE', 'FALSE'))