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)

R：创建文本输入面板并在函数中处理它

1 个答案: