## ------------------------------------------------
## Method `TealSlicesBlock$from_list`
## ------------------------------------------------
TealSlicesBlock <- getFromNamespace("TealSlicesBlock", "teal")
block <- TealSlicesBlock$new()
block$from_list(list(text = "sth", style = "default"))
## ------------------------------------------------
## Method `TealSlicesBlock$to_list`
## ------------------------------------------------
TealSlicesBlock <- getFromNamespace("TealSlicesBlock", "teal")
block <- TealSlicesBlock$new()
block$to_list()
Run the code above in your browser using DataLab