readLine (подсказка =) использовать в блестящем

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
}

}