Зацикливание, скрытие столбцов и форматирование

Question

У меня есть

A<-1:10
B<-10:1
C<-11:20
df<-data.frame(id=1:10,A,B,C,tA=A>5,tB=B>5)

Я использую formattable, и это то, что я хотел бы иметь (Выход 1)

formattable(df, list(
            id = formatter("span",
                   style = ~ style(color = "gray")),
            A=formatter("span",
                          style =  ~ style(color = ifelse(tA==TRUE, "green", "red")),
                          ~ icontext(ifelse(tA==TRUE, "arrow-up", "arrow-down"), A)),
            B=formatter("span",
                        style =  ~ style(color = ifelse(tB==TRUE, "green", "red")),
                        ~ icontext(ifelse(tB==TRUE, "arrow-up", "arrow-down"), B)),
            C=color_tile("transparent", "lightpink"),
            tA=FALSE,
            tB=FALSE))

Проблема в том, что я хотел бы выполнить цикл для столбцов A и B.

formattable(df, 
        lapply(df[,c("A","B")], function(col)
        {
          col=formatter("span",
                        style = x ~ style(color = ifelse(x>XXX, "green", "red")),
                        x ~ icontext(ifelse(x>val[1], "arrow-up", "arrow-down"), x))
        }
        ))

Вопрос: Как объединить lapply и formattable, чтобы они были похожи на результат 1?

Большое спасибо.