时间戳

首页 > 解决方案 > 提示将输入字符串放入变量 - R

r - 提示将输入字符串放入变量 - R

问题描述

我每天都在运行一个 R 脚本，我想在选择所有整个脚本时提示我输入数据。

我已经尝试过了readline(prompt = )，它在rstudio控制台中提示，但是如果我选择所有要运行的代码，它不会提示我。我也不喜欢控制台中的提示，因为它很容易被忽略。

我也研究library(tcltk)过，希望消息框可以提供帮助，但我尝试过的任何方法似乎都不起作用。

标签： rrstudioprompt

解决方案

这是一种使用方法library(tcltk) 

EntryBox <- function(label = 'Enter', title = 'Entry Box') {
    tt <- tktoplevel()
    tkwm.title(tt, title)   
    done <- tclVar(0)
    tkbind(tt,"<Destroy>", function() tclvalue(done) <- 2)
    result <- tclVar("")
    cancel.but <- tkbutton(tt, text='Cancel', command=function() tclvalue(done) <- 2)
    submit.but <- tkbutton(tt, text="Submit", command=function() tclvalue(done) <- 1)
    tkgrid(tklabel(tt, text=label),  tkentry(tt, textvariable=result), pady=3, padx=3)
    tkgrid(submit.but, cancel.but, pady=3, padx=3)
    tkfocus(tt)
    tkwait.variable(done)
    if(tclvalue(done) != 1) result <- "" else result <- tclvalue(result)
    tkdestroy(tt)
  return(result)
}

x <- EntryBox(label = 'Enter a string'); x

推荐阅读