COLOR(red){SIZE(25){HTMLのcanvas要素にRでお絵描き}}
COLOR(red){ブラウザによっては読み替える必要もあったと思いますが, 生物ですので最新の情報をお調べ下さい.}
*お品書き [#bc12c260]
**bitops [#ne646677]
CRANより普通にインストール
$ R -e 'install.packages("bitops",repos="http://cran.r-project.org")'
**RAutoGenRunTime [#t8555dea]
[[RAutoGenRunTime:http://www.omegahat.org/RAutoGenRunTime/]]から
$ wget http://www.omegahat.org/RAutoGenRunTime/RAutoGenRunTime_0.1-0.tar.gz
$ R CMD INSTALL RAutoGenRunTime_0.1-0.tar.gz
**RGraphicsDevice [#uc1c49ff]
[[RGraphicsDevice:http://www.omegahat.org/RGraphicsDevice/]]から
$ wget http://www.omegahat.org/RGraphicsDevice/RGraphicsDevice_0.2-0.tar.gz
$ R CMD INSTALL RGraphicsDevice_0.2-0.tar.gz
**canvastext.js [#xa381df3]
[[http://jim.studt.net/canvastext/]]から[[canvastext.js:http://jim.studt.net/canvastext/canvastext.js]]
をとってきます.
$ wget http://jim.studt.net/canvastext/canvastext.js
*調理 [#pe4c31b1]
** 作図 [#k44c1379]
$ R -q
> library(RAutoGenRunTime)
> library(RGraphicsDevice)
> source("http://www.omegahat.org/RGraphicsDevice/Rjs.R")
> jsCanvas("hoge.js")
> pie(rep(1,n), labels="", col=rainbow(n), border=NA)
> dev.off()
** HTML [#oe89923b]
hoge.jsを取り込んで, bodyのonloadイベントで, rdraw()を実行.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html> <head>
<script type="application/x-javascript" src="canvastext.js"></script>
<script type="application/x-javascript" src="hoge.js"></script>
<title>Example of the Canvas</title>
</head>
<body onload="rdraw()">
<canvas id="canvas" width="1000" height="800" >
No support for JavaScript canvas
</canvas>
</body>
</html>
*注意 [#vb841d2f]
- クオートのエスケープの処理に問題があります. 無理やりエスケープすると上手くいくかもしれません.
- 日本語は出ません.
- 日本語やシンボルは出ません.(英数字のみ)
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
