Chunk name is dropped if preceded by a comma

[Bisaloo]

tmpf <- tempfile(fileext = ".Rmd")

input <- c(
  "```{r, test}",
  "plot(cars)",
  "```"
)

cat(input, sep = "\n")
#> ```{r, test}
#> plot(cars)
#> ```

writeLines(
  input,
  tmpf
)

aeolus::unleash(tmpf)

readLines(tmpf) |>
  cat(sep = "\n")
#> ```{r}
#> plot(cars)
#> ```

input <- c(
  "```{r, test, echo = FALSE}",
  "plot(cars)",
  "```"
)

cat(input, sep = "\n")
#> ```{r, test, echo = FALSE}
#> plot(cars)
#> ```

writeLines(
  input,
  tmpf
)

aeolus::unleash(tmpf)

readLines(tmpf) |>
  cat(sep = "\n")
#> ```{r, echo=FALSE}
#> plot(cars)
#> ```

input <- c(
  "```{r test}",
  "plot(cars)",
  "```"
)

cat(input, sep = "\n")
#> ```{r test}
#> plot(cars)
#> ```

writeLines(
  input,
  tmpf
)

aeolus::unleash(tmpf)

readLines(tmpf) |>
  cat(sep = "\n")
#> ```{r test}
#> plot(cars)
#> ```

^{Created on 2025-08-24 with reprex v2.1.1}

Discovered in datacarpentry/R-ecology-lesson#933.

[maelle]

Thanks for the bug report! This problem comes from tinkr.

tmpf <- tempfile(fileext = ".Rmd")

input <- c(
  "```{r, test}",
  "plot(cars)",
  "```"
)

cat(input, sep = "\n")
#> ```{r, test}
#> plot(cars)
#> ```

writeLines(
  input,
  tmpf
)

yarn <- tinkr::yarn$new(tmpf)
yarn$show()

#> ```{r}
#> plot(cars)
#> ```

^{Created on 2025-08-25 with reprex v2.1.1}