この説明に従って、Rstudio Shiny で完全な HTML UI を作成したいのですが、奇妙な問題があります。
Webページを読み込もうとするとプロットは表示されませんが、最初に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 グラフでも試してみましたが、同じ問題がありました。