在 actioButton Shiny 上执行多项操作

Question

我是 Shiny 的新手，正在处理以下问题，在按下 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')`

现在我想要的是在 server-observeEvent 中生成输出 $result 的地方，我想执行其他任务，比如分配一个变量 a <- 12，计算 B4 <- input$ID1*inputID2等等

我想这并不难..但我就是没有做到。

亲切的问候，

彼得

Answer 1

可以使用isolate，看这个例子：

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)

在 actioButton Shiny 上执行多项操作

Perform multiple actions on actioButton Shiny

events

r

shiny

action-button