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

Question

我正在寻找一个代码来显示 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)})
    })
}