如何在 R 中的 revealjs 演示文稿中制作小写标题?

How to make lowercase title in revealjs presentation in R?

我想在 R 中的 revealjs 演示文稿中使用小写标题。默认标题是大写的,我找不到任何 built-in 选项来更改它,所以我创建了一个 HTML 代码来做到这一点。

我的 a.html 文件:

<style>
.title-custom {
text-align: right;
text-transform: lowercase;
}  
</style>   

<section>
    <h1 class="title-custom"><br> right lowercase title </h1>
</section>

我的 index.Rmd 文件:

---
output:
  revealjs::revealjs_presentation:
    theme: black
    highlight: pygments
    self_contained: false
    center: true
    reveal_options:
      slideNumber: true
      previewLinks: true
---
```{r, echo = FALSE}
shiny::includeHTML("a.html")
```

我得到的输出是一张带有 right-aligned 文本的幻灯片(所以 index.Rmd 文件 'sees' a.html 文件)但仍然是大写。我做错了什么以及如何制作小写标题?

似乎在 css 部分中我不得不在我的自定义样式之前放置 .reveal 以覆盖默认设置。

<style>
.reveal .title-custom {
    text-align: right;
    text-transform: lowercase;
}  
</style>