Reactive Tooltipbs In Shiny Using Shinybs

I try to use shinyBS package into my simple app. What I want to do is to create reactive tooltip text depends on each radioButton. In order to clarify my problem I wrote a simple c

Solution 1:

You can definitely do this with shinyBS package

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

ui <- shinyUI(
  fluidPage(
    fluidRow(
      column(3,
             HTML("<divclass='container'><br><h1>Test</h1><div><labelid='radio_venue_1'><inputtype='radio'value='1'role='button'> button 1 
                  </label></div><div><labelid='radio_venue_2'><inputtype='radio'value='2'role='button'> button 2
                  </label></div><div><labelid='radio_venue_3'><inputtype='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)