Shiny应用中处理readlines控制台交互请求的解决方案咨询

方案a：在Shiny界面中直接响应该提示 #

通过临时替换readline()函数的行为，让它读取Shiny界面上用户选择的响应，替代控制台输入。核心思路是在调用目标函数前，把base::readline替换为返回UI输入值的函数，调用完成后恢复原函数，避免影响其他代码逻辑。

示例代码：

library(shiny)

# 模拟你使用的带readline的目标函数
target_function <- function(input_data) {
  response <- readline("请输入y/n: ")
  if (tolower(response) == "y") {
    return(paste("处理完成，输入数据：", input_data))
  } else {
    return("取消操作")
  }
}

ui <- fluidPage(
  textInput("data_input", "输入数据"),
  radioButtons("yn_choice", "确认操作", choices = c("确认(y)", "取消(n)"), 
               selected = "确认(y)", inline = TRUE),
  actionButton("execute", "执行函数"),
  verbatimTextOutput("output_result")
)

server <- function(input, output, session) {
  observeEvent(input$execute, {
    # 提取UI中的选择，转换为y/n格式
    response <- ifelse(input$yn_choice == "确认(y)", "y", "n")
    
    # 临时替换readline函数
    original_readline <- base::readline
    base::readline <- function(...) response
    
    # 调用目标函数
    result <- target_function(input$data_input)
    
    # 恢复原readline函数
    base::readline <- original_readline
    
    output$output_result <- renderPrint(result)
  })
}

shinyApp(ui, server)

这个方案让用户在Shiny界面内完成选择，完全避免控制台交互，同时保留函数原有的逻辑。

方案b：预设响应值自动传入函数 #

如果不需要用户手动选择，可以通过重定向标准输入流，让readline()直接读取预设的响应值。使用textConnection创建包含预设值的输入源，临时替换stdin()即可实现自动响应。

示例代码：

library(shiny)

# 模拟目标函数
target_function <- function(input_data) {
  response <- readline("请输入y/n: ")
  if (tolower(response) == "y") {
    return(paste("处理完成，输入数据：", input_data))
  } else {
    return("取消操作")
  }
}

ui <- fluidPage(
  textInput("data_input", "输入数据"),
  selectInput("preset_resp", "预设自动响应", choices = c("自动确认(y)", "自动取消(n)"), 
              selected = "自动确认(y)"),
  actionButton("run_func", "执行函数"),
  verbatimTextOutput("result")
)

server <- function(input, output, session) {
  observeEvent(input$run_func, {
    # 转换预设选择为y/n格式
    preset_val <- ifelse(input$preset_resp == "自动确认(y)", "y", "n")
    
    # 创建文本连接作为输入源
    input_con <- textConnection(preset_val)
    # 保存原标准输入，替换为新连接
    original_stdin <- stdin()
    assign("stdin", input_con, envir = baseenv())
    
    # 调用目标函数
    result <- target_function(input$data_input)
    
    # 恢复原标准输入并关闭连接，避免资源泄漏
    assign("stdin", original_stdin, envir = baseenv())
    close(input_con)
    
    output$result <- renderPrint(result)
  })
}

shinyApp(ui, server)

这个方案适合需要自动化处理的场景，无需用户交互，直接用预设值完成函数内的readline请求。

内容的提问来源于stack exchange，提问作者Hanna Kurovska