增加 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) {}
)