I would like to have 2 datatables being sychronized:
Say when a user clicks a row at the left table on a certain row, it would highlight the correct row on the other right table based on some CommonDate between those 2 tables.
I get it solved already with the below code. But one thing I like to improve on is NOT to have the blinking when select from one row to another. Is that possible? Now, when I select from one row to another, there is an instance the right table needs to be updated to the correct row, and it blinks once to be updated.
RowNumber_Updated <- reactive({
rownumber <- input$Report_table_rows_selected[length(input$Report_table_rows_selected)]
CommonDate <- ReportUpdated$CommonDate[rownumber]
ReportDetails <- getUpdatedReportDetails()
selectedrow <- which(ReportDetails$CommonDate==CommonDate)
selectedrow <- as.integer(selectedrow)
})
output$Right_table <- renderDataTable(refresh_data(),
#selection="single",
selection = list(selected = c(RowNumber_Updated()))
)