条件标题标题取决于代码块 R Markdown 的输出

Question

我知道以前有人问过这个问题，但我仍在努力寻找适合我的示例的答案。基本上，我有这个代码块来读取数据帧的行数。如果数据框中有任何行，它将使用kable() 输出一个表。如果行数为零，则不输出任何表。

当表格是输出时，我想在表格上方有一个标题（只是粗体文本，即"My Table"）。当没有表格输出时，我想要没有标题。我怎样才能做到这一点？我尝试在 r 设置块中使用像 print_option 这样的 eval 语句，但没有运气。这是精简后的伪代码：

```{r warning = FALSE, echo = FALSE, fig.height=10, fig.width=6}
    
    #Existing data frame my_df

   numRows <- nrow(my_df)

   if (numRows>0) {

       #Print table 
       my_df %>%
       arrange(my_field)%>%
       kable() %>%  kable_styling(bootstrap_options = "striped","condensed", font_size = 12)

   }


```

Answer 1

我对使用 iris 数据集实现您的代码进行了最小的更改，它可以按照您的意愿工作。

没有行（也没有标题）

```{r warning = FALSE, echo = FALSE, fig.height=10, fig.width=6}
library(dplyr)
library(kableExtra)

#Existing data frame my_df
my_df <- iris[NULL, ]
numRows <- nrow(my_df)
```

`r  if (numRows > 0) {"## This is your heading written in markdown"}`

```{r warning = FALSE, echo = FALSE, fig.height=10, fig.width=6}
if (numRows>0) {
  #Print table 
  my_df %>%
    arrange(Species) %>%
    kable() %>%
    kable_styling(bootstrap_options = "striped","condensed", font_size = 12)
}
```

带数据（和表头）

```{r warning = FALSE, echo = FALSE, fig.height=10, fig.width=6}
library(dplyr)
library(kableExtra)

#Existing data frame my_df
my_df <- iris[1:10, ]
numRows <- nrow(my_df)
```

`r  if (numRows > 0) {"## This is your heading written in markdown"}`

```{r warning = FALSE, echo = FALSE, fig.height=10, fig.width=6}
if (numRows>0) {
  #Print table 
  my_df %>%
    arrange(Species) %>%
    kable() %>%
    kable_styling(bootstrap_options = "striped","condensed", font_size = 12)
}
```