你需要做的是:
www
在与server.R
和相同的文件夹中创建文件夹ui.R
- 将javascript文件放入
www
文件夹。
- 放入
tags$head(tags$script(src="hoge.js"))
用户界面。
该文件夹看起来像:
├── server.R
├── ui.R
└── www
└── hoge.js
的ui.R
是一样的东西
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("New Application"),
sidebarPanel(
sliderInput("obs",
"Number of observations:",
min = 1,
max = 1000,
value = 500)
),
mainPanel(
plotOutput("distPlot"),
tags$head(tags$script(src="hoge.js"))
)
))
和 server.R
library(shiny)
shinyServer(function(input, output) {
output$distPlot <- renderPlot({
dist <- rnorm(input$obs)
hist(dist)
})
})
请注意,这些是由 Rstudio 生成的模板。
现在head
的 html 看起来像:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
... snip ...
<script src="shared/slider/js/jquery.slider.min.js"></script>
<script src="hoge.js"></script>
</head>