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

问题描述

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）