R 源代码脚本以返回对应用程序输入值的计算

我和我的团队正在基于对欧洲中小企业的金融研究开发一款闪亮的应用程序。该应用程序包括对用户输入的一系列计算，代码变得相当大

我们对shiny还不熟悉，但正在寻找一种将计算源代码转换为外部脚本的方法。我们已经使用脚本进行数据导入和函数，但简而言之，我们正在寻找的是类似以下内容：

    script_add:add <- function(x,y){ x + y } 
    ui <- fluidPage(
    textInput("user_x"),
    textInput("user_y")
    verbatimTextOutpu(outputId = "result")     
)

    Server <- function(input,output){
    #assume script is on the working folder
    results <- source(file = "script_add", x = input$user_x, y = "user_y")

#renders results    
output$result <- renderPrint({
results
})
}

---

script\u add:add您可以在外部文件中放置函数并对其进行源代码生成，请注意，部署应用程序时，函数源文件必须与服务器一起上载，我们已经使用source（）从外部定义了一些函数。我们最终决定在每个脚本上定义更复杂的函数，以减少应用程序ui和服务器文件上的主代码。谢谢你的帮助