fix(downloadButton): Return tag directly

2026-01-11 07:58:11 -05:00 · 2023-11-08 09:07:29 -05:00
1 changed files with 7 additions and 7 deletions
--- a/R/bootstrap.R
+++ b/R/bootstrap.R
@@ -1233,13 +1233,13 @@ downloadButton <- function(outputId,
                           class=NULL,
                           ...,
                           icon = shiny::icon("download")) {
-  aTag <- tags$a(id=outputId,
-                 class=paste('btn btn-default shiny-download-link', class),
-                 href='',
-                 target='_blank',
-                 download=NA,
-                 validateIcon(icon),
-                 label, ...)
+  tags$a(id=outputId,
+         class=paste('btn btn-default shiny-download-link', class),
+         href='',
+         target='_blank',
+         download=NA,
+         validateIcon(icon),
+         label, ...)
 }

 #' @rdname downloadButton