[英]shinyBS - remove tooltip when dragging
我正在使用 dragulaR 在 Shiny 中創建可拖動的 div,並使用 shinyBS 向每個 div 添加了一個工具提示。 我想知道是否可以刪除工具提示(我嘗試從JQuery UI添加jQuery
:在拖動開始時刪除可拖動克隆上的引導工具提示?)拖動 div 時?
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)
通過刪除makeElement
function 中的title
文本,您將能夠在拖動元素時刪除“懸停”工具提示。
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 = "",
placement = "top", trigger = "hover"))
}
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.