在ShinyBS中增加工具提示/弹出窗口的长度

Question

ShinyBS包提供了一种简单易用的方法，可将工具提示和弹出窗口添加到Shiny应用的各个元素中。但是，这些长度大约限制在40个字符左右。我真的需要增加这些工具提示中允许的字符数。

一个例子：

library(shiny) 
library(shinyBS) 

shinyApp(
    ui = fluidPage(
     column(5,sliderInput("n", "Short tooltip", 5, 100, 20), 
        bsTooltip("n",title="This is a short tooltip, so it works."), 
        sliderInput("n2", "Long tooltip", 5, 100, 20), 
        bsTooltip("n2",title="This is a longer tooltip, so it doesn't work.")) 
), 
    server = function(input, output) {} 
) 

Answer 1

它实际上是一个转义'的在第二个提示的标题的存在是造成你的问题，没有标题的长度。输入\\'代替每个'将解决问题。

尝试运行这个（或者，对于这个问题，在?bsTooltip的例子）地看到，在长标题提示工作得很好：

library(shiny) 
library(shinyBS) 

shinyApp(
    ui = fluidPage(
     column(5, 
      sliderInput("n", "Short tooltip", 5, 100, 20), 
      bsTooltip("n",title="This is a short tooltip, so it works."), 
      sliderInput("n2", "Long tooltip", 5, 100, 20), 
      bsTooltip("n2",title="This is a longer tooltip, which\\'ll still work, as long as each special character is escaped with a \\\\\\\\.")) 
), 
    server = function(input, output) {} 
)