我正在使用 dragulaR 在 Shiny 中創建可拖動的 div，并使用 shinyBS 向每個 div 添加了一個工具提示。我想知道是否可以在拖動 div 時刪除工具提示（我嘗試jQuery從JQuery UI添加：在拖動開始時刪除可拖動克隆上的 Bootstrap 工具提示？）？library(shiny)library(dragulaR)library(shinyBS)makeElement <- function(data, name){  div(style = "border-width:2px;border-style:solid;",      drag = name,      div(class = "active-title-row", id = name, name),          bsTooltip(id = name, title = "Hover",                    placement = "top", trigger = "hover"))}ui <- fluidPage(  # Maybe something like this but it doesn't work  tags$script(HTML(    "$(function() {    start: function(event, ui) {                   $('#bsTooltip').hide();                 });"  )),  titlePanel("Drag and drop elements with dragulaR"),  fluidRow(style = "margin: 15px;",           column(3,                  h3("Drag from here:"),                  div(id = "Available", style = "min-height: 600px;",                      lapply(colnames(mtcars), makeElement, data = mtcars))           ),           column(3,                  h3("Drop here:"),                  div(id = "Model", style = "min-height: 600px;")           )  ),  dragulaOutput("dragula"))server <- function(input, output) {  output$dragula <- renderDragula({    dragula(c("Available", "Model"))  })}shinyApp(ui = ui, server = server)