根据我收集的信息,如果我想在我的闪亮应用程序中包含一些javascript,我做的事情如下:
shinyUI(
fluidPage(
tags$head(
tags$script("if (1 > 0) {1}")
)
)
)但是,这会在我的浏览器中导致一个错误,因为如果您做了一个“视图源”,您会看到由闪亮生成的实际javascript是:
<script>if (1 > 0) {1}</script>>似乎被错误地转换为>。现在,这是因为我没有以正确的方式以闪亮的方式包含javascript,还是因为它是一个bug (或者实际上是一个特性)?更重要的是,有没有办法解决这个问题?
发布于 2014-04-06 21:59:57
标记函数执行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"),这基本上就是您在这里所做的。
https://stackoverflow.com/questions/22900505
复制相似问题