Shiny应用中使用emayili发送邮件触发致命错误致会话终止，R脚本运行正常

我之前也碰到过一模一样的情况——单独跑R脚本用emayili发邮件完全顺畅，但把相同逻辑挪到Shiny里就直接触发致命错误，导致RStudio会话直接崩掉。折腾了好一阵，总结出几个可行的解决思路，分享给你：

1. 先确认Shiny会话能正确读取环境变量 #

普通R会话和Shiny运行时的环境上下文可能不一样，有时候环境变量在Shiny里没法被正确加载。你可以先在Shiny的server函数里加几行打印代码，验证配置是否能获取到：

server <- function(input, output, session) {
  # 打印环境变量确认加载状态
  cat("SMTP服务器：", Sys.getenv("SMTP_SERVER"), "\n")
  cat("SMTP端口：", Sys.getenv("SMTP_PORT"), "\n")
  # ... 其他业务代码
}

如果输出是空的，建议把这些环境变量添加到.Renviron文件里（可以用usethis::edit_r_environ()快速打开编辑），保存后重启RStudio，确保Shiny能读取到这些配置。

2. 用异步处理避免阻塞Shiny主线程 #

Shiny是单线程运行的，如果邮件发送操作耗时较长或者底层有阻塞逻辑，很容易导致会话崩溃。可以用future和promises包把邮件发送放到后台异步执行：

library(shiny)
library(httr)
library(emayili)
library(stringr)
library(future)
library(promises)

plan(multisession) # 开启多会话异步模式

ui <- fluidPage(
  actionButton("send_btn", "发送测试邮件")
)

server <- function(input, output, session) {
  observeEvent(input$send_btn, {
    future({
      # 异步执行邮件发送逻辑
      smtp_server <- Sys.getenv("SMTP_SERVER")
      smtp_port <- Sys.getenv("SMTP_PORT")
      smtp_username <- Sys.getenv("SMTP_USERNAME")
      
      IP <- content(GET("https://api.ipify.org?format=json"))$ip
      
      smtp <- server(
        host = smtp_server,
        port = smtp_port,
        username = smtp_username,
        password = Sys.getenv("SMTP_PASSWORD"),
        max_times = 1,
        use_ssl = TRUE # 显式指定SSL加密，避免环境差异导致的连接问题
      )
      
      envelope(
        to = "myemail@yahoo.com",
        from = smtp_username,
        subject = str_c("Shiny测试邮件！IP：", IP, " 时间：", Sys.time()),
        text = "这是来自Shiny应用的邮件~"
      ) |> smtp()
    }) %...>% {
      # 发送成功的提示
      showNotification("邮件发送成功！", type = "message", duration = 3)
    } %...!% {
      # 捕获错误并提示
      err <- .
      showNotification(paste("发送失败：", err$message), type = "error", duration = 5)
    }
  })
}

shinyApp(ui, server)

3. 给邮件逻辑加错误捕获，避免会话直接终止 #

就算用了异步，也建议用tryCatch包裹邮件发送代码，把错误拦截下来并输出日志，而不是让会话直接崩溃：

# 在异步逻辑里嵌套错误捕获
future({
  tryCatch({
    # 邮件发送核心代码...
  }, error = function(e) {
    message("邮件发送出错详情：", e$message)
    stop(e) # 把错误传递给后续的错误处理流程
  })
})

4. 检查SMTP连接的细节配置 #

有时候Shiny环境下的网络配置和普通R会话不同，比如SSL/TLS的支持情况。可以尝试显式指定use_ssl参数，或者切换端口（比如从587换成465，或者反过来），确保SMTP连接的加密方式和服务器要求匹配。

备注：内容来源于stack exchange，提问作者Peter