//このページが表示される方は、URLから「action=SOURCE&」を削除してみてください
[[Ｒ備忘録 - 記事一覧]]

!!!R（R言語）でバイナリ（たとえばJPEGなど）を標準出力に出力する方法
*投稿者： みゅ
*カテゴリ： なし
*優先度： 普通
*状態： 完了
*日時： 2008年07月04日 18時25分33秒
//{{bugstate}}
!!内容
*Rでバイナリ（たとえばJPEGなど）を標準出力に出力する方法があるとうれしい
**CGIとして動かしたい？いいのだろうか・・・？
*一旦ファイルで作成したものを、perlなどで出力する方法はある
*今のところ、思いつかない・・・

 postscript("", command="cat | pstopnm -stdout -ppm -nocrop | ppmtogif ")
 plot(1:10)
 dev.off()
とか．なぜか端が切れる．
 pstopnm -stdout -ppm -xborder 0 -yborder 0 -xsize 600 -ysize 800 Rplots.ps |/usr/bin/pnmflip -rotate270 | ppmtogif > Rplot.gif
直接ファイルを変換する場合はうまくいく
 gs -q -dSAFER -dBATCH -dNOPAUSE -sDEVICE=jpeg -sOutputFile=- Rplots.ps
 gs -q -dSAFER -dBATCH -dNOPAUSE -sDEVICE=png16m -sPAPERSIZE=a4 \
 -sOutputFile=Rplots.png SpaceStateModel/Rplots.ps
 cat SpaceStateModel/Rplots.ps | gs -q -dSAFER -dBATCH -dNOPAUSE \
 -sDEVICE=png16m -sPAPERSIZE=a4 -sOutputFile=Rplots.png -
 cat SpaceStateModel/Rplots.ps | \
 gs -q -dSAFER -dBATCH -dNOPAUSE -sDEVICE=png16m -sPAPERSIZE=a4 -sOutputFile=- - | \
 pngtopnm | \
 /usr/bin/pnmflip -rotate270 | ppmtogif > Rplot.gif
 cat SpaceStateModel/Rplots.ps | \
 gs -q -dSAFER -dBATCH -dNOPAUSE -sDEVICE=pnm -sPAPERSIZE=a4 -sOutputFile=- - | \
 /usr/bin/pnmflip -rotate270 | pnmtopng 1>Rplots.png 2>/dev/null

 $ LANG=C DISPLAY=mach:1.0 R --no-save --no-restore --slave << Eof 1>Rplots.png 2>/dev/null
 > postscript("", command="cat | gs -q -dSAFER -dBATCH -dNOPAUSE -sDEVICE=pnm -sPAPERSIZE=a4 -sOutputFile=- - | /usr/bin/pnmflip -rotate270 | pnmtopng 2>/dev/null")
 > plot(1:10)
 > dev.off()
 > q()
 > Eof

!!リンク
*http://pages.cs.wisc.edu/~ghost/doc/cvs/Devices.htm#PNG
*http://pages.cs.wisc.edu/~ghost/doc/cvs/Use.htm#Pipes
*http://pages.cs.wisc.edu/~ghost/doc/cvs/Ps2pdf.htm#Ps2pdf_vs_AD

!!コメント