如何解决如何使用功能“ tkcmd”?
我正在r中练习gui,并在这里编写了最简单的代码。我使用文本,条目和按钮进行了简单的布局,并尝试实现连接到按钮的功能。下面是我尝试的代码。并且在函数tkcmd上收到错误消息,例如“ tkcmd(“ tk_getopenFile”)中的错误:找不到函数tkcmd“。还有其他可以使用tkcmd的库吗?
library(tcltk)
guiPractice <- function() {
tt<- tktoplevel()
lbl <- tklabel(tt,text="GUI PRACTICE")
tkpack(lbl)
exit <- function() {
tkdestroy(tt)
}
srch <- function() {
file <- tkcmd("tk_getopenFile")
if (!length(file)) return()
chn <- tkcmd("open",file,"r")
tkinsert(txt,"0.0",tkcmd("read",chn))
tkcmd("close",chn)
wfile <<- file
}
srch.but <-tkbutton(tt,text="Search",command=srch)
e.srch <-tkentry(tt,width=20)
tkpack(e.srch,srch.but)
txt <- tktext(tt,height=10)
tkpack(txt)
but<-tkbutton(tt,text="Exit",command=exit)
tkpack(but)
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。