动态增加 flexdashboards 中的选项卡和页面数量

Dynamicly increasing amount of tabs and pages in flexdashboards

所以我刚开始使用 flexdashboard 来可视化我的结果,我有一个关键问题。在我的程序中,我有一个每天更新的 10 列数据集。归根结底,我只报告了具有重要意义的列。

问题是,有时我需要报告 2 列,而在其他一些日子里需要报告 10 列。所以我想在 flexdashboard 中实现自动化。

我们使用制表符定义新行(例如 2 个制表符)

Row {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Chart A
```{r}
one <- my_visualization function(data[,1])
```

### Chart B
```{r}
two <-  my_visualization function(data[,2])
```

这会创建一个包含两个选项卡的行。

我的问题是:是否有任何方法可以生成与变量 c 指示的一样多的选项卡? (比如 c=4,我想要 4 个标签!)

抱歉,如果之前已经回答过这个问题!提前致谢!

诀窍是使用 cat 函数。下面是一个大纲。本质上,它是一个 for 循环,包含当天的情节,包括两个 'cat' 调用。这种方法允许生成可变标签号。通过添加 {.tabset} 这将使显示在有很多图时更整洁,而不是生成长文档。 “\n”对于创建新行至关重要,否则主题标签将不起作用。

希望您已经找到了。只是为其他人添加这个。

    # todays results (.tabset)
    
    ```{r}
    
    rlist <- c(columns to plot)

    for (r in rlist) {
      
      
      cat(paste0('## ', r, '\n'))
      
      
     # insert your plot
      
      cat'\n\n')
      
    }
    
    ````