如何使用条目输入在gui r中搜索内容？

这是个简单的问题，但对我来说很难解决

function() {
  tt<- tktoplevel()
  lbl <- tklabel(tt, text="GUI PRACTICE")
  tkpack(lbl)
  
  srch <- function() {
    for(i in readLines("filename", n=-1)){  #random filename
        if(grepl(tkentrycget(e.srch), i)){
            tkinsert(txt, "0.0", i)
        }
    }
  }

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

或者，是否有更多的内置函数来加载r中的条目输入

Error in structure(.External(.C_dotTclObjv, objv), class = "tclObj") : 
[tcl] bad option "entrycget": must be bbox, cget, configure, delete, get, icursor, index, insert, 
scan, selection, validate, or xview.