# NOT RUN {
balloon <- image(system.file("sample_img/balloon1.png", package = "Rvision"))
poly <- data.frame(x = c(290, 290, 440, 440), y = c(170, 325, 325, 170))
drawPolyline(balloon, poly, closed = FALSE, color = "red", thickness = 3)
# }
Run the code above in your browser using DataLab