Javascript R闪亮的HTML UI无法正常工作

根据描述，我想用Rstudio制作一个完整的HTML UI，但我有一个奇怪的问题：

当我尝试加载网页时，绘图不会显示，但如果我先加载ui.r（完全等效），然后再次加载HTML ui，它就会工作

下面是一个简单的例子：

# server.r
# This is always the same with ui.r and also with HTML UI

library(shiny)
library(networkD3)

data(MisLinks)
data(MisNodes)

server <- function(input, output) {

  output$force <- renderForceNetwork({
    forceNetwork(Links = MisLinks, Nodes = MisNodes, Source = "source",
                 Target = "target", Value = "value", NodeID = "name",
                 Group = "group", opacity = 1)
  })

}

#server.r
#对于ui.r和HTMLUI来说，这总是一样的
图书馆（闪亮）
图书馆（网络3）
数据（错误链接）
数据（错误节点）
服务器
D3和HtmlWidget的js未加载的问题（404错误）

您可以将所有需要的js复制到www中，并在HTML中更改路径

<script src="htmlwidgets.js"></script>
<script src="d3.min.js"></script>
<script src="forceNetwork.js"></script>

如何检查问题是否存在

1） 运行应用程序

2） 右键单击+检查

3） 外观错误
我不确定我是否完全理解您的解决方案。我在哪里可以找到这些js文件？谢谢，我很快会查到的。还有一个问题：您如何检查问题是否为“D3的js和htmlwidgets未加载（404错误）”？当我执行您编写的操作时仍然不起作用出现以下错误消息：“TypeError:undefined不是对象（评估'data.jsHooks.render'）”更新我更新了R和Rstudio，现在显示，但没有链接，只有节点可见。我无法重现您的错误，对我来说，它是有效的，我看到的结果与
fluidPage（forceNetworkOutput（“force”）
# ui.r
# this is the equivalent version of HTML UI
library(shiny)

ui <- fluidPage(
  forceNetworkOutput("force")
) 

<script src="htmlwidgets.js"></script>
<script src="d3.min.js"></script>
<script src="forceNetwork.js"></script>

......R\R-3.2.5\library\htmlwidgets\www\
......R\R-3.2.5\library\networkD3\htmlwidgets\
......R\R-3.2.5\library\networkD3\htmlwidgets\lib\d3-3.5.2