# NOT RUN {
hgd()
plot.new()
text(.5, .5, "#1")
plot.new()
text(.5, .5, "#2")
plot.new()
text(.5, .5, "#3")
third <- hgd_id()
second <- hgd_id(2)
all <- hgd_id(1, limit = Inf)
hgd_remove(1)
hgd_svg(second)
dev.off()
# }
Run the code above in your browser using DataLab