突出显示每一行的最大值

Question

我要突出显示的每一行（颜色或背景）最大值。

require(kableExtra)
a <- c('A', 'B', 'C', 'D')
VAR_1 <- c(1.42,1.55,0.99,0.95)
VAR_2 <- c(0.99,1.65,1.25,0.69)
VAR_3 <- c(2,1.69,0.95,1.23)
VAR_4 <- c(3.32,2.25,0.98,0.75)
VAR_5 <- c(2.3,6.3,0.95,2)

df <- data.frame(a,VAR_1,VAR_2,VAR_3,VAR_4,VAR_5)