我想做一个视窗选项， https://i.imgur.com/7YY1QOw.jpg 让使用者可以从「建模」「校正」「分析」三个选项中做选择 我将 「建模」命名为1 「校正」命名为2 「分析」命名为3 我希望能够回传这个视窗选择後的资讯(1/2/3)， 但是我看了tcltk2的范例，大部分的反应都只是关掉视窗... 最多是根据选择做一件简单的反应， 例如使用switch+tkmessageBox开新视窗显示一句话。 不知道要怎麽做，才能够把选择的结果纪录回传， 方便我做後续的处理？ (print不行，我要存成变数，不是印出来） 想了一天想不出来，来向各位大神求救>< TEST_GUI = function(){ library(tcltk2) win1 <- tktoplevel() win1$env$rb1 <- tk2radiobutton(win1) win1$env$rb2 <- tk2radiobutton(win1) win1$env$rb3 <- tk2radiobutton(win1) rbValue <- tclVar("PANDA") tkconfigure(win1$env$rb1, variable = rbValue, value = 1) tkconfigure(win1$env$rb2, variable = rbValue, value = 2) tkconfigure(win1$env$rb3, variable = rbValue, value = 3) tkgrid(tk2label(win1, text = "现在要执行的功能?"), columnspan = 2, padx = 10, pady = c(10, 5)) tkgrid(tk2label(win1, text = "建模"), win1$env$rb1, padx = 10, pady = c(0, 5)) tkgrid(tk2label(win1, text = "校正"), win1$env$rb2, padx = 10, pady = c(0, 5)) tkgrid(tk2label(win1, text = "分析"), win1$env$rb3, padx = 10, pady = c(0, 5)) onOK <- function() { rbVal <- as.character(tclvalue(rbValue)) tkdestroy(win1) return(rbVal) #无效 } win1$env$butOK <- tk2button(win1, text = "OK", width = -6, command = onOK) tkgrid(win1$env$butOK, columnspan = 2, padx = 10, pady = c(5, 15)) tkfocus(win1) } --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 49.215.241.31 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1556610476.A.030.html