Highlight the maximum value for each row

Question

for each line I want to highlight (color or background) the maximum value.

require(kableExtra)
a <- c(\'A\', \'B\', \'C\', \'D\')
VAR_1 <- c(1.42,1.55,0