Jquery 显示数据集和卸载以前的操作时出现问题

我在这里的应用程序中有一些问题。这是我添加和加载csv文件的代码。但也有一些问题，我需要的东西也很少。请任何人帮助我

问题： 1） 我无法加载第二个文件。不知道为什么？ 2） 我还添加了remove按钮，以便单击

remove

按钮后，应卸载相应的文件。 3） 我们是否可以创建另一个输出，当加载新文件时，它应该显示前15行

head（df，n=6）

---

这里有一个不同的设计，我希望它有帮助

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(rhandsontable)
```

Column {data-width=650}
-----------------------------------------------------------------------

```{r}
actionButton("add", "Add UI",width = 100)
observeEvent(input$add, {
  remove_id <- paste0("remove_", input$add)
  insertUI(
    selector = "#add",
    where = "afterEnd",
    ui = tags$div(fileInput(paste0("file",input$add), paste0("Choose CSV File", input$add), accept = c( "text/csv", "text/comma-separated-values,text/plain", ".csv")),
                  actionButton(remove_id, paste0("Remove",input$add), width = 100), id=remove_id), multiple = FALSE)

observeEvent(input[[remove_id]],{
  removeUI(selector = paste0("#",remove_id), immediate = TRUE, multiple = TRUE)
})
})

```

---
标题：“无标题”
运行时间：闪亮
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（rhandsontable）
```
列{数据宽度=650}
-----------------------------------------------------------------------
```{r}
操作按钮（“添加”，“添加UI”，宽度=100）
ObserveeEvent（输入$add{
remove_id这可能有助于
removeUI
我尝试了但没有工作。我编辑了我的问题。还有其他问题。例如1）我无法加载第二个文件。不确定为什么？2）我们是否可以创建另一个输出，当加载新文件时，它应该显示前15行标题（df，n=6）。请帮助Hi Suliman。非常感谢。实际上我也尝试过。但如果您仔细观察，当您单击“添加”两次/两次等时，您无法加载2个数据集。存在一些错误，我无法排除。请尝试一次。
---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(rhandsontable)
```

Column {data-width=650}
-----------------------------------------------------------------------

```{r}
actionButton("add", "Add UI",width = 100)
observeEvent(input$add, {
  remove_id <- paste0("remove_", input$add)
  insertUI(
    selector = "#add",
    where = "afterEnd",
    ui = tags$div(fileInput(paste0("file",input$add), paste0("Choose CSV File", input$add), accept = c( "text/csv", "text/comma-separated-values,text/plain", ".csv")),
                  actionButton(remove_id, paste0("Remove",input$add), width = 100), id=remove_id), multiple = FALSE)

observeEvent(input[[remove_id]],{
  removeUI(selector = paste0("#",remove_id), immediate = TRUE, multiple = TRUE)
})
})

```