从Flexdashboard下载数据

Question

我正在处理RMarkdown文件。我的文件有闪亮的元素，但可以使用柔性仪表板。下面你可以看到代码。

---
title: "Test"
author: " "
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
runtime: shiny
editor_options: 
  markdown: 
    wrap: 72
---



# Module 1

```{r global, include=FALSE}

图书馆(双欲)

数据(BicatYeast)

set.seed(1)

(BicatYeast，method=BCPlaid()，verbose=FALSE)

## Inputs {.sidebar}

```{r}

selectInput("clusterNum"，label =h3(“群集号”)，

choices = list("1" = 1, "2" = 2), 

selected = 1)

## Row {.tabset}


### Parallel Coordinates

```{r}

num <-反应性(as.integer(输入$clusterNum))

renderPlot(

parallelCoordinates(BicatYeast，res，number=num())

### Data for Selected Cluster

```{r}

renderTable(

BicatYeast[哪个(res@RowxNumber，num())，哪个(res@NumberxColnum()，)]

)

通过下拉菜单，我可以选择一个dataset，并选择我可以在第二个选项卡中看到的数据集，名为as，data for Selected集群‘。

​

​

现在，我想通过按“下载”按钮下载所选的表，但我不知道该如何做。那么，谁能帮我解决这个问题，并将数据下载到Excel格式(*.xlsx)。

Answer 1

您需要两个组件：

1. ：将data.frame写到Excel文件(或交替写入CSV文件或类似文件)的能力。
2. 使文件可以在闪亮的.

中下载。

对于前者，请看一下包openxlsx。避免依赖Java的旧R包。

对于后者，请参见这个链接https://shiny.rstudio.com/reference/shiny/1.0.4/downloadButton.html (您需要使用downloadLink或downloadButton，以及生成输出的downloadHandler )。