R Shiny HTML UI无法正常工作

3
我想使用Rstudio Shiny制作一个完整的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)
  })

}

然后:

<!--this is the HTML UI-->
<!DOCTYPE html>
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>  <script type="application/shiny-singletons"></script>  <script type="application/html-dependencies">json2[2014.02.04];jquery[1.11.3];shiny[0.13.2];htmlwidgets[0.6];d3[3.5.2];forceNetwork-binding[0.2.13];bootstrap[3.3.5]</script><script src="shared/json2-min.js"></script>
<script src="shared/jquery.min.js"></script>
<link href="shared/shiny.css" rel="stylesheet" />
<script src="shared/shiny.min.js"></script>
<script src="htmlwidgets-0.6/htmlwidgets.js"></script>
<script src="d3-3.5.2/d3.min.js"></script>
<script src="forceNetwork-binding-0.2.13/forceNetwork.js"></script>
<meta name="viewport" content="width=device-width, initial-scale=1" />
<link href="shared/bootstrap/css/bootstrap.min.css" rel="stylesheet" />
<script src="shared/bootstrap/js/bootstrap.min.js"></script>
<script src="shared/bootstrap/shim/html5shiv.min.js"></script>
<script src="shared/bootstrap/shim/respond.min.js"></script>

</head>

<body>
  <div class="container-fluid">
    <div id="force" style="width:100%; height:500px; " class="forceNetwork html-widget html-widget-output"></div>
  </div>
</body>

</html>

网络图对我来说无法显示。 但是如果我先运行这个,然后再运行HTML UI,它就能正常工作:

# ui.r
# this is the equivalent version of HTML UI
library(shiny)

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

我也尝试了使用visNetwork图表,但出现了同样的问题。

1个回答

3

D3 和 htmlwidgets 的 js 无法加载(404 错误)的问题。

你可以将所有需要的 js 复制到 www 目录下,并在 HTML 中更改路径。

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

这解决了问题,但可能不是最佳方案。

Github上有同样的问题,并且涉及到htmlwidgets

更新

你可以在你的包文件夹中找到这些文件:

对我来说:

......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

如何检查JS的问题

1)运行应用程序

2)右键单击+检查 enter image description here

3)查看错误 enter image description here


我不确定我完全理解您的解决方案。这些js文件在哪里可以找到? - Slownz
谢谢,我会尽快检查。还有一个问题:您如何检查问题是“D3的js和htmlwidgets未加载(404错误)”? - Slownz
仍然不起作用。当我按照您所写的做时,会出现以下错误消息:"TypeError: undefined is not an object (evaluating 'data.jsHooks.render') "。 - Slownz
更新 我更新了 R 和 Rstudio,现在它已经出现了,但没有链接,只有节点可见。 - Slownz
我无法重现你的错误,对我来说它正常工作,并且我看到与 fluidPage( forceNetworkOutput("force") ) 相同的结果。 - Batanichek

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接