r - 如何使用下拉菜单显示不同的表格？

Question

我有 3 张不同的桌子

May_Sales <- data.frame(State  = c("New York", "New Jersey", "Texas","New Mexico","California",
                               "Kansas","Florida","Alaska","Montana", "Maine"),
                    
                    ManagerName = c("Chip","Kelly","Steve","Young","Troy",
                                    "Aikman", "Chad","Pennington","Mike","Vick"),
                    
                    Units = c(455,453,125,135,135,568,451,125,215,314),
                    
                    Sales = c("20000","12530","51110","54110","65000",
                                  "58220","54612","45102","45896","12510"),
                    
                    Target_Sales = c("20000","20000","55000","50000","65000",
                                        "58000","55000","45000","45000","13000"))

June_Sales <- data.frame(State  = c("New York", "New Jersey", "Texas","New Mexico","California",
                               "Kansas","Florida","Alaska","Montana", "Maine"),

                    ManagerName = c("Chip","Kelly","Steve","Young","Troy",
                                    "Aikman", "Chad","Pennington","Mike","Vick"),

                    Units = c(460,463,165,139,165,668,421,125,205,316),

                    Sales = c("21000","13530","51010","54410","63000",
                                  "56220","57612","42602","43696","12160"),

                    Target_Sales = c("25000","15000","55000","55000","65000",
                                        "58000","55000","47000","45000","13000"))

July_Sales <-  data.frame(State  = c("New York", "New Jersey", "Texas","New Mexico","California",
                               "Kansas","Florida","Alaska","Montana", "Maine"),

                    ManagerName = c("Chip","Kelly","Steve","Young","Troy",
                                    "Aikman", "Chad","Pennington","Mike","Vick"),

                    Units = c(405,353,325,155,235,560,401,125,215,314),

                    Sales = c("20200","16210","51310","56110","65500",
                                  "58225","54602","45602","45806","12410"),

                    Target_Sales = c("25000","22000","55000","50000","65000",
                                        "60000","55000","35000","40000","10000"))

我通常所做的只是将每个表放入 datatable() 并将其放入 Rmarkdown 文档中，但我宁愿将所有表放在一个部分中，然后选择我想查看的表。

library(DT)
datatable(May_Sales)

但是有没有办法（有或没有 DT）得到一个下拉菜单来选择我想看到的销售月份？

标签： rr-markdowndt

Answer 1

您可以使用.tabset-dropdown功能：

```{r}
library(DT)

July_DT <- datatable(July_Sales)
June_DT <- datatable(June_Sales)
May_DT <- datatable(May_Sales)
```

# Sales {.tabset .tabset-dropdown}

 ## May Sales 

```{r ,echo = FALSE}
May_DT    
```
## June Sales

```{r ,echo = FALSE}
June_DT
```


## July Sales 

```{r ,echo = FALSE}
July_DT
```