# 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")
rp.line(panel, imagename=gulls.image, 100, 100, 100, 10, color = "blue")
rp.clearlines(panel, imagename=gulls.image)
# }
Run the code above in your browser using DataCamp Workspace