如何创建一个下载按钮来在rmarkdown中获取.csv（不使用shiny）？

Question

我需要在我的报告（html）中添加一个下载按钮，如果您点击，它将下载一个.csv。 我正在使用 r markdown （我不能使用闪亮的）。 我什至尝试过使用 json 编码，但一无所获。

以下代码打开另一个选项卡时出现错误。

library(openxlsx)
library(jsonlite)

temp_file <- tempfile(fileext = ".csv")
write.csv(bd_g_summ, file = temp_file, row.names = FALSE)

<button onclick="descargarCSV()">Descargar CSV</button>

<script>
function descargarCSV() {
  var link = document.createElement("a");
  link.href = "{{temp_file}}";
  link.download = "dataframe_autocompletado.csv";
  link.click();
}
</script>

这是“bd_g_summ”的头部：

head(bd_g_summ)
# A tibble: 6 x 6
# Groups:   EID [4]
  EID                Notes_Nueva         peso_inicial peso_final fecha_inicial fecha_final
  <chr>              <chr>                      <dbl>      <dbl> <date>        <date>     
1 ""                 Hijos del Rodeo VIP         142.        97  2023-03-23    2023-03-27 
2 ""                 La Angelita                 152.       200. 2023-03-10    2023-05-10 
3 "032 010001229420" Los Leones                  130        130  2023-03-08    2023-03-08 
4 "032 010001229421" Los Leones                  160.       160. 2023-03-08    2023-03-08 
5 "032 010001229421" NA                          189        189  2023-06-30    2023-06-30 
6 "032 010001229422" Los Leones                  168.       168. 2023-03-08    2023-03-08 

Answer 1

只需在表格中添加一个按钮即可，如下所示：

datatable(
  iris, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv')
  )
)