带有条件格式的 R 数据表按钮

Question

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

经过广泛的搜索，我设法应用了一个下载按钮(从 gi​​thub 更新了 dt-package)并在 Shiny 应用程序的浏览器显示中应用了特定的格式(formatStyle)。这将允许我将来为唯一列应用条件格式。但是，当使用保存按钮时，这种格式会在保存的文件中丢失(请参阅下面的代码片段)。

据我了解，原因是 formatStyle 函数仅在数据表调用之后应用。有没有办法更早地应用 formatStyle 函数？创建 resulttab 对象的原因是，formatStyle 函数应用于按名称选择的特定列，而 tabelle 函数是在 Shiny 的 react 环境中生成的。

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')
      })

Answer 1

带有选项 excel 的数据表的导出按钮显然是一个包装好的 csv 导出。因此无法导出格式。我的解决方法现在使用 Shiny 的导出按钮和 XLConnect 包。

我找不到在浏览器中显示工作簿(通过 XLConnect 在 downloadHandler 中创建)的解决方案。因此，我将使用不带浏览器显示格式的 renderDataTable 函数，因为在不同的包中两次定义(大量)格式设置条件是不可行的。