ijlyttle / bsplus

Shiny and R Markdown addons to Bootstrap 3
http://ijlyttle.github.io/bsplus/
Other
147 stars 23 forks source link

Limit to number of bstooltip that will show up? #91

Open latlio opened 3 years ago

latlio commented 3 years ago

First off, thank you for such an amazing package! I was wondering whether there was a limit to the number of tooltips that could be displayed. The following is not necessarily a reprex because I want to know if the number of tooltips is somehow affected in a "real-life application", in this case, the fact that it's within a Shiny module or in an HTML div (although I suspect they aren't related).

The threshold/tau.discard input doesn't show a tooltip

SAFFRONUI <- function(id) {
  ns <- NS(id)

  tagList(
    div(style = "display: inline-block;vertical-align:top; width: 200px;",
        strong("Alpha:"),
        shiny::textInput(ns("alpha"), 
                         NULL,
                         width = 80, value = 0.05, placeholder = ".05")),
    shinyBS::bsTooltip(ns("alpha"), 
                       "Overall significance level of the FDR procedure",
                       placement = "right",
                       trigger = "hover"),
    div(style = "display: inline-block;vertical-align:top; width: 200px;",
        strong("Wealth:"),
        shiny::textInput(ns("w0"), 
                         NULL, 
                         width = 80, value = 0.005, placeholder = ".005"),
        shinyBS::bsTooltip(ns("w0"),
                           "Initial wealth of the procedure",
                           placement = "right",
                           trigger = "hover")
    ),
    div(style = "display: inline-block;vertical-align:top; width: 200px;",
        strong("Lambda"),
        shiny::textInput(ns("lambda"), 
                         NULL, 
                         width = 80, value = 0.5, placeholder = ".5"),
        shinyBS::bsTooltip(ns("lambda"),
                           "Optional threshold for a candidate hypothesis",
                           placement = "right",
                           trigger = "hover")
    ),
    div(style="display: inline-block;vertical-align:top; width: 200px;",
        tags$strong(id = ns("label_random"),
                    "Random:"),
        shinyWidgets::switchInput(ns("random"), 
                                  NULL, 
                                  value = TRUE,
                                  onLabel = "True",
                                  offLabel = "False", 
                                  width = "80px"),
        shinyBS::bsTooltip(ns("label_random"),
                           "The order of p-values in each batch of experiments is randomized.",
                           placement = "right",
                           trigger = "hover")
    ),
    div(style = "display: inline-block;vertical-align:top; width: 200px;",
        strong("Threshold:"),
        shiny::textInput(ns("tau.discard"), NULL, width = 80, 
                         value = 0.5, placeholder = ".5"),
        shinyBS::bsTooltip(ns("tau.discard"),
                           "Optional threshold for hypotheses to be selected for testing",
                           placement = "right",
                           trigger = "hover")
    )
) #close taglist
}

ui <- fluidPage(
SAFFRONUI("input")
)

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

shinyApp(ui, server)