# Define the downloadUI function
downloadUI <- function(id, download_text = "Download") {
div(id = id,
downloadButton(id, label = download_text, icon = icon("download")),
bsTooltip(id, "Click to download the report as a ZIP file",trigger = "hover")
)
}
Just needed to swap the bsButton with downloadButton