Ich frage mich, ob es möglich ist, ein Popup-Dialogfeld interaktiv mit glänzenden (und shinyBS) zu erstellen.Erstellen Sie ein Popup-Dialogfeld interaktiv
Zum Beispiel habe ich eine Zeichenfolge und ich möchte es ändern, und vor dem Ausführen eines Dialogfelds zeigt sich gefragt, ob ich es wirklich ändern möchte. Falls ich "Ja" sage, tut es das, sonst verwirft es die Änderung. 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 immer die Box durch den unteren "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))
Andere Vorschläge sind mehr als willkommen !!
Ich danke dir wirklich! Ich glaube, das war es, wonach ich suchte! Jetzt verstehe ich auch besser die Bedeutung von toggleModal (die Dokumentation ist ziemlich leer darüber) – Stefano