带条件格式的R datatable按钮

我想创建一个执行数据库查询的闪亮应用程序。（简单的）想法是创建一个表，对列应用条件格式，并允许报告的表保存到excel。我尝试了不同的解决方案，但使用datatable下载按钮似乎是最方便的

经过广泛的搜索，我成功地应用了下载按钮（从github更新了dt包），并在闪亮应用的浏览器显示中应用了特定的格式（formatStyle）。这将允许我在将来为唯一列应用条件格式。但是，当使用“保存”按钮时，此格式在保存的文件中丢失（请参见下面的代码片段）

据我所知，这是因为formatStyle函数仅在datatable调用之后应用。是否有一种方法可以更早地应用formatStyle函数？创建ResultTable对象的原因是，formatStyle函数应用于按名称选择的特定列，而tabelle函数是在反应式环境中生成的

output$tab <- DT::renderDataTable({
   resulttab <- tabelle() 
    datatable(resulttab, extensions = 'Buttons', options = list(
      dom = 'Bfrtip',
      buttons = 
        list('copy', 'print', list(
          extend = 'collection',
          buttons = list(list(extend='csv',
                              filename = 'blBericht'),
                         list(extend='excel',
                              filename = 'blBericht'),
                         list(extend='pdf',
                              filename= 'blBericht')),
          text = 'Download')))) %>%  formatStyle('Tribrommethan',  color = 'red', backgroundColor = 'orange', fontWeight = 'bold')
      })

---

output$tab带有excel选项的datatables的导出按钮显然是一个包装的csv导出。因此无法导出格式。我的解决方法是使用闪亮的导出按钮和XLConnect软件包

我找不到在浏览器中显示工作簿（通过downloadHandler中的XLConnect创建）的解决方案。因此，我将使用renderDataTable函数而不设置浏览器显示的格式，因为在不同的包中两次定义（大量）格式条件是不可行的
 在哪里可以调用formatStyle并轻松地对数据表进行条件格式设置？我正在寻找一个功能，以轻松做到这一点，任何帮助将不胜感激