data <- new_tdata(
data = list(iris = iris, mtcars = reactive(mtcars), dd = data.frame(x = 1:10)),
code = "iris <- iris
mtcars <- mtcars
dd <- data.frame(x = 1:10)",
metadata = list(dd = list(author = "NEST"), iris = list(version = 1))
)
# Extract a data.frame
isolate(data[["iris"]]())
# Get code
isolate(get_code_tdata(data))
# Get metadata
get_metadata(data, "iris")
Run the code above in your browser using DataLab