R：創建文本輸入面板並在函數中對其進行處理

Question

我想解析幾段文本以使用R拉出某些行，然後爲此寫了一個函數。該函數很好，但到目前爲止，我不得不使用readLines（）來讀取.txt文件，然後使用我的函數處理它。 但是，理想情況下，我想創建一個彈出窗口，包含文本輸入框，「執行」按鈕和返回文本框。然後，我可以在文本輸入框中複製粘貼文本，按「執行」按鈕（將其發送到我的功能），並在文本框中獲取所需的行。 我玩過rpanel軟件包及其rp.textentry和rp.text功能，但我有一些問題了解整個軟件包的工作原理...

如果您有建議，一個彈出窗口與rpanel或R中的任何其他包。謝謝！

Answer 1

有一個名爲svDialogs的包。以下是指向文檔的鏈接： http://cran.r-project.org/web/packages/svDialogs/svDialogs.pdf 有一個稱爲dlgInput的函數。

這是創建窗口小部件最簡單的方法。否則，我推薦的解決方案是使用tcltk2軟件包。

然後：

library(tcltk) 
tt<-toplevel(width=100,height=100) 

submit<-function(){ 
    print(tkget(input.text,"0.0","end")) 
    tkdestroy(tt) 
} 

input.text<-tktext(tt,width=100) 
submit.bt<-tkbutton(tt,text="submit",command=submit) 

tkpack(input.text, submit.bt)