r - 如何使用函数“tkcmd”？

Question

我在 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)
}