Question

在我的下面的例子中，一旦在RStudio中运行，点击＆＃34;播放＆＃34;滑块上的按钮，移位的行数逐渐增加。但是通过暂停，然后将数据集名称更改为iris，然后单击按钮＆＃34;显示＆＃34;并重新点击＆＃34;播放＆＃34;，不会出现相同的行数动画增加...为什么？以及我如何调整我的代码来这样做...即。让动画与不同的数据集一起发生？

以下示例部分改编自eventReactive()功能

require(shiny)
if (interactive()) {
  ui <- fluidPage(
    column(4,
           sliderInput('x',label='Num Rows',min=2,max=30,step=1,value=3,animate = TRUE),
           textInput('tbl_nm',label='Data Set',value='cars'),
           br(),
           actionButton("button", "Show")
     ),
     column(8, tableOutput("table"))
   )
   server <- function(input, output) {

    # reactively adjust the number of rows
    ll <- eventReactive(input$x,{
      input$x
    })


    # change the data sets after clicking the button
    dat <- eventReactive(input$button,{
       if(input$tbl_nm=='cars'){
         dat <- cars
      } else {
         dat <- get(input$tbl_nm)
      }
      return(dat)
     })

    # Take a reactive dependency on input$button, but
    # not on any of the stuff inside the function
    df <- eventReactive(input$button, {
       yy <- ll()
      # choose only the relevant data...
      head(dat(),yy)
    })

    # show the final table
    output$table <- renderTable({

      if(input$button==0){
        # show the first few lines of cars at the begining
        head(cars, ll())
      } else {
        # show the selected data
        df()
      }

    })
  }


  shinyApp(ui=ui, server=server)
}

Answer 1

发生这种情况的原因是：

output$table <- renderTable({

  if(input$button==0){
    # show the first few lines of cars at the begining
    head(cars, ll())
  } else {
    # show the selected data
    df()
  }

})

每按一次按钮，其值（input$button）递增1。应用程序打开时只有0。因此， head(cars, ll())仅在第一次按下按钮之前运行。之后，input$button递增，其值为2,3,4 ......等。

ll()是一个依赖于input$x（您的滑块）的事件。因此，当您的滑块更新或按下播放标志时，ll()会更新，您的表格会重新显示。

每次第一次按下后，df()都会运行。这是一个依赖input$button的事件 - 它只在按下按钮时运行。在按下按钮之前，您的表格无法更新。

要解决此问题，您可以使用：

df <- eventReactive(input$button | input$x, {
  yy <- ll()
  # choose only the relevant data...
  head(dat(),yy)
})

改为df()。如果按下按钮或滑块更新

，它现在将更新

eventReactive in shiny不会更新数据

1 个答案: