The main thing I added was
tags$style("div.swal2-actions{
z-index:0;}")
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$style("div.swal2-actions{
z-index:0;}"),
actionButton(
inputId = "launch",
label = "Launch Confirm!"
)
)
server <- function(input, output, session) {
# Launch sweet alert confirmation
observeEvent(input$launch, {
confirmSweetAlert(
session = session,
inputId = "test",
title = "This is a Test!",
type = "info",
text =div(
pickerInput(
inputId = "numbers",
multiple = TRUE,
choices = 1:5,
width = "100%"
)),
closeOnClickOutside = FALSE,
html = TRUE
)
})
}
shinyApp(ui, server)