如何使用功能“ 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 (将#修改为@）

r r tcltk