R Shiny首个应用无法读取CSV、运行报错Object Cake.input不存在，求排查指引

核心错误根因 #

• 作用域不匹配触发连锁报错
  你在控制台测试Function1/Function2时，A.table、B.table、C.table是存放在R全局环境中的，函数运行时可以通过环境查找路径找到这些依赖对象。但你把读CSV、加载.RData的逻辑直接写在server()函数内部，这些代码生成的对象只会存放在每个用户会话的独立执行环境里。全局定义的Function1根本无法访问会话环境内的对象，导致Function1运行时直接报错中断，后续代码无法完成Cake.input的赋值，最终触发Object Cake.input does not exist的报错。
• RStudio环境面板为空属于正常表现
  RStudio的环境面板仅展示全局环境中的对象，server()函数内部生成的所有变量都属于独立的会话执行环境，永远不会显示在全局面板中。你之前“环境面板为空=没有读取到CSV”的判断存在偏差，这不是数据加载失败的证据。
• 初始化逻辑放置位置不合理
  你把工作路径设置、文件读取的代码写在server()内部，会导致每个用户打开应用时都重复执行一遍路径判断、文件加载的操作，既浪费资源，也容易因为运行环境的路径权限差异出现读文件失败。

具体修正操作 #

• 把所有一次性运行的初始化代码（设置工作路径、读CSV/加载.RData、定义Function1/Function2）全部移到server函数的外部，仅在应用启动时执行一次：

  library(shiny)
  
  # 全局初始化逻辑，应用启动时仅运行一次
  setwd("/home/tcollar/Project")
  if (file.exists(".RData")){
    load(".RData")
  } else {
    A.table <- read.csv(file = "/home/tcollar/CSV/CakeMix.csv")
    B.table <- read.csv(file = "/home/tcollar/CSV/Sugar.csv")
    C.table <- read.csv(file = "/home/tcollar/CSV/Ratio.csv")
    save(A.table, B.table, C.table, file = ".RData")
  }
  # 确保Function1、Function2和你控制台测试时一致，在全局环境定义
  

• 移除server()内部重复的初始化代码，仅保留响应式输出逻辑：

  server <- function(input, output) {
    output$inputA <- renderPrint({input$CakeMix})
    output$inputB <- renderPrint({input$Sugar})
    output$inputC <- renderPrint({input$Ratio})
  
    output$TheRecipe <- renderTable({ 
      if (input$Sugar != "None") {
        Cake.input <- Function1(input$CakeMix, input$Sugar, input$Ratio)
      } else {
        Cake.input <- Function1(input$CakeMix)
      }
      Cake.recipe <- Function2(Cake.input)
    }) 
  }
  

• 后续如果需要部署应用到远程服务器，去掉依赖setwd()的路径设置，所有文件路径使用绝对路径，避免不同运行环境下的路径不匹配问题。你之前每次运行前删除.RData的操作逻辑完全正确，不会触发问题。

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