添加shinyBS酥料餅上禁用按鈕

Question

我還沒有發現在shinyBS文檔和谷歌的/任何信息，以便了解如何上使用trigger = 'manual'，例如，shinyBSaddPopover。我認爲這將是向禁用按鈕添加工具提示的方式。 （我不想用div「詠按鈕，並給予title到div做到這一點。 也將是不錯，如果有人有辦法被動添加工具提示shiny應用

Answer 1

由於shosaco的解決方案沒有工作，我得到它的工作是這樣的：

if (input$disable) { 
    addCssClass("buttonId", "disabled") 
    bsTooltip("buttonId", "This button is currently disabled.") 
} else { 
    bsTooltip("buttonId", "") 
    removeCssClass("buttonId", "disabled") 
} 
observeEvent(input$buttonId, { 
    if (!input$disable) { 
     output$text <- renderText("Bla") 
    } else { 
     output$text <- renderText(NULL) 
    } 

Answer 2

如果你想在酥料餅的使用trigger = manual，那麼你需要定義一個腳本來切換酥料餅，如使用jQuery：

library(shiny) 
library(shinyjs) 
library(shinyBS) 


ui <-shinyUI(fluidPage(useShinyjs(), 
         # press this button to trigger the popover 
         actionButton("addPopover", "Add Popover"), 

         # a disabled button 
         disabled(actionButton("disabledButton", "This button is disabled")), 

         # the popover to appear over the disabled button 
         bsPopover("disabledButton", "Popover", "Some text", trigger="manual"), 

         # the script to trigger the popover 
         uiOutput("trigger"))) 


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

    # on checkbox selection, disable button and trigger the popover 
    output$trigger <- renderUI({ 
    input$addPopover 
    tags$script("$('#disabledButton').popover('toggle');") 
    }) 
}) 

shinyApp(ui,server) 

---

如果你想這樣做沒有jQuery的，這將是一個解決方案：對我來說

library(shiny) 
library(shinyjs) 
library(shinyBS) 


ui <-shinyUI(fluidPage(useShinyjs(), 
         # checkbox for disabling and tooltip action 
         checkboxInput("disable", "Disable"), 

         # a button 
         actionButton("buttonId", "Some button"), 

         # uiOutput to realize logic for tooltip 
         uiOutput("trigger"))) 


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

    # on click of input$addPopover, trigger the popover over the disabled button 
    output$trigger <- renderUI({ 
    if(input$disable) { 
     shinyjs::disable("buttonId") 
     bsTooltip("buttonId", "This button is currently disabled.") 
    }else{ 
     shinyjs::enable("buttonId") 
     bsTooltip("buttonId", "") 
    } 
    }) 
}) 

shinyApp(ui,server)