if(interactive()) {
p <- l_plot(rnorm(10))
get_model_display_order(p)
p['selected'][c(1,3,5,7)] <- TRUE
# The 1st, 3rd, 5th, 7th points will be drawn afterwards
# to make sure that they are displayed on top
get_model_display_order(p)
}
Run the code above in your browser using DataLab