## ------------------------------------------------
## Method `TealReportCard$append_src`
## ------------------------------------------------
card <- TealReportCard$new()$append_src(
"plot(iris)"
)
card$get_content()[[1]]$get_content()
## ------------------------------------------------
## Method `TealReportCard$append_encodings`
## ------------------------------------------------
card <- TealReportCard$new()$append_encodings(list(variable1 = "X"))
card$get_content()[[1]]$get_content()
Run the code above in your browser using DataLab