防止使用kableExtra（position ='float_left'）在kable表之后换行

Question

我试图将多个表放在R Markdown文档中的一行上。 我可以通过kable %>% kableStyling(... ,position='float_left')做到这一点，并且表格在整个页面上kable %>% kableStyling(... ,position='float_left') ：

但是，在这些表之后恢复文本（标题，文本，任何东西，实际上）时，它从该行最后一个表的右边开始。 这是一个简单的示例：

---
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  require(kableExtra)
``` and
```{r Test, echo=F}
  d1 <- data.frame(Item=c('A','B','C'),Value = c(1,2,3),Units=c('X','Y','Z'))
  knitr::kable(d1,format='html') %>%
    kable_styling(position='float_left',full_width=F)
```

## Next heading

我希望## Next heading将从新的一行开始。 在format ='html'和format ='latex'时都会发生这种情况：

Answer 1

正如kableExtra 文档中有关float选项的说明：

您还可以使用向左浮动或向右浮动选项将文字环绕表格。

因此，您所看到的行为与程序包所期望的一样。

一种简单的解决方法是使每行的最后一个表使用参数position='left'代替position='float_left'

---
output: html_document
---

```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  require(kableExtra)
```

```{r Test, echo=F}
  d1 <- data.frame(Item=c('A','B','C'),Value = c(1,2,3),Units=c('X','Y','Z'))
  knitr::kable(d1,format='html', caption = "Table 1") %>%
    kable_styling(position='float_left',full_width=F)


    knitr::kable(d1,format='html', caption = "Table 2") %>%
    kable_styling(position='float_left',full_width=F)

      knitr::kable(d1,format='html', caption = "Table 3") %>%
    kable_styling(position='left',full_width=F)

```    
# Next heading