Я хотел бы распечатать всю информацию (количество), которую я щелкнул для внесения в черный список, в таблицу данных. Когда я нажимаю второй раз на элемент в черном списке, информация, которая была ранее помещена в черный список, обновляется, и одновременно отображаются только текущие данные.
Итак, я добавил глобальную переменную, чтобы скрыть информацию, которая была в черном списке до сих пор. Он работает на блестящем сервере. Таким образом, глобальная переменная обновляется только один раз и, следовательно, даже когда другой пользователь пытается получить доступ к shinyapp из другого браузера при первой перезагрузке, старые значения в глобальной переменной остаются прежними. Как я могу проверить, была ли страница обновлена / перезагружена в первый раз, чтобы я мог соответственно обновить содержимое переменной.
global. R
bl_all<-data.frame()
server.R
`meetEvent (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.")
})`