Quarto dataframe打印和造型

Question

在四边形中，我们可以选择控制默认的数据打印。

---
title: "Example"
format:
  html:
    df-print: kable
---

## example kable

```{r}

mtcars |>头()

昏暗(汽车)

​

​

现在我想做一些kable_styling，使它更有吸引力。我找到了一个可行的选择，

---
title: "Example"
format:
  html
---

```{r}

#包括:假

knit_print.data.frame =函数(x，.){

res =粘贴(c( ""，“”，

            knitr::kable(x, digits = 2) |> 

              kableExtra::kable_styling()), collapse = "\n")

knitr::asis_output(res)

}

registerS3method(

"knit_print“"data.frame”knit_print.data.frame

环境=asNamespace(“编织品”)

)

## example kable


```{r}

mtcars |>头()

昏暗(汽车)

​

​

我的问题是，它可以在一个独立的.qmd文件上工作，但是当我有几个用于一本书的HTML文件时，它就不起作用了。因此，我寻找一个在YAML中添加样式的解决方案，或者让上面提到的解决方案适用于夸托书中的所有qmd文件。

Answer 1

一个可能的解决方案可能是在Book根目录中创建一个R-脚本文件(假设global.R)，

global.R

knit_print.data.frame = function(x, ...) {
  res = paste(c("", "", 
                knitr::kable(x, digits = 2) |> 
                  kableExtra::kable_styling()), collapse = "\n")
  knitr::asis_output(res)
}

registerS3method(
  "knit_print", "data.frame", knit_print.data.frame,
  envir = asNamespace("knitr")
)

并在每个.qmd文件的开头添加这个脚本，

```{r include=FALSE}

资料来源(“global.R”)

Answer 2

我目前的解决方案使用df-print: kable和一些额外的css样式的行条，例如。

.table-striped>tbody>tr:nth-of-type(odd)>* {

    --bs-table-accent-bg: rgb(81 191 237 / 5%);
    color: var(--bs-table-striped-color);
}