Shiny应用输入异常及GitHub依赖包ToxicR部署失败求助

问题1：本地运行无处理反馈、持续等待 #

• 添加实时进度提示：在触发建模的代码块外层包裹withProgress()函数，给用户明确的进度反馈，避免误以为程序无响应。示例代码：

observeEvent(input$run_model, {
  req(input$csv_file)
  withProgress(message = "建模进行中", value = 0, {
    # 读取数据步骤
    incProgress(0.3, detail = "读取并校验数据")
    df <- read.csv(input$csv_file$datapath)
    
    # 参数校验步骤
    incProgress(0.6, detail = "验证输入参数")
    # 这里加入参数合法性检查逻辑
    
    # 建模运算步骤
    incProgress(0.9, detail = "执行剂量反应建模")
    model_result <- your_model_function(df, input$params)
    
    incProgress(1, detail = "完成")
    # 后续结果渲染逻辑
  })
})

• 排查代码阻塞点：在数据读取、参数处理、建模运算等关键步骤后添加print()或cat()语句，输出到R控制台，定位具体卡在哪个环节。比如：

df <- read.csv(input$csv_file$datapath)
print(paste("数据读取完成，维度：", nrow(df), "x", ncol(df)))

• 前置输入合法性校验：在执行建模前，检查上传文件的列名、数据类型是否符合要求，若不符合立即弹出错误通知终止流程，避免无效运算。示例：

observeEvent(input$run_model, {
  req(input$csv_file)
  df <- read.csv(input$csv_file$datapath)
  required_cols <- c("dose", "response") # 根据你的需求调整
  if (!all(required_cols %in% colnames(df))) {
    showNotification(
      paste("CSV文件缺失必要列：", paste(setdiff(required_cols, colnames(df)), collapse = ", ")),
      type = "error", duration = 10
    )
    return()
  }
  # 后续建模逻辑
})

问题2：shinyapps.io部署时ToxicR包安装失败、提示“Quarto not found” #

• 修复GitHub包安装逻辑：确保在应用的global.R（或app.R开头）中使用remotes::install_github()正确安装ToxicR，同时指定完整仓库路径并启用依赖安装。示例：

# global.R 中的包加载逻辑
if (!requireNamespace("ToxicR", quietly = TRUE)) {
  remotes::install_github("仓库用户名/ToxicR", dependencies = TRUE, upgrade = "never")
}
library(ToxicR)

注意：替换仓库用户名为实际的GitHub用户名，同时确认仓库地址无误。

• 解决Quarto缺失问题：
  • 若应用未使用Quarto功能：全局搜索代码中是否包含quarto::开头的函数，移除所有相关代码即可消除报错。
  • 若必须使用Quarto：在部署前确保本地环境已安装Quarto，且在应用的DESCRIPTION文件中添加Config/Needs/quarto: true，部署时shinyapps.io会自动安装Quarto环境。

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