如何在R Shiny的app.R中运行Summ.R脚本并解决文件连接报错问题

首先，你遇到的这个报错核心原因是外部脚本的路径不匹配，Shiny找不到你指定的Summ.R文件。下面是一步步的解决方法：

一、快速修复路径问题 #

1. 确认文件位置
   先检查你的app.R和Summ.R的存放位置：

   • 如果两个文件在同一个文件夹里，把source的路径改成：

     source('Summ.R', local = TRUE)
     

   • 如果Summ.R确实在app.R所在目录的子文件夹R中，先确认这个R文件夹真的存在，并且没有拼写错误（注意：Linux/macOS系统下路径大小写敏感）。

2. 验证当前工作目录
   可以在R控制台里运行getwd()，看看当前工作目录是不是app.R所在的文件夹。如果不是，要么把工作目录切换到该文件夹，要么用绝对路径来source（比如Windows系统下source('C:/Users/xxx/ShinyProject/Summ.R', local = TRUE)，注意用/或者转义的\\）。

二、替代方案：直接整合代码到Server #

如果路径问题折腾起来麻烦，你可以直接把Summ.R里创建数据框的代码放到Shiny的server函数里，这样就不用依赖外部脚本了，修改后的app.R如下：

library(shiny)
shinyApp(
  fluidPage(
    dataTableOutput("data")),
  function(input, output, session){
    # 直接把Summ.R的代码放到这里
    data <- data.frame(
      SSN = c(204,401,101,666,777),
      Name=c("Blossum","Buttercup","Bubbles","MojoJojo","Professor"),
      Age = c(7,8,6,43,56),
      Gender = c(0,0,0,1,1)
    )
    output$data <- renderDataTable(data)
  }
)

三、整合常规R脚本到Shiny的学习资源 #

这里分享几个实用的学习方向，都是官方或权威的内容：

• Shiny官方教程的「Reactive Programming」章节：里面详细讲解了如何在Shiny的server环境中调用外部脚本，以及local = TRUE参数的作用，帮你理解脚本运行的环境上下文。
• 《Mastering Shiny》书籍的「Project Structure」部分：这本书是Shiny开发者的必读资料，其中关于项目文件组织的内容会教你如何规范存放辅助脚本、数据文件，从根源避免路径类错误。
• RStudio Shiny Cheat Sheet：这份速查表可以快速查阅source函数的用法、环境管理的关键要点，适合日常开发时快速参考。

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