awt_po <- disPo("AWT")
awt_bg <- disBg("AWT")
awt_pa_plants <- disPa("AWT", "plant")
awt_env_plants <- disEnv("AWT", "plant")
x <- disData("NSW")
names(x)
sapply(x, head)
z <- disBorder("NSW")
plot(z)
Run the code above in your browser using DataLab