如何防止每次 UI 交互多次重绘闪亮的情节？

Question

在我闪亮的应用程序中，我有一个日期范围输入和一组复选框。复选框选项是根据输入 $dateRange 确定的。我遇到了一个问题，每次更改日期范围时，都会重新绘制两次绘图。第一次重绘时，它将使用新的日期范围，但使用旧的复选框选项。然后复选框选项被更新，情节被重新绘制第二次。

有什么方法可以防止多次重绘绘图，并且只有在所有其他 UI 元素都更新后才绘制它？

server.R 代码 sn-p

  # Check boxes for variants in run
  output$choose_variants <- renderUI({
    # Get the variants associated with the run
    dat <- loadVariants(input$dateRange[1], input$dateRange[2])
    if(is.null(dat))
      return()

    # Create the checkboxes and select them all by default
    checkboxGroupInput("variants", "Variants",
                        choices  = dat$variant,
                        selected = dat$variant)
  })

  # Output the data
  output$plot1 <- renderPlot({
    runLocations <- loadRunsBetweenDates(input$dateRange[1], input$dateRange[2], input$variants)
    #ggplot()
  })

ui.R代码sn-p

  sidebarPanel(
    dateRangeInput('dateRange',
      label = 'Date range',
      start = Sys.Date(), end = Sys.Date()
    ),
    uiOutput("choose_variants")
  ),

Answer 1

由于input$variants 总是随着日期范围滑块的变化而变化，因此您可以使绘图仅依赖于input$variants。

  # Output the data
  output$plot1 <- renderPlot({

    # outside of isolate statement, so this plot becomes dependent on its value.
    input$variants

    # put this in an isolate block, so it doesn´t trigger an invalidation.
    isolate(runLocations <- loadRunsBetweenDates(input$dateRange[1], input$dateRange[2], input$variants))
    #ggplot()
  })

希望这会有所帮助！

编辑：替代方案，基于评论中的条件

您可以创建一个响应式，并使您的情节仅依赖于它，如下所示：

  loadedVariants <- reactive({
  loadVariants(input$dateRange[1], input$dateRange[2])
  })

 # Output the data
  output$plot1 <- renderPlot({

    # outside of isolate statement, so this plot becomes dependent on its value.
    loadedVariants()

    # put this in an isolate block, so it doesn´t trigger an invalidation.
    isolate(runLocations <- loadRunsBetweenDates(input$dateRange[1], input$dateRange[2], input$variants))
    #ggplot()
  })