![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-C9dCso-j6CHR34j1wF70gkjANV5T5w4ljh39CSyIxXrQZo_htOkL9fnVSDKTu58zvsCqyVK9c6ddWBQqVGgpXmIWt_UASVoC39LOCSOoDRRf6r7aGQSivPv104Z_sh10aIv21g/s320/Rlogo.png)
R で Tcl/Tk パッケージを使ってみました。以前から試してみたかったのですが、(自前の R スクリプトを使った)目の前の作業に追われて、ゆっくりと GUI を検討する暇がありませんでした。
で、今更なんですが R: Tk widgets で説明されている例を Fedora 上で実行してみてびっくり。簡単に Tk ウィジェットが R で利用できます。Ttk ウィジェットなど、最新の Tcl/Tk のウィジェットにも対応しているようです。これだったら、業務用に作った R スクリプトを GUI 化するために時間を割くことを検討する余地が十分ありそう。GUI 化できれば、作業を他の人に移管できる…。
$ R
R version 2.8.1 (2008-12-22)
Copyright (C) 2008 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Rはフリーソフトウェアであり、「完全に無保証」です。
...
(省略)
...
[以前にセーブされたワークスペースを復帰します]
> library(tcltk)
Tcl/Tkインターフェースのロード 終了済
> ls("package:tcltk")
[1] "addTclPath" "as.tclObj" "getTkProgressBar"
[4] "is.tclObj" "is.tkwin" "setTkProgressBar"
[7] "tcl" "tclArray" "tclObj"
[10] "tclObj<-" "tclObj<-.tclVar" "tclRequire"
...
(省略)
...
[241] "ttkbutton" "ttkcheckbutton" "ttkcombobox"
[244] "ttkentry" "ttkframe" "ttkimage"
[247] "ttklabel" "ttklabelframe" "ttkmenubutton"
[250] "ttknotebook" "ttkpanedwindow" "ttkprogressbar"
[253] "ttkradiobutton" "ttkscrollbar" "ttkseparator"
[256] "ttksizegrip" "ttktreeview"
> tt <- tktoplevel()
> label.widget <- tklabel(tt, text="Hello, World!")
> button.widget <- tkbutton(tt, text="Push",
+ command=function()cat("OW!\n"))
> tkpack(label.widget, button.widget)
<Tcl>
>
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqFEiSGwxTfRzd68UnuXGUWluPb_O_sO10Kk3PhfAokvGg-h_78BSlm6NsowewYCtalxlzvo7oQFvsEzv_d0YlqN8UY73AufI2v8ZQqZ6uM2YVjiBie5D1rvu9uSJfHIFLBP-GBQ/s320/R-tcltk.png)
0 件のコメント:
コメントを投稿