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

Question

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

经过大量搜索后，我设法应用了下载按钮（从 gi​​thub 更新了 dt-package），并在闪亮应用的浏览器显示中应用了特定格式（formatStyle）。这将允许我将来为唯一列应用条件格式。但是，当使用保存按钮时，这种格式会在保存的文件中丢失（参见下面的代码片段）。

在我的理解中，原因是 formatStyle 函数只在 datatable-call 之后应用。有没有办法更早地应用 formatStyle 函数？创建 resulttab-object 的原因是 formatStyle-function 应用于通过其名称选择的特定列，而 tabelle-function 是在闪亮的反应环境中生成的。

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-Export-Button 和 XLConnect 包。

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