if (FALSE) {
net <- visTreeEditor(data = iris)
net <- visTreeEditor(data = rpart(iris), main = "visTree Editor")
net <- visTreeEditor(data = rpart(iris), tooltip_data = iris,
main = "visTree Editor")
net
}
Run the code above in your browser using DataLab