项目根目录运行Shiny示例应用时出现closure对象不可子集化错误

这个问题不是文件损坏，核心原因是项目根目录的R运行环境存在命名冲突或自动加载干扰，导致内置函数被覆盖，具体排查和解决步骤如下：

• 排查根目录自动加载的隐藏文件
  R启动时会自动读取项目根目录下的.RData（保存历史环境变量）和.Rprofile（启动脚本）。如果这些文件里定义了名为data的对象，就会覆盖R内置的data()函数（该函数属于closure类型，无法用$取子集，因此触发报错）。
  解决：临时将.RData、.Rprofile移到项目外，重启R后再运行Shiny应用。

• 避免脚本命名冲突
  检查根目录下是否存在和R内置函数/对象同名的脚本，比如data.R、grid.R这类文件。当工作目录为根目录时，R可能会优先加载这些文件中的对象，引发冲突。
  解决：重命名这类容易冲突的脚本文件，或者将它们移到子文件夹中。

• 清空运行环境再测试
  运行Shiny应用前，执行rm(list = ls())清空当前环境，然后重启R会话（不要加载历史数据），再单独运行Shiny应用代码。这样可以排除环境中残留的变量干扰。

• 验证应用代码独立性
  你提供的Shiny代码是官方示例，本身没有问题。可以在根目录新建空白R脚本，仅复制粘贴这段示例代码运行：

  library(shiny)
  
  # Define UI for application that draws a histogram
  ui <- fluidPage(
      titlePanel("Old Faithful Geyser Data"),
      sidebarLayout(
          sidebarPanel(
              sliderInput("bins",
                          "Number of bins:",
                          min = 1,
                          max = 50,
                          value = 30)
          ),
          mainPanel(
              plotOutput("distPlot")
          )
      )
  )
  
  # Define server logic required to draw a histogram
  server <- function(input, output) {
      output$distPlot <- renderPlot({
          x    <- faithful[, 2]
          bins <- seq(min(x), max(x), length.out = input$bins + 1)
          hist(x, breaks = bins, col = 'darkgray', border = 'white',
               xlab = 'Waiting time to next eruption (in mins)',
               main = 'Histogram of waiting times')
      })
  }
  
  shinyApp(ui = ui, server = server)
  

  如果这样运行正常，说明原来的脚本可能和根目录下其他文件存在隐性关联；如果仍报错，继续排查根目录的环境配置。

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