# NOT RUN {
if(interactive()){
printTags <- function(W) {
print(l_currenttags(W))
}
p <- l_plot(x=1:3, y=1:3, title='Query Visual Item Tags')
l_bind_item(p, 'all', '<ButtonPress>', function(W)printTags(W))
}
# }
Run the code above in your browser using DataLab