run() leaks shiny's theme state

[cpsievert]

run()-ing a runtime: shiny document with a {bslib} theme currently leaks shiny::getCurrentTheme() state. This means, you'll see behavior like:

shiny::getCurrentTheme()
#> NULL
rmarkdown::run("Untitled.Rmd")
class(shiny::getCurrentTheme())
#> [1] "bs_version_4" "bs_theme"     "sass_bundle" 

When Untitled.Rmd has something like

---
title: "Untitled"
runtime: shiny
output: 
  html_document:
    theme:
      version: 4
      bg: black
      fg: white
---

```{r}
selectInput("state", "states", state.abb)
```

[github-actions]

This old thread has been automatically locked. If you think you have found something related to this, please open a new issue by following the issue guide (https://yihui.org/issue/), and link to this old issue if necessary.