我想将我为黑名单单击的所有信息（计数）打印到数据表中。当我第二次单击要列入黑名单的项目时，以前被列入黑名单的信息将刷新，并且一次仅显示当前数据。
因此，我添加了一个全局变量以阻止到目前为止已列入黑名单的信息。它正在闪亮的服务器中运行。因此，全局变量仅刷新一次，因此，即使其他用户在第一次重新加载时尝试从其他浏览器访问Shinyapp，全局变量中的旧值也会保留下来。如何检查页面是否是第一次刷新/重新加载，以便可以相应地刷新变量内容。
全局。 R
bl_all<-data.frame()
server.R
`watchEvent（input $ blselection，{
visNetworkProxy('network') %>%
visUpdateEdges(data.frame(id = input$edge_data$id, color = "red"))
bl_all<<- rbind(bl_all,data.frame(input$edge_data))
output$bl_table_edges <- renderDataTable({
bl_all
})
showNotification("The edge is added now to the blacklist.")
}）`