Erstelle ein interaktives Popup-Dialogfeld

Ich habe mich gefragt, ob es möglich ist, ein interaktives Popup-Dialogfeld mit shiny (und shinyBS) zu erstellen.

Zum Beispiel habe ich eine Zeichenfolge, die ich ändern möchte, und vor dem Ausführen eines Dialogfelds werden Sie gefragt, ob ich sie wirklich ändern möchte. Wenn ich "Ja" sage, wird die Änderung verworfen. Hier ist mein Versuch, aber ich habe zwei Probleme gefunden: 1. Wenn Sie auf "Ja" oder "Nein" klicken, ändert sich nichts. 2. Sie müssen die Box immer durch das untere "Schließen" schließen.

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

Weitere Vorschläge sind mehr als willkommen !!

Antworten auf die Frage(6)

Ihre Antwort auf die Frage