我正在尝试完全基于HTML模板开发Shiny Web应用程序。代码如下所示：
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模板和服务器功能之间的连接都是必需的。