我需要添加一个下载按钮到我的报告（html），如果你点击，它会下载一个. csv。我正在使用r markdown（我不能使用shiny）。我一直在尝试，即使与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