From ff3a41b1c46d7d89d196956039c914aba457817d Mon Sep 17 00:00:00 2001 From: Carl Suster Date: Thu, 11 Jan 2024 16:58:38 +1100 Subject: [PATCH] Add Greater Sydney boundary --- NEWS.md | 1 + R/data.R | 4 +++- data-raw/.gitignore | 1 + data-raw/sydney.R | 35 +++++++++++++++++++++++++++++++++++ data/sydney.rda | Bin 0 -> 11952 bytes man/nsw.Rd | 9 ++++++++- 6 files changed, 48 insertions(+), 2 deletions(-) create mode 100644 data-raw/sydney.R create mode 100644 data/sydney.rda diff --git a/NEWS.md b/NEWS.md index 2243989..fece897 100644 --- a/NEWS.md +++ b/NEWS.md @@ -4,6 +4,7 @@ * Fixed the `poa_nsw` dataset to avoid strange geometries near the state border. * Added geometries for Lord Howe Island, Australian Capital Territory, and Jervis Bay Territory, and a utility function `outline()` for using them. +* Add Greater Sydney boundary as `sydney` dataset. * Slightly increase the resolution to 750 m instead of 1 km. * Update to the 2023 ASGS release, including the 2023 LGA shapefile. diff --git a/R/data.R b/R/data.R index 2863ef2..874a4b9 100644 --- a/R/data.R +++ b/R/data.R @@ -49,7 +49,7 @@ #' #' The geometry for `nsw` has been simplified with a tolerance of 750 m to #' reduce the level of detail, whereas the territories maintain their full -#' resolution. +#' resolution. `sydney` is simplified with a 500 m tolerance. #' #' @seealso [outline()] #' @source @@ -65,6 +65,8 @@ "lhi" #' @describeIn nsw Jervis Bay Territory boundary. "jbt" +#' @describeIn nsw Greater Sydney boundary. +"sydney" #' Geospatial data of the New South Wales administrative boundaries. #' diff --git a/data-raw/.gitignore b/data-raw/.gitignore index bacd194..6be639c 100644 --- a/data-raw/.gitignore +++ b/data-raw/.gitignore @@ -7,4 +7,5 @@ MyHospitals_Public.zip MyHospitals_Public/ confirmed_cases_table1_location_agg.csv STE_2021_AUST_SHP_GDA2020* +GCCSA_2021_AUST_SHP_GDA2020* phn.geojson diff --git a/data-raw/sydney.R b/data-raw/sydney.R new file mode 100644 index 0000000..72ebede --- /dev/null +++ b/data-raw/sydney.R @@ -0,0 +1,35 @@ +gccsa_shapefile <- "data-raw/GCCSA_2021_AUST_SHP_GDA2020/GCCSA_2021_AUST_GDA2020.shp" + +if (!file.exists(abs_geopackage)) { + # https://www.abs.gov.au/statistics/standards/australian-statistical-geography-standard-asgs-edition-3 + message("Downloading the source dataset from the ABS website...") + asgs_3e_url <- "https://www.abs.gov.au/statistics/standards/australian-statistical-geography-standard-asgs-edition-3/jul2021-jun2026/access-and-downloads/digital-boundary-files/GCCSA_2021_AUST_SHP_GDA2020.zip" + download.file(asgs_3e_url, destfile = "data-raw/GCCSA_2021_AUST_SHP_GDA2020.zip") + + unzip("data-raw/GCCSA_2021_AUST_SHP_GDA2020.zip", exdir = "data-raw/GCCSA_2021_AUST_SHP_GDA2020") + stopifnot(file.exists(gccsa_shapefile)) +} + +library(sf) +library(dplyr) +library(nngeo) + +# reduce the resolution of the borders to 1km +tolerance_m <- 500L + +crs_nsw <- sf::st_crs(7844) # GDA2020 +crs_working <- sf::st_crs("+proj=eqc +lat_ts=34 units=m") + +# st_layers(gccsa_shapefile) +gccsa <- read_sf(gccsa_shapefile, layer = "GCCSA_2021_AUST_GDA2020") + +sydney_hires <- filter(gccsa, GCC_NAME21 == "Greater Sydney") +sydney <- sydney_hires |> + st_transform(crs_working) |> + st_simplify(dTolerance = tolerance_m) |> + st_transform(crs_nsw) |> + st_geometry() +object.size(sydney_hires) +object.size(sydney) + +usethis::use_data(sydney, overwrite = TRUE) diff --git a/data/sydney.rda b/data/sydney.rda new file mode 100644 index 0000000000000000000000000000000000000000..35344ab485fe17d7d461d44adffed149963664d5 GIT binary patch literal 11952 zcmV;hE>F=yT4*^jL0KkKS3~KM^*sr-GBA@*Q)CmOrf317rl+P!hN>A%OhKRtnrdSpO`wbcPc;}u01=4O38vLNm{V;NO$-FU z5vkzN&@!7-0j7bV(J?lIKqgHvCKC|U%po$Lg*=*KP^vTp(?+HmXaJ|CsrjjbPXc96 z)jv$8Vhu2<_!^kekPIf115FsFX_WMsjZabGGHRanOv01R21ZG;9;4Dz@J38b69F)k z{WUyE>8a?Al|NDyLqJ9#6Hh`g0&JQz#AQe;u>hvO(WFA^g)rKk%^#a8Z`A! zLV7Y}(X}V3o}grCX`nq#8e>9eXwiX9nvF7;o*|U<(^F}qP^zDhOcG=?X{HgRY?_)L zqefHGekypA854SmrWioT)cs8~ns|q#(LA1`MAIglYMVxyo|s9sHc6-H8W{{t1bQc= z(>+u4iH3=_Jr7B#=*gt=Pt`V=Ks3@xkeUKCG8$^0(NAeMl>Hht9+T0aGEY;|F{4I= z+5&n3pie*pMLab&fS86;!7^mX^q5aUGGRSTjWIB$X@f#!WWdopg*Ht!2!DX6LAD7% zNofNhAN%j0;9PbbeA5U*{`r9)6fc`%Fc4Z(kn|wLVpKO|#xR!?Bj{`<9kxCI08m0J zpoO>1)Sw*%Z4T+?0gHy;&fe@;T#OUBH>iT5K!7NS5?p`+kcgF7M7;;9A>yAa9g%`4 zrQ#wfK!LPG1p+-Jq62RtC)l;KVAO5PouJfN(cbk$cjq4?+t|CLq}N;UH4RIZEaI(G zw=3UtDnwP$2OOdzh=0$QsMq*BzQ%hyn|^us;IL$jjS=WuB? z5O%RYpt67qxSUG z2kA9IaxpC}jHj9>Dfw9TP0~CHo{i$BQ&T~(bK}2hYR~Zh`dgDQ=?z4=GFv>0`7jf_OAP!kJC)oZp3 znFSRjTEZI;9E1FO_?}s0_L#M+J+b(srNf91OS{C5JSfpngM45O&u@2_efg}4^hp&x z*1Rzfz?JAnECG~QLB1A(5|w1o{Kd61+M0KxN8MLQr-bYE&24q4F9xk9fI7B}Mj!wJ zHS5tAxy?KHr`ATNjT;5n3E#?J3`j{F?(|^&2d8bswYVX4dZ3Bvz*6bZEk_l zmyY|snAC1Vp!sV)=_n_7&sex?UEH!_AtX=EsLa2 zz!gr?bF%dqpwFVoFXu%G_$}#LIAKM6`ZzE-9?5uBuX#=WcicblhR#b0bR~lw0*t0& zfU7^qPD?jTVHIYV)x;V)i`_14vcca{xZfyg_`UyaBjfxr@B$`w3anPfhkw7p*@0{6 zJX_I|r=a6KOLnKzYvl&I~L*A(>nsrYTlu?w}QR`-$Zk>@@*U)uiaa65;UF=@3s zEWC0$8-si^WR64R%|qv?Qhe#?C>h?LF{fiw_C&X!J1*oyZOE-NwAs6Mb=jxw1_35W zn(;d4Q%9rKogtmE$$nkt=1$tBYkthfInr2vOGk0p?=Q(-`D=^=Wn9tLP<7ESoenXs zpIw4NCChuSVX>{6YVB3heFGqwzJ5ml?pB0i3Gvv|X&pbIbFuDO+g6+42#`I_QG|eg4c8xx zIAv%q*95Opc;8yPDJjR<^yC%OsP772A_vauJ`Bl;n3irj51df`KNHCs<6t{&|T zg^!2QwK>-q*1%qLh~w>WJ9wl^)@lAwXB{9@%k{E4%El{6`(9EXmbe!2FgtN`6aDkR zDN^B}+OWq;Zzng-m#$$u;_BETlRAOdra2?aRj!&HZ7Z%ge)Grot(&=|H1^49kLq?( zQ`m_1oUK!LkFS{J?&Cz7!F^li12zcdQkJo40QVlBvZjIPZ_cwKu>t*f75Kr&eYl%Z%X@O~q9wY)*7Y<$M=@A$me#V39Ek0v}q}tTwQ(R4B5)#`Y^p8JK zrvzkyYpw&+(-TLmH~Zw2WG3B(UNNl8oqC>%XdK$!R-lb&Z51JN)-yGyS-TS;G>DKnd|N>5qS z_bg)*YPRg(JVHceTkz<%vn@aC`kR%RU>WF#S2QrxIMtBOCU*!G!q;8_*`JZQ4c!~jbvr)&`% z%QKt7)04!1OCmyU?$dJwi7VVP>BD%9y0JHh+Uq&jdW^4H3KEhM5SMR>_1g1`VU>bD z6mX_LM3E6CsdvLIJj~7D%R!nufrejhY>*4Bu7JnUFoyrdkV4$Y<7-U4oEbc1v@5Ci z%ugzF&_-PUdU6=*tA8Aw7ZPC2F~1m;fP9N-_~O*-R3|8}YPthBtT zT(-U(HNw`mDyW6g4y45DsoPufZx27-q<_B-0w9H^KGa~eOX_v8*bUPgzrQ=1rr3V- zKAKHnNq0$_;VFmY#5VVFVcx{PxtRb0%VMQbIo$hmv1`_En9Nn5>bQ_0nIm&cL#nEz z$$1QA%sGJC1mAxh3mDX%sjrzL+oiUAK{BDj)-#5CYYZXu0HVN2j#t?5;}1zU<2&3G z`ps;pZx-nnPJHb*2Z6q!tN*SHV`nJQZGBK31l1lHvzq56z#pr8tWlc@7)yuCa+b>_ zv*?jO#k2~0PRaR!*^{|{n#=j)ti0*2q(Adku0I)Nv+Mf*>6x~a%Y-;hG!;nhY332y z5rE)$b#!KFZfE}Zj@JN2O$wd(aEZd7@>ev^|Ra|%bewbzH*I*^Ys;9ar*m`Mc&Y~SSsLPOzs#hNUZ;n|1$jD zvxv}GiI~&W1e)?F|L`!X+4sqa^`7~!O0#zh?0zS`!NbDOme>F6%gMRn;oq!ZKpzHg#bdmd>D z+B@?7aY(sB^$~SCN~Y3KL2Cg!hZdea(c9DdQJ2DEflX0_rQ(SopSFGFyk!@>7SxCk zmDhaV6Qi1rSv`**wbNLXr*U0c^2c$3@@jc9BaqH+pFgb!nAuxIy*s(7oO9y+JWQLq z67OA0jpRZ0%KVYW9O!>S_pkp9QjJZKCbJGZ10?0asXo0|Hj+ejR(((4zA}F5^w1I> z4HLg1bqPw+=`LPgrIpJCU2^MZ+_OTbiT^v<@lX}=bFdkt6RO}3i_{e^mH=6@7YKi* ztU5GILr4ZQo#&p4SZiClR>AoQBp~NkLmZ6c)=FIcn^HpQd^V}qClNX#@1rW>^{u|N z7sJ$|@U;H5>hy6)e=caB>MDkcE)7Yv z*M%U3g2hhEbA`fN+iLdzmu-El8=N7f(cb>e@dt2^-@hIX(fN$>u)YM#t)gXLS86ad}@=DFTciN+8 zCv((M&(6gD9ZzFR8>Usu!vu~&0$=(lWM9}+E#Jg?=fi3XYOGUBga7pH4^uVhNlb!d zH^)-k(ug+I=5f<{{X}#u7dtZ7js!7!PdyayLty`H~BisUs z+u5v*n2f9B*cb_ub~KdNKVdKUT#}acG|ZoQJW=!`Z2l$0kXW zgExzcZSL~2&GlG4sMqIe6%C;7KerUOAQ6lZfFKD@P$cOn8AYIPE?}k$$skk&zJk zd)L~uHr=O&(SCI=c*>ZtmNhTe|1BZF6)^L(Wp~t zDwnS;OHFaegjNEQ+;dY`zsNn`*Dx}t%61G^lOe5gHla^qUaISv9@x8Nn*%CaVpEk2 zty&Hf+$;-5SO$P(Y74C*2(rK^O=JX_4=b6tR}_<~KQY4~-J{R?8v&qg5cI@&3sy}n zUvs=KKm8$W0iUebKouJ(G{5Ecq(ADtBB$aQT$26En`9efld8b)3<9 zHc%f@FxmU81Q1Gon5LsZRB={|?Jfzb zjabK=Bz=n7-MM%6y4#t^xWs1AI7GZ_nj;p%lzn0BEp6JBtRFu0-dVI@PDkWreUIzi z_T)@J+)ao@4O$(zNPXa8AP%+->>Y>fDW-C&Juz(LU1I#Kj;-uyfuSCVn?(dl-LeRH z-*HS69cYZkd^=AC_g`Xgb`zjL1pe?a!^))Epegl!^IAk^2OuB}aJn~?TKOJp8H9t+ zTVWe>`Rk}f(`(?Bcfa0x0qD8aW*6J&O60X?D?ne1OjWyLYsUgP0L_uFE6sOL56R~| zO^!ahO+BHa8~k%V-PaL4$zAC&ZA7uOSG!{HxxBYjz=PEYUTyQeuFqH?u%?Z{FtsM)B}Mp) zfnX7!`&oVJY%u@Hf%zWh^f0QgK?nls0@DtU-oA&Gat`VkkqHpaRdXr+6b5*M*%j#UR>Vme5pv-hLG!V8u1g?N5^5XNv7?U>Ou=!TSagw1P<4}PAiDCFjsLyIar}oqd zV5auc758PTisRJ1STf$Z;Z&uV$k^(0+#QW6p-AzR6ueA-l*;#=fy?jji*u+E{bHp5 zGf8xewsjFJ&}=stHzr_lr{MywS)du2!jSBjSn%<;8E*{605oK3m?#xvZN`>DbySg}Vl8QX*$b_P+w+&kH2O2fkq8h|ArZBIYN&+p5zoqk30YvQ zhz~|ttk1*VzWVvy9|!M~{qYb{APN=FMyL@GluT9%|FeVXPBLBY&b`IDwRvtJq^qy5 zW3j8dEps8mMH>Ywge~`RqTi>)&YlHFSxu@iD^hNqisvOuU0WEGHJNGl7!6BpA@X_) zii;k&vwt*pDH*>g%tjtapfqcJ+7%jyan=~2oJot#WY$~Ek@75`XUd@CyTN3jE`Yyaj!_@O#o~b|^?L+~V08FK!-|TOC6i1ckt!sRBaXPSH zMMpe8moQ9U?Cs6!?IZ31Y`EUTVLoK!j zXV^Y47+Lp9JJKM89}qE`dD3A0KO>Ug!X)yfz47ZG4ezxJ>hLFdu9?F78KKm1q2pGLd}oy-hfPxO3GiYC4) zGq|SF-=n`DSuA4-n@<|$(5D+}r?JvGgI~)@(bklk1m-|ogy%UP->DVlg3q$Qe!4;p zDQ0I*(pKabvBn#B3aaFZi=zO5oP1@@PhjKP`s$X_Zk;SY43>Ocz#R%bsMhj@-Ztl^ zY!+El!gX7#i5vztV&I`k+tN_nD<)7&jR$Bf+ld^p@{(7yE3J}Y60VXA(3geAO_*vh z#W$CHAfRFG3jse?Q^QOygUdd4A)@N_*=I==kL&MLWudx5~Vs z`e1o6NA$kjSOepowcgkJ-DgG9n>GpEiPZyy1AM%A7%s%D+6JcWiRljH(wi042u#30 zFZxHmZIBI-Oez`HqbBF4YW9V2@7rxvaew);_z(FJ-Y=m2g~Q0e9WWIBc>wJy9*2OY(Jr~t3d*f@PhUSBO@KCP#7uN1;4oD)3>r|o%_`f6XiuVSkISIqGO@F z^4$~p7BqRpjx8N_&Nhn{N>WCzZmkHgljOcEI=(_R*T-vV%9tJdg-_2&CX~%^pQ_Wt zPOLMF%D4v1WpiGb?S^npv)KxPkYKtvr>c#kSG!dZplma?V|l!$ZB^C%&urY_aQWC1 zQUzAHQjn|?C4Ni5r4Sd*bi{CxZf>o|?sfcWWFO--RoeL8R|NW8-cQnPH&sAA<>36Q z^xj2?4hSjq^0mmw>Ep@dTD|NVD`uf?)%Kod1SSp0nure_R2%z|!a<9a zAN^!fab|vhN(MmW-=2#~rAzJm&^nAB-RI~I>6NsTxfyV6Qj7HPzu~XTl8lUB&!73a zm>gwq1VX=H_v|}B=uq6F18gm3);E+ps3--ML*Zp8tWqtfx?a@0cNq-AF$Zs2K;>>& zuEceI0pCGDjZUFi6vC*S^CXR&?iRM@!A?ijU4^i4fg6N!l9sG0(udlQfbQ=kU#sF) zaAmgys0us%iBl}D7WQFeGIttAoc(LUif{>*;y(1XKTj?)$|C!J01H$eYJb#}D>J@j z%1i<}!FQ!dH@W`xmylQSLx!M#9@}2pks=d{lRq8o9+xv^RgAo2Nj7jS-;Um=wrXO1 zte2pD9`*+fQ@Q}2!1p4IkS6aME%uCDFX}s_(sm_AYhuGpmO7pRgXFitzU+-~mAZpG zMmf0Z()1a|gM{e3?^f6r61LgDZHx$kvZ(?xNIjQ+idK{ zJeNRmIn3JCAt9gm&1kIZ-I`%vLHyx9?Of?%g3#l)iEn^Q9UXG>eRb8XTeK1Dy?zW) zL&pmr%r68DU--%`U+}ImpsNRo@@&|Q&G{&zTLJ(IF}N*iW9@}y`gbV+C8Gd-h1=c) zhKPya1Q67tbBt!p!G}rZtf9!9SMCSbx$$>9t42^&RLcLVkIUD@OsAgjW55!PbNG$> zpo?t!PuqH$GkHkW)r}WKBC(7sJ8+v?=#<7K84sqzx4q_v$C&<{x+H*uPCr@x*S~r^ z?Y$}K-AN9aqyM1$vhj4?8nzR&$Ml>8a``v5Pb}9ylkRfPE9%$@MbtR9{w<<0@opQ= zKt#DO-WQDPRce_%6R52;zul_n_G6vt&RWKf#lg`^eqhO~tTqR&N}yE*9QEab1x>82%<V?KL-Dd}2hmmehB5xcr$RT&d99wB=u@G@*^ zsm!ekc}`3mPO4GnKXK@(m!hzqIJHLO_e(`IUu4C5$h?Hoe9XEAaiP=bURQ;ii&?j{9^muQ< z^yD*cZu+EgL~Iv(GheF4jw{vm+t~Pu4W4K0$(IxcjSi+f47ppIO+J+DcO;OrS*$7gul-c`@Dh;u6YyW7m3 zBH7%cdydi5Wcq#%eywSHcgRL#_+Z&WdPA>5<*mQG$o@(r?K!=wW8|zaYJj;PkT+)k`M2b$jI&vqzobCoFGqu4V2y64}e|#EmR2 zvwbU)UfD|uevJ>U9n#_F5*2RcqXxm`KS+CRKRZsLW4Tp|l*fvj<}b6g;rznJ*I>2J zO+g|$YutR(FgFNZuGU*rFW%nVn>o)@F^aLN->OW$@f9<5F$)rq^()%i z(l*NRRpa98`*ii7f%TwzoeBTEkemvGHEjaATWzh%E6e>26X)Qq%(0Hm&iQlwm~8L9 z>K$(JVhI((Z~i<~%HF-oM8&u=cW=Jtqh?Ehh)oS|Rz97~TcY!HpPz=ZzK?q^YV*v* zV3XT3=^9Jg!D6Dl_W82Qjj@X$vfhRA8iTNA=ck7E9z4!X=L=(Yg;@(2>$7X!|P z;XTT68^5m<2fpRHN~9xyoY@<^N!8Et1Rd&vpP5%{Q?bDl3ja%V5$rC?#NVB^PkwKy{{})UNO$>9 zkcyUGk_lx-m)57L%*nzWG9%L?RWr93L@umvSvXHQSorPqk-e6j4`d%YVTD11ATF!84d+`t8NP8TMI?+jsU#E&IiKe2+FT#X9VPFpGVauK?i95!* z6a$svrgc?+Gc$wsdD;@BLlJ`?ccCm8|;Sv0Qm2KAz(Zx3Ex+_$~#hQtBm zYdHDP91LJ=JI*N4RcXTz{%@RK!LyJ;n5`2|%8DKa2_RY@OA;eT-d3)wX5rE35Q6kI z^l3}{?1sRkJI$(tTeq{kymA`oHr^YUV44&|E}sGc!a@ zi0&}b+%y$<(1T=WQPdFZ0-rdAstAZikR$s=jEM{udpz@%8b7`xrO84UdAAnSRpjcz z#gYH@VHp6^_~x~GV)@f`+Io{gc5tRXHBF8OQVu^L)5;ZHrLTn5bH9saXI}qR%;Q_S zz-3wCK7K@7e1||U$gy+_3r4vEE^M#Qd1B2n#>JCF6j`Dx@waDPEZVsC8bPd~dvH-X zF|mTr$bnxm(t?#8dju@vQ|Sx>B;p)=UuMqg383)bTIey5ZcA|>G=HYqf9DM~=ClXx5}GdY|7!Uxy%D_nblXM3DvSko(%TRzZ0dq`&mB* zqU~C?fbj4QZI?<#YL8RrqP+BCy%XN-RxexWK;b9vY=jvp_Qp1j}NF;ArLs4&(dEqR*Vm-RZL%(s z5FrkxN~k)@BYxLmOY=00L_pMs#Zn=wfIPfVo&)}QUecF6W1!)&`-oop&sk}35jpo& z7JwlnoXyX8SPWD^^RCy0t5$lDKK`E7_+K{9aAgK6;~L352c*t!@(GYI(VlHx{lAk@ zIM0@LNr*E93J$HBL8(dQ;t|mK7Y1>%M{(KC*8e_sc-_dwQ5LyZe&C1(I%#c6H%@89< zVM_4`^ub#f`81^yzEKA6tfFLrR(zl(nN<=cRClqeIB(Ew0AhJ6lQC-=U$XHm1Kubl zCRAQXaLXCe83kKnXX$Eu3O-9@pIoG16{0Ns6#>ivRP~6PBdSm|Ms$c$5JQq^ohVI_6|#&V zYYNV+yf)(n?7ESvQoYMM!_Fuir%RzAdhJs)>MjuYj~RGebg8nD82*2G$cD7BP7jLd-nQcuMY7=*rrtxilXUi zpvl8%9OCL>cXLNudME}=)w<#6p2X^;R@JP(nu?)C*o2^Gf(+%8k(Dj?Mx_i%)!%gv z+UVi858C%tS|9e!{ffplZ4HyPu3jeQ8V-(sZ&zYgjM)_;B4AY0qoA5-qXS zaaXHL9jpS?k-Tt)lE)3A9C8O}=X2YpC0SFo8rwv5YVS~V6*RuW+$IRh5itDA`I}nl z}!5IfcdDwQ4i({J)h31TbsiEwDlucG;c>jf$)-uiWDyH6tPyUBRgb3g@AB9f(tATV^5p9a<|`PLyEl)b-4ogx1q;?MXl*WZ? zWY1_(xF-#|BS6DNU8vy4Jcc@*2MA;w9A0dc($>vH(-GkIU}pxe`9gP7N3{iO literal 0 HcmV?d00001 diff --git a/man/nsw.Rd b/man/nsw.Rd index ea6c710..ca8251c 100644 --- a/man/nsw.Rd +++ b/man/nsw.Rd @@ -6,6 +6,7 @@ \alias{act} \alias{lhi} \alias{jbt} +\alias{sydney} \title{Outlines of New South Wales and relevant territories.} \format{ An object of class \code{sfc_MULTIPOLYGON} (inherits from \code{sfc}) of length 1. @@ -15,6 +16,8 @@ An object of class \code{sfc_MULTIPOLYGON} (inherits from \code{sfc}) of length An object of class \code{sfc_MULTIPOLYGON} (inherits from \code{sfc}) of length 1. An object of class \code{sfc_MULTIPOLYGON} (inherits from \code{sfc}) of length 1. + +An object of class \code{sfc_POLYGON} (inherits from \code{sfc}) of length 1. } \source{ Australian Bureau of Statistics. "Australian Statistical Geography Standard (ASGS) Edition 3." ABS, Jul2021-Jun2026, @@ -30,6 +33,8 @@ act lhi jbt + +sydney } \description{ Lord Howe Island is administratively part of NSW, but as it is a small @@ -43,7 +48,7 @@ sometimes useful to include in maps alongside NSW due to their locations. The geometry for \code{nsw} has been simplified with a tolerance of 750 m to reduce the level of detail, whereas the territories maintain their full -resolution. +resolution. \code{sydney} is simplified with a 500 m tolerance. } \section{Functions}{ \itemize{ @@ -55,6 +60,8 @@ resolution. \item \code{jbt}: Jervis Bay Territory boundary. +\item \code{sydney}: Greater Sydney boundary. + }} \seealso{ \code{\link[=outline]{outline()}}