使用R闪亮的外部功能

Question

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

错误消息：“不能强迫式‘封闭’类型为‘字符’的矢量”

callfunction = function(one,two) 
{ 
    #write.csv(buildpath, file = "test.csv") 
    res= paste(one,two,sep = "") 
    return(res) 
} 


library(shiny) 

ui = fluidPage(

    titlePanel("Mind map", windowTitle = "Mind map"), 

    textInput(inputId = "UserName", 
      label = "Enter your Username"), 

    textInput(inputId = "Contact1", 
      label = "Contact 1"), 

    #Submit button 
    actionButton("SubmitAct", label = "Go!!"), 

    textOutput("texty") 
) 

server = function(input, output){ 


    P1 <- eventReactive(input$SubmitAct, { 
    input$UserName 
    }) 

    P2 <- eventReactive(input$SubmitAct, { 
     input$Contact1 
    }) 

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

shinyApp(ui=ui, server=server) 

Answer 1

当你拿到“关闭”的消息就是这样的地方，你在呼唤一个反应功能标志就好像它是一个变量。

在这种情况下，你只需要一条线更改为：

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