Я пытаюсь разработать веб-приложение Shiny на основе HTML-шаблона.Код выглядит так:
app.R
library(shiny)
# Define server logic for random distribution app ----
server <- function(input, output) {
}
shinyApp(ui = htmlTemplate("www/index.html"), server)
www/index.html
<!DOCTYPE html>
<html>
<head>
<script src="shared/jquery.js"></script>
<script src="shared/shiny.js"></script>
<title>UI</title>
</head>
<body>
<h1>HTML UI</h1>
</body>
</html>
При попытке запустить приложение выдается ошибка
Warning in body(fun) : argument is not a function
Warning: Error in registerShinyDebugHook: attempt to set an attribute on NULL
[No stack trace available]
Я обнаружил, что когда я закомментирую строку, импортирующую shared/jquery.js, приложение запускается, но в скрипте shared/shiny.js, который использует jQuery, есть ошибка.В конце оба сценария необходимы для обеспечения связи между шаблоном HTML и функцией сервера.