Shiny bsTooltip не работает, если используется useShinydashboard ()

Question

Я работаю над инструментом прогнозирования и, основываясь на некоторых характеристиках, я вычислю прогноз риска и получу график в качестве вывода.

У меня есть FluidPage, и я хочу, чтобы мой график был показан в рамке.Я обнаружил, что вы можете использовать функции Shinydashboard внутри FluidPage с помощью useShinydashboard ().Кажется, это работает отлично, но я обнаружил, что функция bsTooltip не работает, когда у меня также есть опция useShinydashboard () в моем пользовательском интерфейсе.

Итак, есть ли способ, чтобы bsTooltip работал и мой график находился в поле?

Ниже приведен мой код, bsTooltip не работает в этом примере, но если вы поставите #перед использованием Shhinydashboard () он работает.

    library(shiny)
    library(shinyWidgets)
    library(shinydashboard)
    library(personograph)
    library(shinyBS)


    # Define UI ----
    ui <- fluidPage(
     setBackgroundColor(color = "#CEF6F5"),
      titlePanel(title=div( "Risk prediction tool")),

      p("Chronic Obstructive Pulmonary Disease (COPD) is a lung problem that can affect people mainly as they get older."),

      selectInput("sex", label=p("What is your gender?"),
                  choices=list("Female"=1, "Male"=0), selected=1), 
      bsTooltip("sex", "What is your sex?","right"),

      sliderInput("age", label=p("What is your age?"), min = 18, max = 90, value = 35),
        bsTooltip("age", "What is your current age in years?","right"),

      br(),
      useShinydashboard(),
      box(title ="Your risk", status = "warning", solidHeader = T, collapsible = F, width = NULL,
                           plotOutput('plot1', height="350px"))

    )

    # Define server logic ----
    server <- function(input, output, session) {

      prediction <- observe({
         vals <- list(first=0.3, second=0.7)


      output$plot1 <- renderPlot({
        personograph(data=vals, colors=list(first="red", second="blue"), draw.legend=FALSE)  })
      }) 

    }

    # Run the app ----
    shinyApp(ui = ui, server = server)