actioButtonで複数のアクションを実行するShiny

Question

私はShinyには新しく、次の問題に対処しています。光り輝くactionButtonを押すと、複数の計算が必要になります。私はobserveEventのハンドラを使用します。

例：

library(shiny) 
ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(` 

    actionButton("calc","calculate stuff")), 
    mainPanel(
    textOutput("result") 
) 
) 
) 


server <- function(input,output){ 
    observeEvent(input$calc, {output$result <- renderText({"only this is not enough"}) }) 
} 


shinyApp(ui,server')` 

は、今、私が望むものを出力$結果がサーバー・observeEventで行われる場合、私は、追加のタスクを実行したいと思い、変数<割り当てると言っている - 12、計算するB4 < - 入力$ ID1 *入力ID2など

これは私が想像することはできません..しかし、私はそこに着くだけです。

種類について、

ピーター

Answer 1

あなたはこの例を参照して、分離株を使用することができますが：

library(shiny) 
ui <- fluidPage(
    sidebarLayout(
    sidebarPanel( 
     numericInput(inputId = 'x', label = 'Select a value for x', value = 1), 
     actionButton( "calc", "calculate stuff") 
    ), 
    mainPanel(
     textOutput("result") 
    ) 
) 
) 

server <- function(input, output) { 
    output$result <- renderText({ 
    input$calc 
    isolate({ 
     y<- input$x *2 
     paste("The result is:", y) 
    }) 
    }) 
} 
shinyApp(ui, server)