Ggplotly doesn't work in asis result Quarto

Question

I'm trying to use ggplotly in a nested tab construction in Quarto from one of my previous questions, Nested tabs in Quarto document. Somehow when we use ggplotly the plot does not show op in the document. If we just print the list it should work. Here is a reproducible example:

--- title: "test" format: html --- ```{r} #| echo: false #| message: false #| warning: false library(ggplot2) library(plotly) # example list example_list <- list( tab1 = list(test1.1 = ggplotly(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))+ geom_point()), test1.2 = ggplotly(ggplot(iris, aes(x = Petal.Length, y = Sepal.Width))+ geom_point())), tab2 = list(test2 = ggplotly(ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length))+ geom_point())) ) # function nested_tabs <- function(nested_list) { main_tab <- names(nested_list) cat(':::: {.panel-tabset} \n') # main tab for (i in main_tab) { id <- which(main_tab == i) cat("##", as.character(i), "\n\n") cat("::: {.panel-tabset} \n\n") # sub tab purrr::iwalk(example_list[[i]], ~ { # source: https://stackoverflow.com/a/73368297/28479453 cat('###', .y, '\n\n') print(.x) cat('\n\n') }) cat("\n:::\n\n") } cat("::::") } ``` ```{r} #| results: asis #| echo: false #| message: false #| warning: false #| fig-width: 14 #| fig-height: 6 nested_tabs(example_list) ```

Output:

As you can see the plots are not shown. I feel like this has something to do with the results: asis, but I'm not sure. So I was wondering if anyone knows how we can use ggplotly in these tabs?

stefan · Accepted Answer · 2025-06-16 08:12:42Z

Following my answer on this post which refers to creating some {plotly} figures using a for loop in {rmarkdown}, one option to achieve your desired result would be to

wrap the plotly objects in htmltools::tagList when printing
ensure that the JS dependencies are included in the rendered document

 --- title: "test" format: html --- ```{r, include=FALSE} # Init Step to make sure that the dependencies are loaded htmltools::tagList(plotly::ggplotly(ggplot2::ggplot())) ``` ```{r} #| echo: false #| message: false #| warning: false library(ggplot2) library(plotly) # example list example_list <- list( tab1 = list(test1.1 = ggplotly(ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))+ geom_point()), test1.2 = ggplotly(ggplot(iris, aes(x = Petal.Length, y = Sepal.Width))+ geom_point())), tab2 = list(test2 = ggplotly(ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length))+ geom_point())) ) # function nested_tabs <- function(nested_list) { main_tab <- names(nested_list) cat(':::: {.panel-tabset} \n') # main tab for (i in main_tab) { id <- which(main_tab == i) cat("##", as.character(i), "\n\n") cat("::: {.panel-tabset} \n\n") # sub tab purrr::iwalk(example_list[[i]], ~ { # source: https://stackoverflow.com/a/73368297/28479453 cat('###', .y, '\n\n') print(htmltools::tagList(.x)) cat('\n\n') }) cat("\n:::\n\n") } cat("::::") } ``` ```{r} #| results: asis #| echo: false #| message: false #| warning: false #| fig-width: 14 #| fig-height: 6 nested_tabs(example_list) ```

Collectives™ on Stack Overflow

Ggplotly doesn't work in asis result Quarto

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related