Solving The Dt Callback Issue In R Shiny Conditional Styling After Edits