knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(emitters)
x <- ReadableStream$new(mtcars) %|>% map_stream( function(data) { return(data) # do nothing } ) %|>% WriteableStream$new(list()) x$writeable_state$source$as_list()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.