你需要做的是:
- 在与
server.R
和ui.R
相同的文件夹中创建www
文件夹
- 将javascript文件放入
www
文件夹.
- 在UI中输入
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>