ugd() # Initialize graphics device
# Page 1
plot.new()
text(.5, .5, "#1")
# Page 2
plot.new()
text(.5, .5, "#2")
# Page 3
plot.new()
text(.5, .5, "#3")
third <- ugd_id() # Get ID of page 3 (last page)
second <- ugd_id(2) # Get ID of page 2
all <- ugd_id(1, limit = Inf) # Get all IDs
ugd_remove(1) # Remove page 1
ugd_render(second) # Render page 2
dev.off() # Close device
Run the code above in your browser using DataLab