Как поместить HTML вывод в файл Excel в R?

Question

Я использовал Condformat для создания таблицы с цветовой кодировкой столбцов. Я знаю, что condformat выводит файл HTML. Я хочу файл Excel с цветовой кодировкой столбцов. Я знаю, что condformat имеет команду condformat2excel для вывода файла Excel, но файл не имеет цветовой код столбцов. Любые советы или советы будут приветствоваться, спасибо.

library(readxl)
library(condformat)
teast1 <- read_excel("Kenilworth_DataIssues-testR.xls",sheet = "Data Cleanup")
color_pick <- function(column) {
  sapply(column,
         FUN = function(value) {
           if (value >= 25) {
             return("red")
           } else {
             return("dodgerblue")
           } 


        })
}

color_pick2 <- function(column2) {
  sapply(column2,
         FUN = function(value2) {
           if (value2 == "06:00 - 20:00") {
             return("red")
           } else if(value2 == "00:00-23:59") {
             return("green")
           }else{
             return("dodgerblue")

           } 


         })

}
condformat(teast1[c(1:10)])%>%
rule_fill_discrete("PlannedPremiseTime",expression = color_pick(PlannedPremiseTime),colours = identity)%>%
rule_fill_discrete("ServiceWindows",expression = color_pick2(ServiceWindows),colours = identity)