Question

在一个Shiny应用程序中，我试图通过动作按钮或会话打开时触发eventReactive。我使用session$clientData尝试了以下代码，但它不起作用。还试图与toggleModal中的shinyBS玩，但仍然没有机会。任何帮助非常感谢。谢谢！

library(shiny)

ui <- fluidPage(
  actionButton("go", "Go"),
  numericInput("n", "n", 50),
  plotOutput("plot")
)

server <- function(session, input, output) {

  randomVals <- eventReactive({input$go
  session$clientData}, {
    runif(input$n)
  })

  output$plot <- renderPlot({
    hist(randomVals())
  })
}

shinyApp(ui, server)

Answer 1

实际上想通了这个。在我上面的问题中，我试图简化我的代码，这样做实际上修复了问题......

randomVals <- eventReactive({input$go
  session$clientData}

按预期工作（即，即使没有点击，也可以在打开会话时获得图表），而

randomVals <- eventReactive({session$clientData
  input$go}

不起作用（即你需要点击去获取你的第一张图表所以我认为事件{}中的顺序很重要，我不知道

会话打开时触发R actionbutton事件

1 个答案: