Shiny应用部署至shinyapps.io启动失败求助

问题定位 #

日志核心报错：

Error in value[3L] : app.R did not return a shiny.appobj object.

本地运行正常但部署失败，本质是shinyapps.io的沙箱环境对Shiny应用的结构和依赖要求更严格，即使本地能通过隐式依赖运行，部署时会触发对象返回异常。

分步修复方案 #

1. 显式加载Shiny包 #

取消代码中#library(shiny)的注释，强制显式声明依赖：

library(shiny)

本地环境可能通过其他包（如plotly）间接加载了Shiny，但部署环境需要明确调用。

2. 修正Reactive对象的返回逻辑 #

原代码中直接用filter_df()[,input$x]提取列，在部署环境中可能出现类型解析问题，改用dplyr::pull()明确提取向量：

Xval <- reactive({
  filter_df() %>% pull(input$x)
})

Yval <- reactive({
  filter_df() %>% pull(input$y)
})

color <- reactive({
  filter_df() %>% pull(input$color)
})

size <- reactive({
  if(input$size =='None'){
    rep(0.1, nrow(filter_df())) # 保证长度与过滤后数据一致
  }else{
    filter_df() %>% pull(input$size)
  }
})

注意：当size设为None时，返回的固定值要和数据行数匹配，避免可视化函数报错。

3. 修复类型不匹配问题 #

input$sr是字符型，但df$SR是整数型，过滤时会出现类型不兼容：

• 先把SR选项转为字符型：

SR_opts <- append('All', as.character(unique(df$SR)))

• 过滤时统一转为整数匹配：

filter_df <- reactive({
  if (input$sr == 'All') {
    df
  } else {
    filter(df, SR == as.integer(input$sr))
  }
})

4. 规范ggplot的AES参数 #

原代码在aes()中直接调用reactive对象，存在上下文解析风险，改用tidyeval语法明确引用列名：

output$plotgg <- renderPlot({
  pl <- ggplot(filter_df(), aes(x = !!sym(input$x), y = !!sym(input$y), colour = !!sym(input$color))) +
    geom_point(aes(size = if(input$size == 'None') 0.1 else !!sym(input$size))) +
    theme_minimal()+
    labs(x = input$x, y = input$y)+
    guides(color=guide_legend(title=NULL), size = guide_legend(title = NULL))+
    theme(text = element_text(size = 15))+
    theme(axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)))+
    theme(axis.title.x = element_text(margin = margin(t = 20, r = 0, b = 0, l = 0)))

  if(logsc()[[1]] == 'log10'){pl <- pl + coord_trans(x="log10")}
  if(logsc()[[2]] == 'log10'){pl <- pl + coord_trans(y="log10")}

  pl
}, res = 96)

预验证步骤 #

• 本地重启R会话，清空所有环境变量后运行代码，模拟部署环境的干净状态，排查隐式依赖问题。
• 用renv锁定所有包的版本，确保本地与shinyapps.io环境的包版本一致。

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