if(interactive()){
p <- l_plot()
l <- l_layer_rectangle(p, x=0:1, y=0:1, color="steelblue")
g <- l_layer_group(p)
l_layer_printTree(p)
l_layer_move(l, parent=g)
l_layer_printTree(p)
l_layer_move(p, 'model', parent=g)
l_layer_printTree(p)
}
Run the code above in your browser using DataLab