编写脚本以返回针对闪亮应用的输入值的计算

Question

我和我的团队基于对欧洲sme的财务研究，正在构建一个出色的应用。该应用程序包括根据用户输入进行的一系列计算，并且代码变得越来越大。

我们是新手，但是正在寻找一种将计算结果来源到外部脚本的方法。我们已经使用脚本来进行数据导入和功能，但简而言之，我们正在寻找的东西是这样的：

    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
})
}

有人对此事有想法吗？