R “我如何使用函数”；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)
}

库（tcltk）
guiPractice我的猜测是，您没有加载所有依赖项，或者该函数在较新版本的tcltk中已被弃用。这段代码的来源是什么？@RomanLuštrik i googled load function和其他源代码已经有近20年的历史了，可以肯定的是，该函数已经被弃用了。查看包的变更日志，看看是否有关于函数发生了什么和/或是否有后续函数的提示。