## Visualize structure of iris dataset
plot_str(iris)
## Visualize object with radial network
plot_str(rep(list(rep(list(mtcars), 6)), 4), type = "r")
## Generate complicated data object
obj <- list(
"a" = list(iris, airquality, list(mtcars = mtcars, USArrests = USArrests)),
"b" = list(list(ts(1:10, frequency = 4))),
"c" = lm(rnorm(5) ~ seq(5)),
"d" = lapply(1:5, function(x) return(as.function(function(y) y + 1)))
)
## Visualize data object with diagnal network
plot_str(obj, type = "d")
## Visualize only top 2 nested levels
plot_str(obj, type = "d", max_level = 2)
Run the code above in your browser using DataLab