如何在交互式Rmd中实现自定义R函数的参数交互式输入？

完全可以不用Python，仅依靠R和R Markdown的内置交互能力（基于Shiny）就能实现需求。以下是具体实现方案：

核心配置与步骤 #

1. 启用交互式运行环境
   在R Markdown的YAML头部设置runtime: shiny，这是开启交互功能的前提：

   ---
   title: "交互式差异分析工具"
   output: html_document
   runtime: shiny
   ---
   

2. 添加参数输入控件
   根据四个参数的实际类型（示例假设model_in为文件输入，contr_in为文本输入，其余为标题类输入），添加对应的Shiny输入组件：

   # 参数输入侧边栏
   sidebarPanel(
     fileInput("model_in", "选择模型文件:", accept = c(".rds", ".rda")),
     textInput("contr_in", "输入对比条件:"),
     textInput("graph_title", "输入图形标题:"),
     textInput("txt_title", "输入文本文件标题:"),
     actionButton("run_btn", "执行分析")
   )
   

3. 绑定交互执行逻辑
   点击执行按钮后调用run_diff函数，同时展示生成的表格、图形，并提供文本文件下载入口：

   # 结果展示主区域
   mainPanel(
     tableOutput("result_table"),
     plotOutput("result_plot"),
     downloadButton("download_txt", "下载结果文本")
   )
   
   # 点击按钮触发执行
   observeEvent(input$run_btn, {
     # 读取输入参数
     model <- readRDS(input$model_in$datapath)
     contr <- input$contr_in
     g_title <- input$graph_title
     t_title <- input$txt_title
   
     # 调用自定义函数
     result <- run_diff(model_in = model, contr_in = contr, graph_title = g_title, txt_title = t_title)
   
     # 渲染表格（需确保run_diff返回表格数据）
     output$result_table <- renderTable({
       result$table_data
     })
   
     # 渲染图形（需确保run_diff返回图形对象）
     output$result_plot <- renderPlot({
       result$plot_obj
     })
   
     # 设置文本文件下载逻辑
     output$download_txt <- downloadHandler(
       filename = paste0(t_title, ".txt"),
       content = function(file) {
         writeLines(result$text_content, file)
       }
     )
   })
   

注意事项 #

• 需调整run_diff函数，使其返回包含表格数据、图形对象、文本内容的列表，方便交互逻辑调用展示；
• 如果model_in不是文件类型，可将fileInput替换为textInput或selectInput等匹配参数类型的控件；
• 导出HTML后，用户可直接在浏览器中完成参数输入、执行操作并查看/下载结果。

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