How to display headers from a quarto with a for loop and plotly graphs?

I use tagList in order to render ploty graphs within a for loop. But the headers don't show !Is it possible to have plotly graphs AND headers within the for loop ? I want to show a table of content in the html file.

 library(plotly) library(htmltools) l <- htmltools::tagList() for(i in 1:3) {     l[[i]] <- tagList(paste0("\n\n####Zone ", i, "\n"),            plot_ly(x = rnorm(10), type="histogram")) } l

actual result

what I want