0

私はシャイニーにかなり慣れていないので、次の問題に対処しています。シャイニーでアクションボタンを押すと、複数の計算を実行したいと考えています。私は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')`

今、私が望むのは、server-observeEvent で output$result が作成される場所です。追加のタスクを実行したいと思います。たとえば、変数 a <- 12 を割り当て、B4 <- input$ID1*inputID2 などを計算します。

これは私が想像するのは難しいことではありません..しかし、私はそこにたどり着いていません.

敬具、

ピーター

4

1 に答える 1

0

分離を使用できます。次の例を参照してください。

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)
于 2016-09-15T10:34:08.600 に答える