Issue with addition of automatic section-id for headers

[Gutschlhofer]

Something that was discussed a few years back and closed a year ago in this thread #133 seems to be a problem for me again:

When including any r-shiny-code, RMarkdown wraps a span around it, e.g.:
<span id="outc6a1e60e89362530" class="shiny-text-output shiny-bound-output">Germany</span>

RMarkdown doesn't realise this however, and assigns the ID of the header wrong, resulting in the following:

<div id="section-country-<span id=" out7f4c15190eda4fab"="" class="shiny-text-output shiny-bound-output">-df" class="section level1"&gt;
<h1>Country <span id="out7f4c15190eda4fab" class="shiny-text-output shiny-bound-output">Germany</span> df</h1>
<p>Test</p>
</div>

The output can be seen here:

Here is a reproducible code:

```{r, echo=FALSE}
inputPanel(
  selectInput("region", "Please select a country:",
                choices = c("Germany", "France")))

region <- reactive({input$region})
```

# Country `r region`

The exact same thing happens when I replace the region variable in the header with renderText(input$region)

Has anyone figured out a solution to the problem yet?

The workaround also discussed in #133 with manually adding an ID works (i.e. adding {#foo} at the end of the header) though.

[yihui]

You mentioned it was hard to format R Markdown, and that is probably because you didn't fully read the issue guide when you create a new issue: https://github.com/rstudio/rmarkdown/issues/new (and more on the four-backtick rule).

[Gutschlhofer]

Okay thanks for that @yihui , I think I have now properly edited the issue post.

[stefanavey]

This is a workaround and makes the document less readable but this is an alternative approach where you don't need to manually add an ID. I often use this approach to specify section headers dynamically inside for loops. It's a bit verbose but simple to write a function to pad with newlines, etc. if you don't want to write out full cat() every time.

```{r, echo=FALSE}
inputPanel(
  selectInput("region", "Please select a country:",
                choices = c("Germany", "France")))

region <- reactive({input$region})
```

```{r,results="asis"}
cat("\n\n# Country ", region, "\n\n", sep = '')
```

[yihui]

Should be fixed now. Thanks for the report!

[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.