shinyBS的闪亮popover仅每秒显示一次
shinyBS的动态popover仅在每秒选择时出现shinyBS的闪亮popover仅每秒显示一次,r,twitter-bootstrap,shiny,shinybs,R,Twitter Bootstrap,Shiny,Shinybs,shinyBS的动态popover仅在每秒选择时出现 library(shiny) library(shinyBS) ui <- fluidPage( sidebarLayout( sidebarPanel( selectInput("poppy", "Think!", c("A", "B", "C", "D")), bsButton("dummy", "dummy")), ## required, dummy mainPan
library(shiny)
library(shinyBS)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("poppy", "Think!", c("A", "B", "C", "D")),
bsButton("dummy", "dummy")), ## required, dummy
mainPanel(
helpText("Note that when you select from the box, popover turns up every second time only!")
)))
server <- function(input, output, session) {
observe({
poppy = paste("You selected ", input$poppy)
addPopover(session, "poppy", "Every second time", poppy)
})}
shinyApp(ui = ui, server = server)
库(闪亮)
图书馆(shinyBS)
ui这是引导程序中的一个已知错误:
如果您不想更改ShinyBS的代码,请在您的www子文件夹中添加一个js文件,其中包含以下内容:
shinyBS.addTooltip = function(id, type, opts) {
var $id = shinyBS.getTooltipTarget(id);
var dopts = {html: true};
opts = $.extend(opts, dopts);
if(type == "tooltip") {
$id.tooltip("destroy");
setTimeout(function() {$id.tooltip(opts);},200);
} else if(type == "popover") {
$id.popover("destroy");
setTimeout(function() {$id.popover(opts);},200);
}
}
并将以下内容添加到ui中:(假设文件名为pop_patch.js)
工作是一种享受。只需记住将.js文件放在www文件夹中即可。工作非常出色。非常感谢。
singleton(tags$head(tags$script(src = "pop_patch.js"))),