diff --git a/R/verbatim_popup.R b/R/verbatim_popup.R index f0f285450..7ab7fa869 100644 --- a/R/verbatim_popup.R +++ b/R/verbatim_popup.R @@ -131,23 +131,25 @@ button_click_observer <- function(click_event, shiny::modalDialog( tags$div( tags$div( + shiny::modalButton("Dismiss"), shiny::actionButton( paste0(copy_button_id, 1), "Copy to Clipboard", + class = "btn-primary", onclick = paste0("copyToClipboard('", copied_area_id, "')") - ), - shiny::modalButton("Dismiss") + ) ), tags$pre(id = copied_area_id, modal_content()), ), title = modal_title, footer = shiny::tagList( + shiny::modalButton("Dismiss"), shiny::actionButton( paste0(copy_button_id, 2), "Copy to Clipboard", + class = "btn-primary", onclick = paste0("copyToClipboard('", copied_area_id, "')") - ), - shiny::modalButton("Dismiss") + ) ), size = "l", easyClose = TRUE