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のメニューになる


#<<Windowsのコマンド画面>>
cd c:\
RCMD check RcmdrPlugin.makevector --no-examples
# --no-examplesを指定しないと、exampleの作成をしようとしてエラーになる
#エラーにならなければOK

#<<Windowsのコマンド画面>>
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")