## Not run:
# poly <- 'POLYGON((-111.06 38.84, -110.80 39.37, -110.20 39.17, -110.20 38.90,
# -110.63 38.67, -111.06 38.84))'
# wkt_vis(poly)
#
# poly2 <- 'POLYGON((-125 38.4,-125 40.9,-121.8 40.9,-121.8 38.4,-125 38.4))'
# wkt_vis(poly2)
#
# # Multiple polygons
# x <- "POLYGON((-125 38.4, -121.8 38.4, -121.8 40.9, -125 40.9, -125 38.4),
# (-115 22.4, -111.8 22.4, -111.8 30.9, -115 30.9, -115 22.4))"
# wkt_vis(x)
#
# # don't open in browser
# poly2 <- 'POLYGON((-125 38.4,-125 40.9,-121.8 40.9,-121.8 38.4,-125 38.4))'
# wkt_vis(poly2, browse = FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab