# NOT RUN {
gulls.click <- function(panel, x, y) {
print(c(x, y))
panel
}
panel <- rp.control()
image.file <- file.path(system.file(package = "rpanel"), "images", "gulllmks.gif")
rp.image(panel, image.file, gulls.image, action = gulls.click)
# }
Run the code above in your browser using DataLab