闪亮的应用程序功能，可提示用户输入并将输入分配给变量

Question

我有一个应用程序，可以动态获取多个.r文件之一，以对数据执行转换。在文件中，我目前有cat和readline命令来显示/提示用户输入并接受用户通过控制台输入。但是，我希望在闪亮的UI中有一个文本输出和文本输入框，其中在文本输出框中显示提示，并且顺序处理暂停，直到用户输入一个值，然后继续进行下一个用户输入。

添加了一个TextInput框，一个TextOutput框和一个操作按钮。在源文件和输入$ variable的文件中添加了Render文本。但是，该代码不会停止执行，并且不会在文本输出框中打印文本，而是等待用户输入输入并按下操作按钮。

Func_OP.AVISIT <- function(){
   observeEvent(input$button2, {
   output$value <- renderText('Enter AVISIT')
 })
# OP.AVISIT  <- readline(prompt="AVISIT is an assigned variable user input 
 expected: ")
 # })
OP.AVISIT  <- input$Variable
return(OP.AVISIT)
}
df$AVISIT  <- Func_OP.AVISIT()

72：observeEventHandler [C：\ DataScience \ Certara \ Project \ CertaraApp / app.R＃195]