## Not run: ------------------------------------
# fl <- "vignettes/national-midmif-09052016/COM_ELB.TAB"
# electorates <- getElectorateShapes(shapeFile = fl, layer="COM_ELB", keep=0.01)
# library(ggplot2)
# ggplot(data=electorates$data) +
# geom_map(aes(fill=Area_SqKm, map_id=id), map=electorates$map) +
# expand_limits(
# x=range(electorates$map$long),
# y=range(electorates$map$lat)
# )
## ---------------------------------------------
Run the code above in your browser using DataLab