## Not run: ------------------------------------
# x <- download_ShapeFile(exdir = "Shapefiles")
# # user input 21
# sFsmall <- rmapshaper::ms_simplify(x, keep=0.01) # use instead of thinnedSpatialPoly
# plot(sFsmall)
#
# # Download NSW state electorates
# # the URLs are split to avoid CRAN notes about long line widths
# url <- paste0("http://www.elections.nsw.gov.au/",
# "about_elections/electoral_boundaries/",
# "electoral_maps/gda94_geographical_midmif_files")
# x <- download_ShapeFile(exdir = "temp", url = url)
#
# # Download WA state electorates
# url <- paste0("http://boundaries.wa.gov.au/",
# "electoral-boundaries/,"
# "11-march-2017-state-general-election-boundaries")
# x <- download_ShapeFile(exdir = "temp", url = url)
## ---------------------------------------------
Run the code above in your browser using DataLab