如何在监视器函数中定义实时全局变量并在闪亮的应用程序中呈现它？

如何解决如何在监视器函数中定义实时全局变量并在闪亮的应用程序中呈现它？

我正在寻找一个代码来在 R 闪亮的仪表板中显示遗传算法包 (GA) 的迭代。我知道我应该使用监视器，但我不知道我应该如何渲染每次迭代的绘图或文本。当代码在 r Shiny 上运行时，我想显示每次迭代。 问题是如何在监视器函数中定义一个实时全局变量并在闪亮的应用程序中呈现它？

monitor <- function(obj){
  score$iteronline <<- c(paste("iteration",obj@iter,-(max(obj@fitness))))
  print(score$iteronline)
}

server <- function(input,output,session) {
  score<<-reactiveValues(iteronline = NULL)
  
  observe({
    reactive(score$iteronline)
    output$onlineresult <- renderPrint({print(score$iteronline)})
    })
}