In R - Using gt() and gtExtras() tables packages is possible to create expandable row?

Question

Is it possible to include a expandable row in gt()/gtExtras() packages in R, just like we can create in reactable() package?

https://glin.github.io/reactable/articles/examples.html#expandable-row-details

This is my code:

library(gt)
library(gtExtras)   
library(htlmtools)
mtcars %>% select(cyl,mpg) %>% gt()

I woudl like to include h1("Title") tag inside a expandable row.

Any help?