Shiny应用无法正常发布且无法向SQL表追加数据求助

看起来你在开发Shiny应用时遇到了两个核心问题：应用无法正常发布和数据无法追加到SQL Server表。我帮你梳理了代码里的几个关键问题，并给出对应的修复方案：

1. 数据库连接错误（最关键问题） #

你现在用RSQLite::SQLite()来连接SQL Server，这是完全错误的——RSQLite是专门用于连接SQLite本地数据库的，要连接SQL Server必须用odbc包的驱动：

修复后的连接代码： #

# 在server函数内部建立连接（不要在全局环境）
con <- dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "XXXXXx",  # 替换为你的SQL Server地址，比如 "localhost\\SQLEXPRESS"
  Database = "XXXXXX",
  Port = 1433,
  # 如果是SQL认证，需要加下面两行
  # UID = "your_username",
  # PWD = "your_password"
)

注意：确保你的机器上已经安装了SQL Server ODBC驱动，并且Server地址格式正确（如果是本地实例要加\\实例名）。

2. 初始表创建的位置错误 #

你在代码最开头直接调用dbWriteTable(con, ...)，但此时con还没有建立，会直接抛出连接错误。应该把表创建逻辑放到server内部，并且先检查表是否存在：

修复后的表初始化代码： #

shinyServer(function(input, output) {
  con <- dbConnect(odbc::odbc(), ...)  # 上面的正确连接代码
  
  # 初始化表（仅当表不存在时创建）
  if (!dbExistsTable(con, "contracting_assistant")) {
    df <- data.frame(
      ID = character(),
      file = character(),
      c = character(),
      d = integer(),
      e = integer(),
      date = as.character(),
      stringsAsFactors = FALSE
    )
    dbWriteTable(con, "contracting_assistant", df, overwrite = FALSE)
  }
  
  # 剩下的server逻辑...
})

3. 数据类型不匹配问题 #

你的表中d和e是integer类型，但UI用的是textInput，用户输入的字符串无法直接转为整数，会导致插入失败。需要：

• 把textInput换成numericInput（确保输入是数字）
• 在保存数据时强制转换类型

修复后的formData和appendData： #

# 修改EntryForm中的输入控件
entry_form<-function(button_id){
  showModal(
    modalDialog(
      div(id="entry_form"),
      tags$head(tags$style(".modal-dialog{width:600px}")),  # 修正拼写：model-dialog → modal-dialog
      fluidPage(
        fluidRow(
          splitLayout(
            cellWidths = c("150px","150px","150px","100px"),  # 匹配4个元素的宽度
            cellArgs = list(style = "vertical-align:top"),
            textInput("c",label="C",placeholder = ""),
            numericInput("d",label="D",value = NA, min = 0),  # 换成numericInput
            numericInput("e",label="E",value = NA, min = 0),
            actionButton(button_id,"Submit")
          )
        ),
        easyClose=TRUE
      )
    )
  )
}

# 修复formData的类型转换
formData<-reactive({
  req(input$c, input$d, input$e)  # 确保输入不为空
  data.frame(
    ID = UUIDgenerate(),
    file = str_replace(input$file_name,".pdf",""),
    c = input$c,
    d = as.integer(input$d),  # 强制转为整数
    e = as.integer(input$e),
    date = as.character(format(Sys.time(),format="%Y-%m-%d %H:%M:%S")),
    stringsAsFactors = FALSE
  )
})

# 简化appendData（直接用dbWriteTable更可靠）
appendData <- function(data){
  dbWriteTable(con, "contracting_assistant", data, append = TRUE, row.names = FALSE)
}

4. 应用发布相关问题 #

如果应用无法发布，常见原因有：

• 依赖包缺失：确保所有用到的包（比如odbc、shinyjs等）都在发布环境中安装，建议在代码开头用library()替代require()，这样缺失包时会直接报错提示。
• 数据库连接权限：发布服务器需要能访问你的SQL Server，检查防火墙规则、SQL Server的远程连接设置，以及认证方式（如果是Windows认证，发布服务器需要用有权限的账户运行Shiny服务）。
• 文件路径问题：list.files("www/",pattern = "pdf$")在发布环境中可能找不到www文件夹，确保www目录和app.R在同一层级，或者用绝对路径（发布时注意路径适配）。

5. 其他小问题修复 #

• 模态框的CSS拼写错误：.model-dialog → .modal-dialog
• 移除全局环境中的df变量，避免干扰server内的reactive对象
• 在observeEvent(input$submit)中添加req(formData())，确保数据有效再插入

最终server函数的核心逻辑： #

shinyServer(function(input, output) {
  # 建立数据库连接
  con <- dbConnect(
    odbc::odbc(),
    Driver = "SQL Server",
    Server = "XXXXXx",
    Database = "XXXXXX",
    Port = 1433
    # UID = "your_user", PWD = "your_pwd"  # 如果需要SQL认证
  )
  
  # 初始化表
  if (!dbExistsTable(con, "contracting_assistant")) {
    init_df <- data.frame(
      ID = character(),
      file = character(),
      c = character(),
      d = integer(),
      e = integer(),
      date = as.character(),
      stringsAsFactors = FALSE
    )
    dbWriteTable(con, "contracting_assistant", init_df, overwrite = FALSE)
  }
  
  # 读取数据
  df <- reactive({
    input$submit
    input$submit_edit
    dbReadTable(con, "contracting_assistant")
  })
  
  # 模态表单
  entry_form<-function(button_id){
    showModal(
      modalDialog(
        div(id="entry_form"),
        tags$head(tags$style(".modal-dialog{width:600px}")),
        fluidPage(
          fluidRow(
            splitLayout(
              cellWidths = c("150px","150px","150px","100px"),
              cellArgs = list(style = "vertical-align:top"),
              textInput("c",label="C",placeholder = ""),
              numericInput("d",label="D",value = NA, min = 0),
              numericInput("e",label="E",value = NA, min = 0),
              actionButton(button_id,"Submit")
            )
          ),
          easyClose=TRUE
        )
      )
    )
  }
  
  # 表单数据
  formData<-reactive({
    req(input$c, input$d, input$e)
    data.frame(
      ID = UUIDgenerate(),
      file = str_replace(input$file_name,".pdf",""),
      c = input$c,
      d = as.integer(input$d),
      e = as.integer(input$e),
      date = as.character(format(Sys.time(),format="%Y-%m-%d %H:%M:%S")),
      stringsAsFactors = FALSE
    )
  })
  
  # 追加数据
  appendData <- function(data){
    dbWriteTable(con, "contracting_assistant", data, append = TRUE, row.names = FALSE)
  }
  
  # 添加按钮逻辑
  observeEvent(input$add_button,priority = 20,{
    entry_form("submit")
  })
  
  # 提交逻辑
  observeEvent(input$submit,priority = 20,{
    appendData(formData())
    shinyjs::reset("entry_form")
    removeModal()
  })
  
  # 渲染表格
  output$Main_table<-DT::renderDataTable({
    table<-df() %>% select(-ID)
    names(table)<-c("file","c","d","e","date")
    datatable(table,rownames = FALSE, options=list(searching =FALSE, lengthChange=FALSE) )
  })
  
  # 关闭连接（可选，避免连接泄漏）
  onStop(function() {
    dbDisconnect(con)
  })
})

按照这些修改，应该能解决数据追加和发布的核心问题。如果发布时还有问题，可以检查Shiny Server的日志（比如/var/log/shiny-server/目录下的日志文件），里面会有具体的错误信息，帮助定位问题。

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