在R Shiny中保存brushOpts值（xmin，xmax ...），直到在绘图中重新使用画笔

Question

我想知道在重新使用画笔之前是否有办法保存brushOpts值（例如xmin）。看来，当我取消绘图中的画笔时，即使我不允许这样做，保存的值也将替换为默认的NULL或NA。

library(ggplot2)
library(shiny)

runApp(shinyApp(
  ui<- fluidPage(
plotOutput("plot",
           brush = brushOpts("plotBrush")),
textOutput("xmin")
),

server<- function(input, output, session) {
  output$plot <- renderPlot({
    ggplot(cars, aes(speed, dist)) + geom_point()
  })

  xmin<- reactive({
    if (is.numeric(input$plotBrush$xmin) == TRUE && input$plotBrush$xmin >= 0 && is.null(input$plotBrush) == FALSE) {
      data<- input$plotBrush$xmin
      return(data)
    } else {
      return(data)
    }
  })
  output$xmin<- renderPrint(xmin())
}
))

我在某个地方犯了一个错误，但是我不知道在哪里，所以我将不胜感激。谢谢。