使用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())})