Vector <- function(){ initializeDialog(title="ベクトル生成") Var1 <- tclVar("") Var1Entry <- tkentry(top, width="6", textvariable=Var1) Var2 <- tclVar("10") Var2Entry <- tkentry(top, width="6", textvariable=Var2) onOK <- function(){ closeDialog() XXX <- as.numeric(tclvalue(Var1)) YYY <- as.numeric(tclvalue(Var2)) logger("ベクトルを生成します:") command <- paste(XXX, ":", YYY, sep="") doItAndPrint(command) tkfocus(CommanderWindow()) } OKCancelHelp(helpSubject="+") tkgrid(tklabel(top, text=gettextRcmdr("引数1")), Var1Entry, sticky="e") tkgrid(tklabel(top, text=gettextRcmdr("引数2")), Var2Entry, sticky="e") tkgrid(buttonsFrame, columnspan=2, sticky="w") tkgrid.configure(Var1Entry, sticky="w") tkgrid.configure(Var2Entry, sticky="w") dialogSuffix(rows=3, columns=2, focus=Var1Entry) } package.skeleton(name="RcmdrPlugin.makevector",path="c:/") #C:直下にRcmdrPlugin.makevectorフォルダが生成される #RcmdrMenu.zipをダウンロードし、解凍する[inst][etc][menu.txt]が入っている #RcmdrPlugin.makevectorフォルダ内に[inst]フォルダごと投入 #menu.txtがRCommanderのメニューになる #<> cd c:\ RCMD check RcmdrPlugin.makevector --no-examples # --no-examplesを指定しないと、exampleの作成をしようとしてエラーになる #エラーにならなければOK #<> RCMD build --binary RcmdrPlugin.makevector #RcmdrPlugin.makevector_1.0.zipが生成される #エラーが発生した場合は、設定の何かが間違っているので最初から手順を確認する #Pathの設定を特に確認すること ###RcmdrPlugin.makevectorパッケージのインストール #Rguiから[パッケージ][ローカルにあるzipファイルからのパッケージのインストール...]で #RcmdrPlugin.makevector_1.0.zipをインストールする library(Rcmdr) Commander() #RCommanderが起動したら、[ツール][Rcmdrプラグインのロード...]で #RcmdrPlugin.makevectorを選択する #RCommanderが再起動後、[ベクトル生成]メニューが追加される #パッケージのアンインストール remove.packages("RcmdrPlugin.makevector")