在invalidatelat观察者内增加reactivevalue

我正在尝试构建闪亮的应用程序来进行一个非常简单的测验。我有一个包含 10 个问题的 data.frame，用户点击回答 0 或 1。 它一直有效，直到我尝试实施timer / 倒数以便下一个问题在 5 秒后自动出现，使用invalidateLater() call.

当前的题号存储在一个reactiveValues()对象中，变量i

当我添加观察功能时，应用程序停止工作并且不显示问题。我的代码在这里：

init = data.frame(question=paste("question", 1:10), correct=c(1,1,1,1,1,0,0,0,0,0), answer=NA, stringsAsFactors = FALSE)
library(shiny); library(shinydashboard)
ui=dashboardPage(dashboardHeader(title = "questionnaire"),dashboardSidebar(),dashboardBody(
        fluidRow(box(width = 6, title="how it works..", p("balblabla"))),
        fluidRow(
            box(width = 12, background = "orange",
          fluidRow(
            box(width = 12, 
                verbatimTextOutput("question"),
                tags$head(tags$style("#question{font-size: 20px; text-align: left; font-weight: bold;}"))
            ),
            box(width = 12,
                actionButton("negative", "answer 0", width = '30%'),
                actionButton("positive", "answer 1", width = '30%')
            ))))))
server <- function(input, output, session) {
  vals = reactiveValues(df = init, i=1)
  output$question <- renderText({vals$df[vals$i, "question"]})
  observe({
    invalidateLater(5000)
    vals$i <- vals$i + 1
  })
  observeEvent(input$negative, ignoreInit=TRUE, {
    vals$df[vals$i, "answer"] = 1
    if (vals$df[vals$i, "correct"]==1){
      showNotification("WRONG!", type="error", duration=1, closeButton = FALSE)
    } else {
      showNotification("CORRECT!", type="message", duration=1, closeButton = FALSE)
    }})
  observeEvent(input$positive, ignoreInit=TRUE, {
    vals$df[vals$i, "answer"] = 1
    if (vals$df[vals$i, "correct"]==0){
      showNotification("WRONG!", type="error", duration=1, closeButton = FALSE)
    } else {
      showNotification("CORRECT!", type="message", duration=1, closeButton = FALSE)
    }})
}
shinyApp(ui, server)

你能帮我修复这个观察语句吗，我不知道这里出了什么问题。

你需要isolate该观察者内索引的增量：

  observe({
    invalidateLater(5000)
    vals$i <- vals$i + 1
  })

，否则您将在无限循环中发送它，因为它“观察”的值在观察者本身内发生了变化，无论经过的时间如何，都会不断触发重新评估（您可以通过添加print(vals$i)当前代码中的指令，位于观察者的末尾。

所以，这样的事情似乎有效：

  vals = reactiveValues(df = init, i=0)
  output$question <- renderText({vals$df[vals$i, "question"]})
  observe({
    invalidateLater(5000)
    isolate(vals$i <- vals$i + 1)
  })

请注意，我更改了初始化i为零以避免在初始化时跳过问题。

HTH.