使用ShinyBS在閃亮的反應性工具提示BS

Question

我嘗試在我的簡單應用程序中使用shinyBS軟件包。 我要做的是根據每個radioButton來創建反應性工具提示文本。

為了澄清我的問題，我用HTML和JS編寫了一個簡單的代碼。

我還找到了一個似乎可以解決我問題的解決方案 ，但實際上我認為它無法正常工作。 是否可以使用shinyBS軟件包來做到這shinyBS ？

我也想將我的HTML和JS代碼實現為Shiny，但仍然無法正常工作。

library(shiny)

yourStr <-   "$(document).ready(function(){
                      $('[id='radio_venue_1']').tooltip({
                                placement: 'right',
                                title: 'Button 1 Explanation',
                                trigger: 'hover'
                                });

                      $('[id='radio_venue_2']').tooltip({
                                placement: 'right',
                                title: 'Button 2 Explanation',
                                trigger: 'hover'
                                });

                      $('[id='radio_venue_3']').tooltip({
                                placement: 'right',
                                title: 'Button 3 Explanation',
                                trigger: 'hover'
                                });
                                });
"

ui <- shinyUI(

  fluidPage(
    fluidRow(
      column(3,
             HTML("<div class='container'><br>
                  <h1>Test</h1>
                  <div>
                  <label id='radio_venue_1'> 
                  <input type='radio' value='1' role='button'> button 1 
                  </label>
                  </div>
                  <div>
                  <label id='radio_venue_2'>
                  <input type='radio' value='2' role='button'> button 2
                  </label>
                  </div>
                  <div>
                  <label id='radio_venue_3'>
                  <input type='radio' value='3' role='button'> button 3
                  </label>
                  </div>
                  </div>")
      ), 
      column(9,
             'Plot')
      ),
  tags$script(HTML(yourStr))
    )
  )

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

}

shinyApp(ui = ui, server = server)

Answer 1

您絕對可以使用shinyBS軟件包來做到這shinyBS

rm(list = ls())
library(shiny)
library(shinyBS)

ui <- shinyUI(
  fluidPage(
    fluidRow(
      column(3,
             HTML("<div class='container'><br>
                  <h1>Test</h1>
                  <div>
                  <label id='radio_venue_1'> 
                  <input type='radio' value='1' role='button'> button 1 
                  </label>
                  </div>
                  <div>
                  <label id='radio_venue_2'>
                  <input type='radio' value='2' role='button'> button 2
                  </label>
                  </div>
                  <div>
                  <label id='radio_venue_3'>
                  <input type='radio' value='3' role='button'> button 3
                  </label>
                  </div>
                  </div>")), 
      bsTooltip(id = "radio_venue_1", title = "Button 1 Explanation", placement = "right", trigger = "hover"),
      bsTooltip(id = "radio_venue_2", title = "Button 2 Explanation", placement = "right", trigger = "hover"),
      bsTooltip(id = "radio_venue_3", title = "Button 3 Explanation", placement = "right", trigger = "hover"),
      column(9,'Plot')
      )
    )
  )

server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)