R を使用して、github のレポにチャートを含むファイル (または他の方法で作成されたもの.html
)をレンダリングできるようにしたいと考えています。.md
knitr
googleVis
の実行時にヘルプ ファイルをたどろうとしていて、ファイルとファイルをリポジトリに?plot.gvis
プッシュして、これらを参照するように html を変更しようとしましたが、github を実行するための正しい baseURL がまったくないような気がします。正しくレンダリングできます。gvisData.js
gvisFunctions.js
googleVis チャートをレンダリングする Github を参照する URL の簡単な例はありますか?
このhttp://lamages.blogspot.co.uk/2013/07/googlevis-tutorial-at-user2013.htmlを使用してみましたが、github でどのように機能するかわかりませんでした...
だから、?plot.gvis
これに与えられた例を使って私が試したのは
myChartID <- "mtnc"
baseURL <- "https://raw.github.com/USER/REPO"
wwwdir <- getwd() ## the working directory is the local directory of the repo
## Create a motion chart
M <- gvisMotionChart(Fruits, "Fruit", "Year", chartid=myChartID)
## Write the data and functions into separate files:
cat(M$html$chart['jsData'], file=file.path(wwwdir, "gvisData.js"))
cat(M$html$chart[c('jsDrawChart', 'jsDisplayChart', 'jsChart')],
file=file.path(wwwdir, "gvisFunctions.js"))
## Create a html page with reference to the above
## JavaScript files
html <- sprintf('
<html>
<head>
<script type="text/javascript" src="http://www.google.com/jsapi">
</script>
<script type="text/javascript" src="%s/gvisFunctions.js"></script>
<script type="text/javascript" src="%s/gvisData.js"></script>
<script type="text/javascript">
displayChart%s()
</script>
</head>
<body>
<div id="%s" style="width: 600px; height: 500px;"></div>
</body>
</html>
', baseURL, baseURL, myChartID, myChartID)
## Write html scaffold into a file
cat(html, file=file.path(wwwdir, paste("Chart", myChartID, ".html", sep="")))
### from this point I push up to the repo the following files
### gvisData.js, gvsiFunctions.js and Chartmtnc.html
## Display the result via
URL <- paste(baseURL,"/Chart", myChartID, ".html", sep="")
browseURL(URL)
どんな提案も役に立ちます...