r - 获取脚本以返回对闪亮应用程序的输入值的计算

Question

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

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

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

有人对此事有任何想法吗？

标签： rshiny