# NOT RUN {
panel <- rp.control()
image.file <- file.path(system.file(package = "rpanel"), "images", "gulllmks.gif")
panel <- rp.image(panel, image.file, imagename="gulls.image")
rp.line(panel, imagename=gulls.image, 10, 10, 100, 100, color = "green", id="first")
rp.line(panel, imagename=gulls.image, 100, 100, 100, 10, color = "blue", id="second")
rp.deleteline(panel, imagename=gulls.image, id="first")
# }
Run the code above in your browser using DataLab