R Shiny 對用戶定義的 javascript 的錯誤解析？

Question

從我收集的信息來看，如果我想在我的Shiny App 中包含一些 javascript，我會執行以下操作：

shinyUI(
    fluidPage(
        tags$head(
            tags$script("if (1 > 0) {1}")
        )
    )
)

但是，這會導致我的瀏覽器出錯，因為如果您執行“查看源代碼”，您會看到 Shiny 生成的實際 javascript 是：

<script>if (1 &gt; 0) {1}</script>

看起來>被錯誤地轉換為> . 現在，這是因為我沒有以正確的方式在 Shiny 中包含 javascript，還是它是一個錯誤（或者確實是一個功能）？ 更重要的是，有沒有辦法解決這個問題？

Answer 1

tags 函數執行 HTML 轉義。 如果您不想進行轉義，則需要使用 HTML 函數：

require(shiny)
runApp(list(
  ui = bootstrapPage(
    numericInput('n', 'Number of obs', 100),
    plotOutput('plot'),
    tags$head(
      tags$script(HTML("if (1 > 0) {1}"))
    )
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ hist(runif(input$n)) })
  }
))

如果您的腳本在文件中，現在有一個includeScript函數可以為您包裝 HTML 函數和標簽等。 關鍵部分是tags$script(HTML(paste(lines, collapse = "\\r\\n")這基本上就是你在這里做的。