重装RStudio与R后Shiny组件（Modals、DT等）失效求助

旧Windows 11电脑上开发的Shiny应用运行正常，但在两台新笔记本（Windows 10/11）上安装最新版R（4.3.1）、RStudio及依赖包后，出现以下异常：

• 无报错警告，但Modals不弹出、DT表格不显示
• UI响应（如updateSelectInput）及普通表格渲染均失效
• 进一步排查发现server端代码完全不执行（print无输出），在app定义后执行print会报错提示未返回shiny.appobj对象

旧电脑环境：R 4.2.2、Shiny 1.7.4，已尝试安装Java、rJava、shinyjs，降级Shiny至1.7.4仍无效。

相关代码示例 #

Modal触发代码

observeEvent(input$uploadData, {
  showModal(
    modalDialog(
      size = "l",
      title = "Upload data",
      easyClose = FALSE,
      fileInput(
        inputId = "Files",
        label = "File:",
        accept = c(".csv", ".xlsx", ".xls"),
        multiple = TRUE
      ),            
      footer = tagList(
        modalButton("Cancel"),
        actionButton(
          inputId = "addData",
          label = "Add Data")
      )
    )
  )
})

DT表格UI代码

fluidRow(
  DT::dataTableOutput("Data"),
  style = "overflow-y: scroll; overflow-x: scroll;"
)

DT表格server端代码

DataTable  <- reactiveVal(dfData) 

output$Data <- DT::renderDT({
      data.table(DataTable())
    })

1. 修正App定义结构
   报错“未返回shiny.appobj对象”是核心问题，说明App未正确返回Shiny应用对象：

   • 单文件App必须确保最后一行是shinyApp(ui = ui, server = server)，不能在这之后添加print等非返回语句
   • 多文件结构（ui.R/server.R）中，server.R的所有逻辑必须放在server函数内部，不能有顶级执行代码

2. 同步依赖包版本
   仅降级Shiny可能不够，其他依赖包（如DT、shinyjs）的新版本可能与旧版Shiny存在兼容问题：

   • 在旧电脑执行sessionInfo()导出所有包的版本列表
   • 在新电脑用install.packages(c("包名1", "包名2"), version="对应版本号", repos="https://cran.r-project.org")安装匹配版本，重点同步DT包版本

3. 排查RStudio运行配置

   • 打开Tools > Global Options > Shiny，确认“Run Shiny applications using”设置为“Automatic”或“RStudio Viewer”，避免选“External browser”（部分浏览器可能存在JS加载异常）
   • 直接在R控制台执行runApp("你的App路径")启动，排除RStudio的环境干扰

4. 清理全局环境冲突

   • 新电脑全局环境可能存在与App变量重名的对象（如dfData、DataTable），启动App前执行rm(list=ls())清空全局环境
   • 检查.Rprofile文件，移除自动加载的干扰性包或代码

5. 验证基础环境可用性
   运行极简测试App确认环境本身正常：

   ui <- fluidPage(
     actionButton("show", "Show Modal"),
     DT::dataTableOutput("test")
   )
   server <- function(input, output, session) {
     observeEvent(input$show, {
       showModal(modalDialog("Test Modal"))
     })
     output$test <- DT::renderDT(iris)
     print("Server code executed")
   }
   shinyApp(ui, server)
   

   若测试App正常，说明原App存在代码逻辑或变量冲突；若仍异常，需检查R安装完整性或系统权限

6. 检查系统权限限制

   • 临时关闭防火墙或杀毒软件，排除端口通信被拦截的可能
   • 确保RStudio拥有App所在文件夹的读写权限

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