Zastanawiam się, czy możliwe jest utworzenie interaktywnego okna dialogowego za pomocą błyszczącego (i shinyBS).Utwórz wyskakujące okienko dialogowe interaktywne
Na przykład mam ciąg znaków i chcę go zmienić, a przed wykonaniem okna dialogowego pojawi się pytanie, czy naprawdę chcę go zmienić. Na wypadek, gdy powiem "tak", robi to inaczej, odrzuca zmianę. Oto moja próba, ale znalazłem dwie kwestie: 1. jeśli klikniesz "tak" lub "nie", nic się nie zmieni 2. zawsze musisz zamknąć okno u dołu "zamknij".
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))
Inne propozycje są mile widziane !!
Naprawdę dziękuję! Sądzę, że tego właśnie szukałem! Teraz również lepiej rozumiem znaczenie toggleModal (dokumentacja jest dość goła) – Stefano