Javascript 如何仅在将鼠标悬停在另一个元素上时以闪亮的方式显示浮动元素

这个问题是在我发现

bsTooltip

不能与

shinyjqui

为了让这个问题更容易理解，我将解释我目前所知道的。

我一直在开发一个相当大的闪亮的应用程序，包含上万行代码，一次构建一个模块，并在运行后将其放入主应用程序

现在我遇到了一堵墙，但有两个功能似乎不兼容。我与

shinyjqui

的作者交换了一些信息，他告诉我

bootstrap

中有一个老错误，使得它与shinyjqui不兼容：

您好@madmark81，这是jquery ui之间不兼容的一个老错误 和引导。实际上，附加jquery-ui.js本身就足以 在不加载shinyjqui的情况下中断工具提示：

我真的很想将

jqui\u draggable

和

jqui\u sortable

功能结合起来，同时也为我的用户提供

帮助消息

，当您将

鼠标悬停在
按钮
和其他元素上时会弹出

我正在考虑制作一些带有消息的
div
或
wellpanel
元素，并使其浮动，但此时我不知道如何使这种解决方案起作用

最近的经验告诉我，ggplot的悬停消息不会导致shinyjqui出现问题。。。因此，或许还有希望。
我不知道如何创建这个浮动效果自己然而

如果有人知道如何实现浮动消息和shinyjqui的结合，我很高兴听到这个消息，并看看如何做到这一点

到目前为止，我构建的是一个
wellPanel
，它的
z-index
为
100
，将其置于其他元素之上，但我需要弄清楚如何使这个
wellPanel
仅显示在
鼠标悬停
操作按钮上的
事件上

仅带有工具提示的应用程序：

library("shiny")
library("shinyBS")  #needed to use bsTooltip
shinyApp(  
  ui = fluidPage(
    actionButton("Click", "Click Me"),
    bsTooltip(id = "Click", title = "hello message", placement = "right", trigger = "hover", options= list(container = "body", delay = list(show=100, hide=150)))
  ),

  server =  function(input, output, session) {
  }
)

只有shinyjqui功能的应用程序

library("shiny")
library("shinyjqui")
shinyApp(      
  ui = fluidPage(
    jqui_resizable(
        actionButton("Click", "Click Me")
    )
  ),

  server =  function(input, output, session) {
  }
)

带有combi的应用程序（用于说明断开的消息）和新的悬停方式理念

library("shiny")
library("shinyjqui")
library("shinyBS")  #needed to use bsTooltip

## unload packages if needed for testing
# unload('shinyjqui')
# unload('shinyBS')


shinyApp(
  ui = fluidPage(
    h3("hello!"),
    jqui_resizable(
        actionButton("Click", "Click Me")
    ),

    ## this only works without loading shinyjqui
    ## use unload('shinyjqui') if you already loaded it
    bsTooltip(id = "Click", title = "hello message", placement = "right", trigger = "hover", options= list(container = "body", delay = list(show=100, hide=150))),

    ## This is the alternative so far, but needs to be only shown on hover
    uiOutput('hoverWell')
  ),

  server =  function(input, output, session) {

    output$hoverWell <- renderUI({
      wellPanel(h5('info message'), style = 'position:absolute; z-index:100; background-color: #e6f3f7; border-color: #339fff; left:85px; top:85px; height:40px;padding-top:0px')

    })
  }
)

库（“闪亮”）
图书馆（“shinyjqui”）
库（“shinyBS”）#需要使用bTooltip
##如果测试需要，卸载包
#卸载（“shinyjqui”）
#卸载（“shinyBS”）
shinyApp(
ui=fluidPage(
h3（“你好！”），
jqui_可调整大小(
操作按钮（“单击”、“单击我”）
),
##这只适用于不加载shinyjqui的情况
##如果您已经加载了unload（'shinyjqui'），请使用unload
b工具提示（id=“Click”、title=“hello message”、placement=“right”、trigger=“hover”、options=list（container=“body”、delay=list（show=100、hide=150）），
##这是目前为止的备选方案，但只需要在悬停时显示
uiOutput（'hoverWell'）
),
服务器=功能（输入、输出、会话）{
输出$hoverWell