Skip to content

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

Description

@latlio

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)

Activity

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

      Milestone

      No milestone

      Relationships

      None yet

      Development

      No branches or pull requests

      Issue actions