readLine（prompt =）在闪亮的

Question

可以readLines（prompt = ...）以闪亮的方式使用吗？ 假设如下：在服务器中，在renderPrint组件中我将使用shinijs :: display（“takeInput”。这个GUI组件从用户获取输入，因此我将通过函数调用将输入传递给函数。之后，该函数调用另一个函数并将输入发送到该函数。输入将由第二个函数接收和测试。测试结果将返回到第一个函数，将其返回给服务器。请参见下文：

还有其他办法吗？一个更简单的方法？我没有看到通过在第二个函数中使用readLine（promp = ..）来实现它的方法。我不明白这是如何与闪亮兼容的。

ui{
 selectInput("xxxxx")
verbatimTextOutput(
}

source(program containing functionName)
source(program containing another function name)

functionName <- function(parameters, takeInput){
functionName2 <-  anotherFunctionName(parameters, takeInput)
functionName2 <- valueOfFunctionName2
if(functionName2 == xx){
dosomthing 
return the value to the server
list(functionName2 = functionName2)
}


anotherFunctionName<- function(parameters, takeInput){

if(takeInput == something){
 return the value of anotherFunctionName to functionName which will return it to the server
 valueOfFunctionName2
}

}