Launch a popup with a text input
inputSweetAlert( session, inputId, title = NULL, text = NULL, type = NULL, input = c("text", "password", "textarea", "radio", "checkbox", "select"), inputOptions = NULL, inputPlaceholder = NULL, btn_labels = "Ok", btn_colors = NULL, reset_input = TRUE, ... )
session | The |
---|---|
inputId | The |
title | Title of the pop-up. |
text | Text of the pop-up. |
type | Type of the pop-up : |
input | Type of input, possible values are : |
inputOptions | Options for the input. For |
inputPlaceholder | Placeholder for the input, use it for |
btn_labels | Label(s) for button(s). |
btn_colors | Color(s) for button(s). |
reset_input | Set the input value to |
... | Additional arguments (not used). |
if (interactive()) { library("shiny") library("shinyWidgets") ui <- fluidPage( tags$h1("Input sweet alert"), actionButton(inputId = "text", label = "Text Input"), verbatimTextOutput(outputId = "text"), actionButton(inputId = "password", label = "Password Input"), verbatimTextOutput(outputId = "password"), actionButton(inputId = "radio", label = "Radio Input"), verbatimTextOutput(outputId = "radio"), actionButton(inputId = "checkbox", label = "Checkbox Input"), verbatimTextOutput(outputId = "checkbox"), actionButton(inputId = "select", label = "Select Input"), verbatimTextOutput(outputId = "select") ) server <- function(input, output, session) { observeEvent(input$text, { inputSweetAlert( session = session, inputId = "mytext", input = "text", title = "What's your name ?" ) }) output$text <- renderPrint(input$mytext) observeEvent(input$password, { inputSweetAlert( session = session, inputId = "mypassword", input = "password", title = "What's your password ?" ) }) output$password <- renderPrint(input$mypassword) observeEvent(input$radio, { inputSweetAlert( session = session, inputId = "myradio", input = "radio", inputOptions = c("Banana" , "Orange", "Apple"), title = "What's your favorite fruit ?" ) }) output$radio <- renderPrint(input$myradio) observeEvent(input$checkbox, { inputSweetAlert( session = session, inputId = "mycheckbox", input = "checkbox", inputPlaceholder = "Yes I agree", title = "Do you agree ?" ) }) output$checkbox <- renderPrint(input$mycheckbox) observeEvent(input$select, { inputSweetAlert( session = session, inputId = "myselect", input = "select", inputOptions = c("Banana" , "Orange", "Apple"), title = "What's your favorite fruit ?" ) }) output$select <- renderPrint(input$myselect) } shinyApp(ui = ui, server = server) }