Retrieves the tags of the visual item that at the time of the function evaluation is below the mouse cursor.
Examples
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))
}