Eu queria saber se é possível criar uma caixa de diálogo pop-up interativa usando shiny (e shinyBS).

Por exemplo, eu tenho uma string e quero alterá-la e antes de fazer uma caixa de diálogo aparece perguntando se realmente quero alterá-la. Caso eu diga "sim", ele faz isso caso contrário, descarta a alteração. Aqui está minha tentativa, mas encontrei dois problemas: 1. se você clicar em "sim" ou "não", nada mudará 2. você sempre precisará fechar a caixa na parte inferior "fechar".

rm(list = ls())
library(shiny)
library(shinyBS)

name <- "myname"

ui =fluidPage(
  textOutput("curName"),
  br(),
  textInput("newName", "Name of variable:", name),
  br(),
  actionButton("BUTnew", "Change"),
  bsModal("modalnew", "Change name", "BUTnew", size = "small",
          textOutput("textnew"),
          actionButton("BUTyes", "Yes"),
          actionButton("BUTno", "No")
  )
)
server = function(input, output, session) {
  output$curName <- renderText({paste0("Current name: ", name)})

  observeEvent(input$BUTnew, {
    output$textnew <- renderText({paste0("Do you want to change the name?")})
  })

  observeEvent(input$BUTyes, {
    name <- input$newName
  })
}
runApp(list(ui = ui, server = server))

Outras propostas são mais que bem-vindas !!