Мне было интересно, если это возможно, чтобы создать всплывающее диалоговое окно, интерактивное с помощью Shiny (и ShineBS).

Например, у меня есть строка, и я хочу ее изменить, и перед тем, как сделать это, появится диалоговое окно с вопросом, действительно ли я хочу ее изменить. Если я говорю «да», он делает это, в противном случае он отменяет изменение. Вот моя попытка, но я обнаружил две проблемы: 1. если вы нажмете «да» или «нет», ничего не изменится 2. вам всегда нужно закрыть окно снизу «закрыть».

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))

Другие предложения приветствуются!