如何更新R Shiny中的按鈕標籤？

R Shiny網站有一個great example關於如何根據用戶輸入更新各種輸入類型的標籤和值。但是，我找不到任何按鈕。具體來說，如何根據用戶輸入更新按鈕的標籤？如何更新R Shiny中的按鈕標籤？

2014-12-06 bskaggs

'updateActionButton'？ – 2017-08-29 07:54:24

您可以動態創建像這樣的按鈕，同時更新標籤：

library(shiny) 

ui =(pageWithSidebar(
    headerPanel("Test Shiny App"), 
    sidebarPanel(
    textInput("sample_text", "test", value = "0"), 
    #display dynamic UI 
    uiOutput("my_button")), 
    mainPanel() 
)) 

server = function(input, output, session){ 
    #make dynamic button 
    output$my_button <- renderUI({ 
    actionButton("action", label = input$sample_text) 
    }) 
} 
runApp(list(ui = ui, server = server))

來源

2014-12-13 11:24:51

這是偉大的，感謝分享 – Diego 2015-03-31 17:29:40

是否有可能捕捉按鈕的標籤，一旦我點擊它？ – Diego 2015-03-31 18:29:51

示例在這裏提供：http：//stackoverflow.com/questions/29376031/capture-the-label-of-an-actionbutton-once-it-is-clicked/29384955#29384955 – 2015-04-01 07:15:24

如果你的按鈕已經建成，解決方案是使用圖書館「shinyjs」。

library(shinyjs) 
# in UI section 
shinyjs::useShinyjs() 
# in Server section: call this function at any time to update the button label 
runjs(paste0("$('label[for=\"YourButtonId\"]').text('",TextVariable,"')"))

來源

2017-08-28 15:19:06 helgasoft

updateActionButton：

ui <- fluidPage(
    actionButton('someButton', ""), 
    textInput("newLabel", "new Button Label:", value = "some label") 
) 

server <- function(input, output, session) { 

    observeEvent(input$newLabel, { 
    updateActionButton(session, "someButton", label = input$newLabel) 
    }) 
} 

shinyApp(ui, server)

來源

2017-09-06 14:18:23 shosaco

如何更新R Shiny中的按鈕標籤？

回答

相關問題