在R中使用外部函数

我想从Shining服务器模块调用一个函数。我的实际函数很复杂，所以我在这里举一个简单的例子。我想从服务器部分调用“callfunction”来进行计算

错误消息：“无法将“closure”类型强制为“character”类型的向量”

调用函数=函数（一，二） { #write.csv（buildpath，file=“test.csv”） res=粘贴（一，二，sep=”“） 返回（res） } 图书馆（闪亮） ui=fluidPage( titlePanel（“思维导图”，windowTitle=“思维导图”）， textInput（inputId=“UserName”， label=“输入您的用户名”）， textInput（inputId=“Contact1”， label=“联系人1”）， #提交按钮 操作按钮（“submit”，label=“Go！！”， textOutput（“texty”） ) 服务器=功能（输入、输出）{ P1每当你收到“闭包”消息时，这是一个信号，表明你在某个地方调用一个反应函数，好像它是一个变量

在这种情况下，只需将一行更改为：

output$texty = renderText({callfunction(P1(),P2())})

---

请以文本形式而不是jpg形式发布代码。

output$texty = renderText({callfunction(P1(),P2())})