Question

我想使用包shinyBS和函数tipify向我的操作按钮或我的滑块添加工具提示。我为工具提示的“标题”参数添加了一个文本。但是，当我的文本有撇号（单引号）时，它会出错。 actionButton本身的标签不会发生这种情况！

library(shiny); library(shinyBS)
shinyApp(ui = basicPage(p("title"), uiOutput("button_with_tooltip"), uiOutput("input_slider")),
         server = function(input, output, session){
              output$button_with_tooltip = renderUI({
                   tipify(actionButton("button", label="I'm doing nothing"), title="I am doing nothing")})})

如果您将工具提示标题从“我是”更改为“我是”，则不会显示。

此错误的更令人惊讶的行为结果是inputSlider，当工具提示的标题中包含单引号时，它们会自动转换为numericInput ......很奇怪！试试这个：

shinyApp(
     ui = basicPage(p("title"), uiOutput("input_slider")),
     server = function(input, output, session){
          output$input_slider = renderUI({
               tipify(sliderInput("slider", label="I'm a simple slider", min=0, max=10, value=5), title="I'm doing nothing")
          })})

为什么会发生这种情况？如何覆盖？谢谢，

注意：我是法国人所以我需要撇号

谢谢，

Answer 1

我们可以做一个逃避\\'

library(shiny)
library(shinyBS)
shinyApp(
  ui = basicPage(p("title"), uiOutput("input_slider")),
  server = function(input, output, session){
          output$input_slider = renderUI({
        tipify(sliderInput("slider", label="I'm a simple slider",
             min=0, max=10, value=5), title="I\\'m doing nothing")
})})

- 输出

Answer 2

看起来这是GitHub上最新版本中修复的错误：

但最新的CRAN版本有点老了（2015-03-31）。我在GitHub上安装了最新版本并运行该应用程序没有问题。

devtools::install_github("ebailey78/shinyBS@shinyBS3")

tipify通过在页面上嵌入JavaScript来添加工具提示。问题是JavaScript代码是用单引号字符串构造的，但字符串内容没有被转义。这会导致JavaScript解析错误，这就是滑块看起来像普通<input>元素的原因。

您可以使用@akrun显示的反斜杠来转义撇号，或者使用'

将其转义为HTML

使用shinyBS

2 个答案: