来自vignette源的vignettes/widgetTools/inst/doc/widgetTools的代码。Rnw ' ################################################### ### 代码块1号:widgetTools。Rnw: 111 - 113 ################################################### 新图书馆(widgetTools) PWEnv <。env(哈希= TRUE,父母= parent.frame (1 )) ################################################### ### 代码块2号:widgetTools。Rnw: 170 - 192 ################################################### label1 < -标签(wName =“label1 wValue = "文件名:”,wEnv = PWEnv) entry1 < - entryBox (wName =“entry1 wValue =“喂我使用浏览”,wEnv = PWEnv) browse2Entry1 < -函数(){tempValue < - tclvalue (tkgetOpenFile())临时< -得到(wName (entry1) env = PWEnv) wValue(临时)< -粘贴(tempValue, 9 = ",崩溃=“;”)分配(wName (entry1),临时,env = PWEnv)} button1 < -按钮(wName =“button1 wValue =“浏览”,wFuns =(命令= browse2Entry1)列表,wEnv = PWEnv) list1 < -列表框(wName =“list1 wValue = c (Option1 = TRUE, Option2 = FALSE,Option3 = FALSE)， wEnv = PWEnv) text1 <- textBox(wName = "text1"， wValue = "给我点东西"，wEnv = PWEnv) label2 <- label(wName = "label2"， wValue = "Select one: "， wEnv = PWEnv) radios1 <- radioButton(wName = "radios1"， wValue = c(radio1 = TRUE, radio2 = FALSE, radio3 = FALSE)， wEnv = PWEnv) label3 <- label(wName = "label3"， wValue = "Select one to many: "”,wEnv = PWEnv) checks1 < checkButton (wName =“checks1 wValue = c (check1 = TRUE, check22 = FALSE, check3 = FALSE), wEnv = PWEnv ) ################################################### ### 代码块3号:widgetTools。Rnw: 232 - 236 ################################################### wName (label1) wName (label1) <——“多”wName (label1) wName (label1) <——“label1 " ################################################### ### 代码块数量4:widgetTools。Rnw: 251 - 256 ################################################### pWidgets < -列表(topRow =列表(label1 = label1 entry1 = entry1 button1 = button1), textRow =列表(list1 = list1 text1 = text1), radGroup =列表(label2 = label2 radios1 = radios1), chkGroup =列表(label3 = label3 checks1 = checks1 )) ################################################### ### 代码块5号:widgetTools。Rnw: 303 - 308 ################################################### 如果(互动()){aWidget <小部件(wTitle =“测试部件”,pWidgets,乐趣=()列表,preFun = function()打印(“Hello”),postFun = function()打印(“再见”),env = PWEnv ) } ################################################### ### 代码块6号:widgetTools。Rnw: 328 - 335 ################################################### 如果(互动()){wValue (pWidgets (aWidget)[[“topRow”]][[“entry1”]])wValue (pWidgets (aWidget)[[“textRow”]][[“list1”]])wValue (pWidgets (aWidget)[[“textRow”]][[“text1”]])wValue (pWidgets (aWidget)[[“radGroup”]][[“radios1”]])wValue (pWidgets (aWidget)[[“chkGroup”]][[“checks1”]])}