R 在工作目录中执行一个文件，并将结果粘贴到文本文件中

我有一个示例应用程序，它在工作目录中创建一个虚拟文本文件。现在我有了另一个R文件（add.R），我需要在其中执行它并将结果粘贴到文本文件中。下面是reprex

用户界面

服务器.R

library(shiny)
source("add.R")


# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  myfileexists <- eventReactive(input$checkme,{
    file.exists("test2.txt")  
    })
  output$greeting <- renderText({
    paste0("Hello, ", input$name, "Does your file exist ?", myfileexists())
  })
  print(getwd())
  file.create("test2.txt")
  })
  

库（闪亮）
来源（“add.R”）
#定义绘制直方图所需的服务器逻辑
shinyServer（功能（输入、输出）{
myfileexists这是在一个不太可复制的环境中选择一个单字母变量名的副作用，当变量名恰好也是一个基本的R函数时，用于
t
Transpose。如果
t
没有定义，也不是函数，我希望
错误：找不到对象“t”
，但是您得到了那个错误。尝试使用另一个函数，如
3+paste
，您将得到错误。总的来说，这告诉我您有输入错误；您没有管理变量范围；或者您希望使用非文字编程（符号/非标准内容）。我同意您的看法。总的来说，我的问题不同：）实际上，有一种方法可以在工作目录中执行文件，并将结果粘贴到文本文件中。定义“执行文件”。您可以随时写入文本文件。您是说
source
文件吗？
library(shiny)
source("add.R")


# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  myfileexists <- eventReactive(input$checkme,{
    file.exists("test2.txt")  
    })
  output$greeting <- renderText({
    paste0("Hello, ", input$name, "Does your file exist ?", myfileexists())
  })
  print(getwd())
  file.create("test2.txt")
  })
  

a <- 3 + 4
b <- 3 + t