From 1426e7ad63e8a27273d8cc667b51d69a8ba57832 Mon Sep 17 00:00:00 2001
From: Richard Martin-Nielsen <richard.martin@alumni.utoronto.ca>
Date: Thu, 16 Sep 2021 20:33:41 +0300
Subject: [PATCH 1/6] Transfer Estonia code into new clean branch

---
 DESCRIPTION               |   2 +-
 NAMESPACE                 |   2 +
 R/Estonia.R               |  86 +++++++++++++++++++++++++
 data/all_country_data.rda | Bin 2817 -> 2910 bytes
 man/Belgium.Rd            |   1 +
 man/Brazil.Rd             |   1 +
 man/Canada.Rd             |   1 +
 man/Colombia.Rd           |   1 +
 man/Covid19DataHub.Rd     |   1 +
 man/Cuba.Rd               |   1 +
 man/Estonia.Rd            | 129 ++++++++++++++++++++++++++++++++++++++
 man/France.Rd             |   1 +
 man/Germany.Rd            |   1 +
 man/Google.Rd             |   1 +
 man/India.Rd              |   1 +
 man/Italy.Rd              |   1 +
 man/JHU.Rd                |   1 +
 man/Lithuania.Rd          |   1 +
 man/Mexico.Rd             |   1 +
 man/Netherlands.Rd        |   1 +
 man/SouthAfrica.Rd        |   1 +
 man/Switzerland.Rd        |   1 +
 man/UK.Rd                 |   1 +
 man/USA.Rd                |   1 +
 man/all_country_data.Rd   |   2 +-
 25 files changed, 238 insertions(+), 2 deletions(-)
 create mode 100644 R/Estonia.R
 create mode 100644 man/Estonia.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index 86fd1d5f..f6529692 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -121,4 +121,4 @@ Encoding: UTF-8
 Language: en-gb
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
diff --git a/NAMESPACE b/NAMESPACE
index ce3bcc43..00588964 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -10,6 +10,7 @@ export(Covid19DataHub)
 export(Cuba)
 export(DataClass)
 export(ECDC)
+export(Estonia)
 export(France)
 export(Germany)
 export(Google)
@@ -73,6 +74,7 @@ importFrom(dplyr,slice_tail)
 importFrom(dplyr,starts_with)
 importFrom(dplyr,summarise)
 importFrom(dplyr,tally)
+importFrom(dplyr,transmute)
 importFrom(dplyr,ungroup)
 importFrom(dplyr,vars)
 importFrom(httr,GET)
diff --git a/R/Estonia.R b/R/Estonia.R
new file mode 100644
index 00000000..046bd465
--- /dev/null
+++ b/R/Estonia.R
@@ -0,0 +1,86 @@
+#' Estonia Class for downloading, cleaning and processing notification data
+#' @description Information for downloading, cleaning
+#'  and processing COVID-19 region data for Estonia
+#'
+# nolint start
+#' @source \url{https://www.terviseamet.ee/et/koroonaviirus/avaandmed}
+# nolint end
+#' @export
+#' @concept dataset
+#' @family subnational
+#' @examples
+#' \dontrun{
+#' region <- Estonia$new(verbose = TRUE, steps = TRUE, get = TRUE)
+#' region$return()
+#' }
+Estonia <- R6::R6Class("Estonia",
+  inherit = DataClass,
+  public = list(
+
+    # Core Attributes
+    #' @field origin name of origin to fetch data for
+    origin = "Estonia",
+    #' @field supported_levels A list of supported levels.
+    supported_levels = list("1"),
+    #' @field supported_region_names A list of region names in order of level.
+    supported_region_names = list("1" = "county"),
+    #' @field supported_region_codes A list of region codes in order of level.
+    supported_region_codes = list("1" = "iso_3166_2"),
+    #' @field common_data_urls List of named links to raw data.
+    # nolint start
+    common_data_urls = list(
+      "main" = "https://opendata.digilugu.ee/opendata_covid19_test_county_all.csv" # nolint
+    ),
+    # nolint end
+    #' @field source_data_cols existing columns within the raw data
+    source_data_cols = c("cases_new", "tested_new", "cases_total", "tested_total"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Estonian Ministry of Social Affairs",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://www.terviseamet.ee/et/koroonaviirus/avaandmed",
+
+
+    #' @description Set up a table of region codes for clean data
+    #' @importFrom tibble tibble
+    set_region_codes = function() {
+      self$codes_lookup$`1` <- tibble(
+        code = c("EE-37",
+          "EE-39", "EE-45", "EE-52", "EE-50", "EE-56", "EE-60", "EE-68",
+          "EE-64", "EE-71", "EE-74", "EE-79", "EE-81", "EE-84", "EE-87",
+          NA),
+        region = c("Harju", "Hiiu", "Ida-Viru", "J\u00e4rva",
+          "J\u00f5geva", "L\u00e4\u00e4ne", "L\u00e4\u00e4ne-Viru",
+          "P\u00e4rnu", "P\u00f5lva", "Rapla","Saare", "Tartu",
+          "Valga", "Viljandi", "V\u00f5ru", "Unknown")
+      )
+    },
+
+    #' @description Estonia specific state level data cleaning
+    #' @importFrom dplyr select mutate transmute
+    #' @importFrom tidyr pivot_wider
+    #' @importFrom rlang .data
+    #'
+    clean_common = function() {
+      self$data$clean <- self$data$raw[["main"]] %>%
+        pivot_wider(
+          id_cols = c("LastStatisticsDate","StatisticsDate","Country","CountryEHAK","County","CountyEHAK"),
+          names_from = ResultValue,
+          values_from = c("DailyTests","TotalTests","DailyCases","TotalCases")) %>%
+        select(-Country,-CountryEHAK) %>%
+        mutate(TestPositivity = ifelse((DailyTests_N+DailyTests_P)>0,
+                                       (DailyTests_P/(DailyTests_N+DailyTests_P)),
+                                       NA)) %>%
+      transmute(
+        level_1_region = gsub(" maakond","", .data$County),
+        level_1_region_code=gsub("00","EE-", .data$CountyEHAK),
+        date = .data$StatisticsDate,
+        cases_new = .data$DailyCases_P,
+        tested_new = .data$DailyTests_P + .data$DailyTests_N,
+        cases_total = .data$TotalCases_P,
+        tested_total = .data$TotalTests_P + .data$TotalTests_N,
+        test_positivity = .data$TestPositivity
+        ) 
+    }
+  )
+)
diff --git a/data/all_country_data.rda b/data/all_country_data.rda
index f95a7f512e7e80dbb09e85e5338935b82dd03b6e..cf06d6ea056ed4f3229a4e09ead3701b4251a0f0 100644
GIT binary patch
literal 2910
zcmV-k3!(HvT4*^jL0KkKSu2V^fB**b|Mma>Z@>Qk|NQ^|-|)Zx-|#>H005vs2m*kh
z00H0(KN%9<%?5>m7!3e)A5TC43IGHp5T=<mCz>WQYGjR)W|8F7^)%4P(`p8QGzNe)
z$?9Tc9#8<%OeWBZVi=m66G&-@z?n3}U=tyeMj?{|VldQc>SSPW0009(000dDGynrY
z01W^D00T87G>M5c^)eo#)NLcw(9i%HGyniSAkYSY000Ic&;S4c0MGyc01W^D00000
z2@(hh&<UoRnlv&rPejNBo`m&1BTrM)Nu$V*YL87%Pf9S#AF5<LpLzu#!wmW%7PN$q
zEvb55_MxBi4ijl^w!sJPXk`9R9&2azU;gFEE5tOC2>bn31jZjjM!|i*f2L?a1sIn0
zgVUG#eBU3}=`O!pAi_=D|ADNbFo4K_pDca|l$vTE8ciwDyPCSvBm`+v5<rrIGl%Jv
z9wx4=$0dk>T!H_@=pqbsb5@ZEf{kylHU%v9oQw8QTxgw})a<$~&5RPaJ&{P$S>and
z(zEQIRIFJnrF6d6d;iCVRrzBIe2*;9Yh@g+(<O`S;0Q;NBq1<KBb9_Pg9$W*A$VE@
z2k>W+phtCx47T8CHwr?G>Wrv7LsB51lm^gsD9Nz~8Yx%}d!|(-1Tr_6d7&c7jA~9*
zF~%IXy^v#s8r8w^SYSU5Ho3Awvq*tfP-9DIw6qqmSnI%K?xIuC0BB)qIvQ4gS`#nl
zllN|1adg}HK$IvHMV}jP)=KfY38P#JsH&o?8MuwRbyUzfI8>^ID26yn&X$~k0tSFg
zb)S}T==J$|dHQa(mdM9U>U8XNB6V_-mNe=#UuHVuqY3%2GrTgUmipG28aC6soyo)m
zK-+CLVq-FuTKMXbvuZfE-3y&E?Z|j<JXL;lQ4As(OC6SuD-w)Gpjx0M%5n$q<-oT&
z&RlmHMN9G?@_f)9z5H_eQbO|Ce;f9F8AD9X3f&>KbwrDMenT1DKB99h?HA!C6gbR<
z+)%%1ZR$&#yE5}#ZZ|=$>#PZt9jcg75smf+Z8qFY6*a*f&79nOW8@6u9!1PypBWl+
z(FK&(J8|t61k|fKD~eSwP(8d2oW{b8iJA^$aip$ZRa_$Evc$5)fMOYNN(ACgLX=62
zb`XVZrPsT^!%GKsLMm$yq`BXhF}G3m7C~`C0E-O<ZKN2I+C0`&u!1C8UALP@KWNA5
zwh3Eln9X^oenth;9SugZ-8cq=EK&k@ml6rRBLv0;g}I7NE7C%Qc-i)zBX^&>&+Yo`
zwev6b_{sccalMzw5pLr!VlqURaCnPiSoV>bcIaf#)g7e`TG7}WjYFyllA=nLa1rdy
zNfhM;G_PRMP*oE!G>Iftj&|al67{H(SS-v7JWM!WQe@=hpB?J4=wx(rh%)R1BZvKX
z%t<@!nXrjPQu>|zLIi=7?{QI=)M&m-0;vucCy0T-(NAE`UmEd~Au?*qi{Lj)yqkH<
zlt8lf6)ogwgK1s7(A~hnq85{K*_LfVG{eUy&_d*|(?Ob{0mP=gdP7DFYP6jSTPo+4
zx_j!|UPk=XrXW&z>1IW}!G=8tuofB2w5Al7ec-WKP>cKv^Vd@y+E+Q0r$WCK&B80C
zS+uMI1=ENI2`C&1PRg9?#i7-jbW>EM#a)CkiG#r_GmLt>8co9Ns8j}=QzTGBc~gd_
ziiMDbpkfOdXyK=rK2VWC(0`}i)zPyJ$6H2|@n17X0JAs2QishKq=qd7KrB0LM8+2k
z$4BRvtB?p!D8P~~Uc%l~;2G91cR}%M=UqDwLC_V$A32+ep<*AfAy<$!$lf)2pfn?B
zou&v|CK>}sngOKHn@EKMO;K8bPeFjcUHolUqQ&_%+8Tj$P|Olrmezpno`Xr@Jqm)L
zxkJ!)rP<0G3jj44yd|?<MuVV{t`V!Z8i|veZ^hy9ZZ{AmLV}wVN%>FW>xVb$G1s*7
z%`;tuF-T^C8Zk2%4pMKT7|zAwRuxwK-<annxeq@CCH8!>43J({zUlIcWqH%iks`%m
zI2$C=fM}9nK%NW8K&F#v1Ly8r^L3n}yyU3DzBb$#5JMN#z|0HYos)uKmx#`EK`@_<
zfl(_Fj;C<ojjk;lJ!+c*g0WT@MSMES2&Z$W*d|cU_ZN*M$#Z{ZS&Cx_&l+TYQ%Ub<
zRVb@MYnO(Y8uJbJVl;BK)97@ONPgKkLU~@-;0k9v#Ew#V+NP4^u#7MisyS!;Ldcc6
z0|f}Nd!?y^0Q4HpLUS!Pd`$)hQ3etH6DH>}Qk0>&5HvL{my)KU5C>~oX3;EBmGY4~
zU|>kI3^4Oq2894^Ab>)CRED&GZZ(;aaF#kyUXgSQ4MyeqN`}j=PTO=uiJ9i68lgfF
zwAH8jt~(fy*e?DzZ1@%OM)1z1!6J-6X8#p#Hd3AtJ;EP<$<ft)plL<~vKyhHXtSym
zKzJ#PveCS=fB}$ZNX(H^iosoiqEgGUC3b;~8*Q^d*bJ@^x-u<03DoJb&J<Y;5nogN
z`{0KPn4HK1=wD|KI{{J_^F71R{{~=KkM?K{ABDNj{a?_45T$m%f*7<LMv?0=v>pf6
zM`C{9!^@HF&);N;g$dC1k@(?5n*P;-{AdO2=Ayh*uvoi30l$BwGwCfsaqU4m+q;~y
z6%^;&y_@q_v-8oEC7F!zgpscSz%&U1VA^9)pwzaDR>r>%;lW%S4r=@+;Ty6=p`CFq
zq{uXMtVE46Em3~=HJqsGSvW<j@>*Jct~rVHhH`mrDYStjyv52sMoofm7TV5DM4GEs
zXx9w*p;R`Rx(x`xs<d7EbNy=@7I86%&Xoa~8m3+vMJ=(LrqDCr37nZ|ETy{6BqD4`
zprF`=Am=Q-E=r4BgA-eI@-k`guV}eoeG|?f8OI{1!Jxn_HcCTmBqqkh$U^~B^iS**
z!os5_ns6l1e6UQKKA2j6DoJ%8b4z<vz*j=}3`~k65xmKwzLZe#72xU*U4$a!U`T|<
zklh@nA_7AQFG9j+G0ne;c=iS)mVVL>v*hgkMjL>xk!p{?8%+7T=7puCD*{B)!GPK(
zFctQx3QB5LIU-^ze|qpLCF=&zJ@aBP4BW(iegAjpI9h04#iy0|i-R`13IMd_Bq;iB
zUT)E}Dv`SQLK_gR1Anu3dt7K|G34RI?S<+`)lkxS$OYr-?lSA)Kw?zO&)6PY&M6^f
zVlIZbG`oyyBNGNiLYz)Eg8u^VwP?X$mIyxh$1r%ZY-p-S3_K2yhDNjp&(?T0bYb8#
zoJWzo(XEPY@f@UxP{=rm)RLEaC@Z<W#Jf|n;NB1@vYIav!J1JOQ>muAnc6sEOrY2)
z#TY^>lD6H|1nEKv!zYkMu;E=$W|WYxD@cLFCMpesK+w}{Xl=WK^J2&}ibWG78IW^|
z5C&y28<mLfXf>>GF7*8$J(w`Mrol}XrXK32ag!0Y#44;;vZ@kQ7cq_qOPbTI?r#lJ
zE@h1bW+)LSt{j$@BQp{pU=m~iq)*ycP*nrQ+djUzhGC&v`}kRa#84AL<5F*lV`(@o
z)B}QfDM=(%0(Pk6wQfw*Utx~B$pXDzLMf>{8AP$7!63{Jog^xSMgwZ7fpesVdM4Px
z{<u5UD7@*QJjRC3q<7ei6%cZ4_xFbGpvb^jjO?1YOM?%Kaj5SF+}1U63wNe)ky#qV
zEcp>3<9J&tpu{Q)6F@1%CCep@%~b$A;-U*82?<<Av#%b4R-X@U+tO)n(TrmX=4@Iw
zy+oj6ZbTE`6Q1HDwI0DH3X*q=Ri)*({3ySWxVeAE|Ni{Z9ASOTX(Wg1Cg1#B$rRy2
IK&~kM0AFrUwg3PC

literal 2817
zcmV+c3;y&%T4*^jL0KkKS%lIgiU0<_|Mma>Z@>Qk|NQ^|-|)Zx-|#>H005vs2m*kR
z00H0&zkRsm@0)-R0mdGk+LR8tyMWO}3JtLdO-M$B#KAVH`kEuek13{TjGmy;p`bMN
z7}NmMMl~83N2CUWQ%xEZ5^Yf)qedo;G-%La3`{@_Mt~XsX`!Z1NvEO!Z~y=UKmY&@
z05kvtKmZK@0006+rkW<C%^*EbB*@V93_+2g^#A|>Xf$YO01W^Dib`cX6!kJDCPskC
zka~as0ib9A05s4v007V=NJfHa0%@Z{G*j9F1k)2nhJe#RXldmJPg5gCfuINeNfHb&
z%S0lrBqPwM8@?zH=?)>oOLc7!d*L9Puei3EzE$a!3s{f}8ei|dAu$-x`Qb6glZs>P
z!!tAp2EjjP(R<~9hJ_?Jp7K(b`83#y0!a&%!Lk?YVc@VLuNwWEjWIB%8wkKrlBYRs
zrMQYWiDgEGAlZoi542KBokp0F!ywq)jR{uV`7^n|Z3^;tNyHsFEIPDX7e=zAei__4
z*hsp~=eAER*-<>Jns>_7)-Omk%Iz{(zaIbuc@jty5)vB|1`yH`1=!L6K2~`e1a{bf
z%Vp+sY07eG=;C(|y##|G>u|nuqOg!F>!I<g%oQ*aIxrD|7_^A<g=tg;OpH=V0VlFD
zUDk);-_EDbSWgNH!eA0>+Nu(Oc>t+utRiZsS+7WMKvEkRS~>{Jdz@i<uiu#5np$-?
zZkS`lxkmEovbiKwQ6OzL#^N(0DJjhjsuUEHWf21)EYb7O*x1?|Vs3KY$~3pvZscFJ
zTPvW|QHU`&#DQ!=Gf~OBfn`pW>d+7j$cU_?X|y8cDuyiEPPFb$AR-3aX|od<l-(+m
z+sPjPC&?@2rk+0*A1|R{y0_@iL83cMgL%qAk_!|Bx0^%wZ{Ali#JK5Y75NX4mk19+
z?ri@85WJS(&3@0-lr+rHtDrWn>`1RijFm^-C78FIzX>Rz{pLdIP`*O9sV;8Z%guIN
zZi8LdS`#cCRWPC>8|@7?)Q~Cbf;zdl^p9|2G3F}9uY*1_L1i?~-cBW<H7h4YaZ3gB
z1KGgW%xfsfnaXn;w7SdSD+9`1Ogfl0(;9g&hA5JgB@#?((h#dDclUQVX<+WKBEwjG
zCC>c(#@$DpwhM|F1X^e_Z6L&!(dM?o(g>Ao+j+Ee^-O&Af>o)Q&3UJOa{}p(hND?s
zI0l10DFHjni3Hw}q%nbMT*W4p=t6{eS^UodyVJ3goprI>Zt*hlIA*iLl2d0guYFWN
zcT;RBs3+nI#VScueTVhOF^PY`J;sB$4NVOjV|L2A(pn^Cg*L5_TtJZ3!$688s>|F*
z);&rDSp|p!#{-S{Q3ST$r&8R$rcoxgI9nef_Hme6U)`+C8x=NsFJTxegm3JX9iE4U
zez1`<1MRL#d>#?)9hWxYN+Jm{;rI{qylu73bYlgH7!hj|G#;awap2qSICx^qd~KO0
zrc{#$ES)`!$l<2Ly1^*mT6L(84i%nMS7_@e<SNazjcs!`q_r`EjEND!i}U(!+{&LQ
z$Bf;xcfiqEHmh@E&)H7&qDM7IR2b2-nt|0xYY45ewbFtTA*gDr3aYQQ$LdrnXA?}W
z(@ilpZ78y+?@zJdL>-a|H|C0H9GoSvsu57;^<zo~AhneoH1h|%5-3oQUr$!M_MMFy
z52tj@{Go0?R>Fh0NNCC-BK|Ez#uXWdyB{{tAw1D}AgSps#fI?Au!E==c~@SO%yfrF
z82Tn|28D=u!WEl?T#iAj)d8d%MCxFLvSFY!iGV`FF#<`Du+GwhHR8e1uUSh<Q0LI%
z0`pA7B)2WC0mSnf4)Ntw6$QLJrx|#+hO*EOb2oUb*Nvd<5;ej#bjG4&=G*W5?*8L(
za@uES*`Q9xhYp~0c!y@_+B8i!OvQ-G0;@TzxF196yOJ|oEmTccq1G}9D~AH|68Pv)
z7SLEud^12&Cy-(!P+F}i17w;|nk1MICxY@2DS+Am@#?OoQFK-pCNQ30;KCq=FGB+i
z7M!Y-5=dEQM`{U#{45IrT8wo&hXieLQNI<2z@V*GLkR5FOho#-Jwjy+p5o!8nJ#a&
zmU5WF9+>-PlLi`@N}VK?+t{!*oHw<Iw{@%fPMQi~@QFebw_{&KDd`YzC7G=nOOnDc
zz*4Ys%i0!lS_1`oEnc})!GL~)S<+5rO`hXHfZ2R|ItjVVl%*(cL=819kv&8J9CfC7
zRSo&C%$9uxgpFmF7+pnDVRcZ%ZuYZXNd?!M%*eP)9VjnIx&?-#a{R@Cvek8Kq9jbp
zYGJArBpXdyeY?DD585u}ezL41cw(i&B8&jT-dpgtl<Z5^A@@3~U>PFfR*@S*>voN#
znMgBdvgQ@sdNNgRg{oSn0Xsm|Vxm&c;<?5!ZMMwgU^17&>By<!Ct=rZypS~E0}?Q<
z9B#d>FD|bXE&FyH?F=Tim)eINt=qoswvqgxZt^=va_x`w2CU2d?npA45i=bGB*D&B
z$7V9RBINSx`bc<vr<!wsoT)O2od(C00PpRctY@Klg%P2c7-j+#8Sq=JEpAzgN}L#X
zwGEC81J^Lgu~@)(&9x1oux+-`#-Tx_Y!;CAZdQjOzw4UBYs`y76~vs1nRToLjPfd?
z{jO^<VC*fNBCG6FsqgaUC)*5+{N(<j2uE$Bl-&f{LwK;rnu#@IR_NCZ_aRstO&vyr
zU|6ayy5;e#ZCMG7Mna%7IjUvhq*B`%yOjebuQ@a5Ev0pw<RWZHprF`=Am}Z<DhpHw
z2BzulvTKE$P74F|&mi|seC3F}pujCQN=>kkn;R1$4J1?XPx%UJ(!vRtVnV}R%NQmN
zDL8#3T+>n)A{p!&r1MNn<rXV4X!wycyi<dqJ$I0ck%1x;8bfq)n1~4sAiX0AoX0l)
za`Eg8Ni4Xa@1K9g@8P*CG>cSw0kq3EaL}~0g=k2cSTGwz#*!#xGG&1hOM*^zT;_4U
z7{kXgQozC1lI&z^c8(P^D^DZzN`^YDC?sggNfGeey&iL5Sdq5)LK{G;2Pdg_Z&YY!
z6UWQUbOq{1p1{(02od1!^s?*WKw?;D^t?gjyyrp|dr@>X!KKp1qA@UJSQF(LRD;_p
z`M0cWTM++C2GHAGh#@c()>vlG2*}m}=IlL<ovb^?M>zAF%^KLI-#FzYLWV)kCt)Qn
zx(e=ZSuQiUH-%N`CBe(J-gAp7J8|&)-PkO1eFd>T>v35arKpE(C_yzmf-4Rc)COom
z73GwO971BFXlNQ3+Zq_|3(adFyf-IcxE7(W87kV$CNn~1-ZESp3cY$hIxK*?!(gV0
zj6HQurc4dCp;)n02q-QF7lK?ZJ08~W(<0_t&|*+0Elx{A5t*S7G?du_M2Y&U>I%R-
z4YT9ym}VLkUtSjAFenM3P?O<fXmDGk2L$p`l1Q-vcBtD`wKGY5rW&s#3iWvirj+ny
z0~#z48G-Ra6@f9NO%N<}Ay|nv!%dWuS;?R?OKq3aX98BvhBqTDF>?aav9N;t%^>8!
zXkwUW6fWhpmmsd>&GIafsRGM65*{~%Q3fGEP?!R3E=$ynR1#j8rh>*uN~CK$FzO{~
z?eVSRV%?t@#ud!gwsbv2p|QCTPkc*pNbtv~NrNft97;;cYtKscWkpZ7Bl*>ovZU%k
T2q_oQf8y>)rwS4fnnaO6RL2}{

diff --git a/man/Belgium.Rd b/man/Belgium.Rd
index 16578b4d..d552ff29 100644
--- a/man/Belgium.Rd
+++ b/man/Belgium.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Brazil.Rd b/man/Brazil.Rd
index 1016a6aa..81c461f4 100644
--- a/man/Brazil.Rd
+++ b/man/Brazil.Rd
@@ -26,6 +26,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Canada.Rd b/man/Canada.Rd
index 022d5277..52ef95fd 100644
--- a/man/Canada.Rd
+++ b/man/Canada.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Colombia.Rd b/man/Colombia.Rd
index e8ff1a8d..50065b17 100644
--- a/man/Colombia.Rd
+++ b/man/Colombia.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Covid19DataHub.Rd b/man/Covid19DataHub.Rd
index b305691f..5489abae 100644
--- a/man/Covid19DataHub.Rd
+++ b/man/Covid19DataHub.Rd
@@ -77,6 +77,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Colombia}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Cuba.Rd b/man/Cuba.Rd
index 4b688582..fc8d32f4 100644
--- a/man/Cuba.Rd
+++ b/man/Cuba.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Estonia.Rd b/man/Estonia.Rd
new file mode 100644
index 00000000..5c29e1f1
--- /dev/null
+++ b/man/Estonia.Rd
@@ -0,0 +1,129 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/Estonia.R
+\name{Estonia}
+\alias{Estonia}
+\title{Estonia Class for downloading, cleaning and processing notification data}
+\source{
+\url{https://www.terviseamet.ee/et/koroonaviirus/avaandmed}
+}
+\description{
+Information for downloading, cleaning
+and processing COVID-19 region data for Estonia
+}
+\examples{
+\dontrun{
+region <- Estonia$new(verbose = TRUE, steps = TRUE, get = TRUE)
+region$return()
+}
+}
+\seealso{
+Subnational data sources
+\code{\link{Belgium}},
+\code{\link{Brazil}},
+\code{\link{Canada}},
+\code{\link{Colombia}},
+\code{\link{Covid19DataHub}},
+\code{\link{Cuba}},
+\code{\link{France}},
+\code{\link{Germany}},
+\code{\link{Google}},
+\code{\link{India}},
+\code{\link{Italy}},
+\code{\link{JHU}},
+\code{\link{Lithuania}},
+\code{\link{Mexico}},
+\code{\link{Netherlands}},
+\code{\link{SouthAfrica}},
+\code{\link{Switzerland}},
+\code{\link{UK}},
+\code{\link{USA}}
+}
+\concept{dataset}
+\concept{subnational}
+\section{Super class}{
+\code{\link[covidregionaldata:DataClass]{covidregionaldata::DataClass}} -> \code{Estonia}
+}
+\section{Public fields}{
+\if{html}{\out{<div class="r6-fields">}}
+\describe{
+\item{\code{origin}}{name of origin to fetch data for}
+
+\item{\code{supported_levels}}{A list of supported levels.}
+
+\item{\code{supported_region_names}}{A list of region names in order of level.}
+
+\item{\code{supported_region_codes}}{A list of region codes in order of level.}
+
+\item{\code{common_data_urls}}{List of named links to raw data.}
+
+\item{\code{source_data_cols}}{existing columns within the raw data}
+
+\item{\code{source_text}}{Plain text description of the source of the data}
+
+\item{\code{source_url}}{Website address for explanation/introduction of the
+data}
+}
+\if{html}{\out{</div>}}
+}
+\section{Methods}{
+\subsection{Public methods}{
+\itemize{
+\item \href{#method-set_region_codes}{\code{Estonia$set_region_codes()}}
+\item \href{#method-clean_common}{\code{Estonia$clean_common()}}
+\item \href{#method-clone}{\code{Estonia$clone()}}
+}
+}
+\if{html}{
+\out{<details ><summary>Inherited methods</summary>}
+\itemize{
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="available_regions">}\href{../../covidregionaldata/html/DataClass.html#method-available_regions}{\code{covidregionaldata::DataClass$available_regions()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="clean">}\href{../../covidregionaldata/html/DataClass.html#method-clean}{\code{covidregionaldata::DataClass$clean()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="download">}\href{../../covidregionaldata/html/DataClass.html#method-download}{\code{covidregionaldata::DataClass$download()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="filter">}\href{../../covidregionaldata/html/DataClass.html#method-filter}{\code{covidregionaldata::DataClass$filter()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="get">}\href{../../covidregionaldata/html/DataClass.html#method-get}{\code{covidregionaldata::DataClass$get()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="initialize">}\href{../../covidregionaldata/html/DataClass.html#method-initialize}{\code{covidregionaldata::DataClass$initialize()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="process">}\href{../../covidregionaldata/html/DataClass.html#method-process}{\code{covidregionaldata::DataClass$process()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="return">}\href{../../covidregionaldata/html/DataClass.html#method-return}{\code{covidregionaldata::DataClass$return()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="summary">}\href{../../covidregionaldata/html/DataClass.html#method-summary}{\code{covidregionaldata::DataClass$summary()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="test">}\href{../../covidregionaldata/html/DataClass.html#method-test}{\code{covidregionaldata::DataClass$test()}}\out{</span>}
+}
+\out{</details>}
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-set_region_codes"></a>}}
+\if{latex}{\out{\hypertarget{method-set_region_codes}{}}}
+\subsection{Method \code{set_region_codes()}}{
+Set up a table of region codes for clean data
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$set_region_codes()}\if{html}{\out{</div>}}
+}
+
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-clean_common"></a>}}
+\if{latex}{\out{\hypertarget{method-clean_common}{}}}
+\subsection{Method \code{clean_common()}}{
+Estonia specific state level data cleaning
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$clean_common()}\if{html}{\out{</div>}}
+}
+
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-clone"></a>}}
+\if{latex}{\out{\hypertarget{method-clone}{}}}
+\subsection{Method \code{clone()}}{
+The objects of this class are cloneable with this method.
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$clone(deep = FALSE)}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\if{html}{\out{<div class="arguments">}}
+\describe{
+\item{\code{deep}}{Whether to make a deep clone.}
+}
+\if{html}{\out{</div>}}
+}
+}
+}
diff --git a/man/France.Rd b/man/France.Rd
index fb3d2b12..0d4f92f6 100644
--- a/man/France.Rd
+++ b/man/France.Rd
@@ -28,6 +28,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{Germany}},
 \code{\link{Google}},
 \code{\link{India}},
diff --git a/man/Germany.Rd b/man/Germany.Rd
index bca080b9..f48b50fe 100644
--- a/man/Germany.Rd
+++ b/man/Germany.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Google}},
 \code{\link{India}},
diff --git a/man/Google.Rd b/man/Google.Rd
index a4ff31af..d47fe1dd 100644
--- a/man/Google.Rd
+++ b/man/Google.Rd
@@ -68,6 +68,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{India}},
diff --git a/man/India.Rd b/man/India.Rd
index d676bd92..1d19917d 100644
--- a/man/India.Rd
+++ b/man/India.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Italy.Rd b/man/Italy.Rd
index 1c527c0a..666199f9 100644
--- a/man/Italy.Rd
+++ b/man/Italy.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/JHU.Rd b/man/JHU.Rd
index 53e56a88..db8db1e8 100644
--- a/man/JHU.Rd
+++ b/man/JHU.Rd
@@ -72,6 +72,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Lithuania.Rd b/man/Lithuania.Rd
index 789460d5..3e982180 100644
--- a/man/Lithuania.Rd
+++ b/man/Lithuania.Rd
@@ -138,6 +138,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Mexico.Rd b/man/Mexico.Rd
index 5c9c653f..7174e346 100644
--- a/man/Mexico.Rd
+++ b/man/Mexico.Rd
@@ -34,6 +34,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Netherlands.Rd b/man/Netherlands.Rd
index d1fe4ff0..ab3c0bf9 100644
--- a/man/Netherlands.Rd
+++ b/man/Netherlands.Rd
@@ -28,6 +28,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/SouthAfrica.Rd b/man/SouthAfrica.Rd
index 78c0b096..e2c281dd 100644
--- a/man/SouthAfrica.Rd
+++ b/man/SouthAfrica.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Switzerland.Rd b/man/Switzerland.Rd
index 90e35976..3fcdd39f 100644
--- a/man/Switzerland.Rd
+++ b/man/Switzerland.Rd
@@ -49,6 +49,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/UK.Rd b/man/UK.Rd
index c70c18c1..c2f45c4a 100644
--- a/man/UK.Rd
+++ b/man/UK.Rd
@@ -71,6 +71,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/USA.Rd b/man/USA.Rd
index ff36de2f..13e5364e 100644
--- a/man/USA.Rd
+++ b/man/USA.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/all_country_data.Rd b/man/all_country_data.Rd
index d8dcc66b..052c4727 100644
--- a/man/all_country_data.Rd
+++ b/man/all_country_data.Rd
@@ -6,7 +6,7 @@
 \title{Table of available datasets along with level and other information.
 Rendered from the individual R6 class objects included in this package.}
 \format{
-An object of class \code{tbl_df} (inherits from \code{tbl}, \code{data.frame}) with 22 rows and 10 columns.
+An object of class \code{tbl_df} (inherits from \code{tbl}, \code{data.frame}) with 23 rows and 10 columns.
 }
 \usage{
 all_country_data

From 24bd6686e77a4a0fc61dd8599a169d4fbdf7e662 Mon Sep 17 00:00:00 2001
From: Richard Martin-Nielsen <richard.martin@alumni.utoronto.ca>
Date: Thu, 16 Sep 2021 20:33:41 +0300
Subject: [PATCH 2/6] Transfer Estonia code into new clean branch

---
 DESCRIPTION               |   2 +-
 NAMESPACE                 |   2 +
 R/Estonia.R               |  90 ++++++++++++++++++++++++++
 data/all_country_data.rda | Bin 2817 -> 2910 bytes
 man/Belgium.Rd            |   1 +
 man/Brazil.Rd             |   1 +
 man/Canada.Rd             |   1 +
 man/Colombia.Rd           |   1 +
 man/Covid19DataHub.Rd     |   1 +
 man/Cuba.Rd               |   1 +
 man/Estonia.Rd            | 129 ++++++++++++++++++++++++++++++++++++++
 man/France.Rd             |   1 +
 man/Germany.Rd            |   1 +
 man/Google.Rd             |   1 +
 man/India.Rd              |   1 +
 man/Italy.Rd              |   1 +
 man/JHU.Rd                |   1 +
 man/Lithuania.Rd          |   1 +
 man/Mexico.Rd             |   1 +
 man/Netherlands.Rd        |   1 +
 man/SouthAfrica.Rd        |   1 +
 man/Switzerland.Rd        |   1 +
 man/UK.Rd                 |   1 +
 man/USA.Rd                |   1 +
 man/all_country_data.Rd   |   2 +-
 25 files changed, 242 insertions(+), 2 deletions(-)
 create mode 100644 R/Estonia.R
 create mode 100644 man/Estonia.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index 86fd1d5f..f6529692 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -121,4 +121,4 @@ Encoding: UTF-8
 Language: en-gb
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
diff --git a/NAMESPACE b/NAMESPACE
index ce3bcc43..00588964 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -10,6 +10,7 @@ export(Covid19DataHub)
 export(Cuba)
 export(DataClass)
 export(ECDC)
+export(Estonia)
 export(France)
 export(Germany)
 export(Google)
@@ -73,6 +74,7 @@ importFrom(dplyr,slice_tail)
 importFrom(dplyr,starts_with)
 importFrom(dplyr,summarise)
 importFrom(dplyr,tally)
+importFrom(dplyr,transmute)
 importFrom(dplyr,ungroup)
 importFrom(dplyr,vars)
 importFrom(httr,GET)
diff --git a/R/Estonia.R b/R/Estonia.R
new file mode 100644
index 00000000..564601b8
--- /dev/null
+++ b/R/Estonia.R
@@ -0,0 +1,90 @@
+#' Estonia Class for downloading, cleaning and processing notification data
+#' @description Information for downloading, cleaning
+#'  and processing COVID-19 region data for Estonia
+#'
+# nolint start
+#' @source \url{https://www.terviseamet.ee/et/koroonaviirus/avaandmed}
+# nolint end
+#' @export
+#' @concept dataset
+#' @family subnational
+#' @examples
+#' \dontrun{
+#' region <- Estonia$new(verbose = TRUE, steps = TRUE, get = TRUE)
+#' region$return()
+#' }
+Estonia <- R6::R6Class("Estonia",
+  inherit = DataClass,
+  public = list(
+
+    # Core Attributes
+    #' @field origin name of origin to fetch data for
+    origin = "Estonia",
+    #' @field supported_levels A list of supported levels.
+    supported_levels = list("1"),
+    #' @field supported_region_names A list of region names in order of level.
+    supported_region_names = list("1" = "county"),
+    #' @field supported_region_codes A list of region codes in order of level.
+    supported_region_codes = list("1" = "iso_3166_2"),
+    #' @field common_data_urls List of named links to raw data.
+    # nolint start
+    common_data_urls = list(
+      "main" = "https://opendata.digilugu.ee/opendata_covid19_test_county_all.csv" # nolint
+    ),
+    # nolint end
+    #' @field source_data_cols existing columns within the raw data
+    source_data_cols = c("cases_new", "tested_new",
+                         "cases_total", "tested_total"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Estonian Ministry of Social Affairs",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://www.terviseamet.ee/et/koroonaviirus/avaandmed",
+
+
+    #' @description Set up a table of region codes for clean data
+    #' @importFrom tibble tibble
+    set_region_codes = function() {
+      self$codes_lookup$`1` <- tibble(
+        code = c("EE-37",
+          "EE-39", "EE-45", "EE-52", "EE-50", "EE-56", "EE-60", "EE-68",
+          "EE-64", "EE-71", "EE-74", "EE-79", "EE-81", "EE-84", "EE-87",
+          NA),
+        region = c("Harju", "Hiiu", "Ida-Viru", "J\u00e4rva",
+          "J\u00f5geva", "L\u00e4\u00e4ne", "L\u00e4\u00e4ne-Viru",
+          "P\u00e4rnu", "P\u00f5lva", "Rapla", "Saare", "Tartu",
+          "Valga", "Viljandi", "V\u00f5ru", "Unknown")
+      )
+    },
+
+    #' @description Estonia specific state level data cleaning
+    #' @importFrom dplyr select mutate transmute
+    #' @importFrom tidyr pivot_wider
+    #' @importFrom rlang .data
+    #'
+    clean_common = function() {
+      self$data$clean <- self$data$raw[["main"]] %>%
+        pivot_wider(
+          id_cols = c("LastStatisticsDate", "StatisticsDate", "Country",
+                      "CountryEHAK", "County", "CountyEHAK"),
+          names_from = ResultValue,
+          values_from = c("DailyTests", "TotalTests",
+                          "DailyCases", "TotalCases")) %>%
+        select(-Country, -CountryEHAK) %>%
+        mutate(TestPositivity =
+                 ifelse((DailyTests_N + DailyTests_P) > 0,
+                        (DailyTests_P / (DailyTests_N + DailyTests_P)),
+                        NA)) %>%
+      transmute(
+        level_1_region = gsub(" maakond", "", .data$County),
+        level_1_region_code = gsub("00", "EE-", .data$CountyEHAK),
+        date = .data$StatisticsDate,
+        cases_new = .data$DailyCases_P,
+        tested_new = .data$DailyTests_P + .data$DailyTests_N,
+        cases_total = .data$TotalCases_P,
+        tested_total = .data$TotalTests_P + .data$TotalTests_N,
+        test_positivity = .data$TestPositivity
+      )
+    }
+  )
+)
diff --git a/data/all_country_data.rda b/data/all_country_data.rda
index f95a7f512e7e80dbb09e85e5338935b82dd03b6e..cf06d6ea056ed4f3229a4e09ead3701b4251a0f0 100644
GIT binary patch
literal 2910
zcmV-k3!(HvT4*^jL0KkKSu2V^fB**b|Mma>Z@>Qk|NQ^|-|)Zx-|#>H005vs2m*kh
z00H0(KN%9<%?5>m7!3e)A5TC43IGHp5T=<mCz>WQYGjR)W|8F7^)%4P(`p8QGzNe)
z$?9Tc9#8<%OeWBZVi=m66G&-@z?n3}U=tyeMj?{|VldQc>SSPW0009(000dDGynrY
z01W^D00T87G>M5c^)eo#)NLcw(9i%HGyniSAkYSY000Ic&;S4c0MGyc01W^D00000
z2@(hh&<UoRnlv&rPejNBo`m&1BTrM)Nu$V*YL87%Pf9S#AF5<LpLzu#!wmW%7PN$q
zEvb55_MxBi4ijl^w!sJPXk`9R9&2azU;gFEE5tOC2>bn31jZjjM!|i*f2L?a1sIn0
zgVUG#eBU3}=`O!pAi_=D|ADNbFo4K_pDca|l$vTE8ciwDyPCSvBm`+v5<rrIGl%Jv
z9wx4=$0dk>T!H_@=pqbsb5@ZEf{kylHU%v9oQw8QTxgw})a<$~&5RPaJ&{P$S>and
z(zEQIRIFJnrF6d6d;iCVRrzBIe2*;9Yh@g+(<O`S;0Q;NBq1<KBb9_Pg9$W*A$VE@
z2k>W+phtCx47T8CHwr?G>Wrv7LsB51lm^gsD9Nz~8Yx%}d!|(-1Tr_6d7&c7jA~9*
zF~%IXy^v#s8r8w^SYSU5Ho3Awvq*tfP-9DIw6qqmSnI%K?xIuC0BB)qIvQ4gS`#nl
zllN|1adg}HK$IvHMV}jP)=KfY38P#JsH&o?8MuwRbyUzfI8>^ID26yn&X$~k0tSFg
zb)S}T==J$|dHQa(mdM9U>U8XNB6V_-mNe=#UuHVuqY3%2GrTgUmipG28aC6soyo)m
zK-+CLVq-FuTKMXbvuZfE-3y&E?Z|j<JXL;lQ4As(OC6SuD-w)Gpjx0M%5n$q<-oT&
z&RlmHMN9G?@_f)9z5H_eQbO|Ce;f9F8AD9X3f&>KbwrDMenT1DKB99h?HA!C6gbR<
z+)%%1ZR$&#yE5}#ZZ|=$>#PZt9jcg75smf+Z8qFY6*a*f&79nOW8@6u9!1PypBWl+
z(FK&(J8|t61k|fKD~eSwP(8d2oW{b8iJA^$aip$ZRa_$Evc$5)fMOYNN(ACgLX=62
zb`XVZrPsT^!%GKsLMm$yq`BXhF}G3m7C~`C0E-O<ZKN2I+C0`&u!1C8UALP@KWNA5
zwh3Eln9X^oenth;9SugZ-8cq=EK&k@ml6rRBLv0;g}I7NE7C%Qc-i)zBX^&>&+Yo`
zwev6b_{sccalMzw5pLr!VlqURaCnPiSoV>bcIaf#)g7e`TG7}WjYFyllA=nLa1rdy
zNfhM;G_PRMP*oE!G>Iftj&|al67{H(SS-v7JWM!WQe@=hpB?J4=wx(rh%)R1BZvKX
z%t<@!nXrjPQu>|zLIi=7?{QI=)M&m-0;vucCy0T-(NAE`UmEd~Au?*qi{Lj)yqkH<
zlt8lf6)ogwgK1s7(A~hnq85{K*_LfVG{eUy&_d*|(?Ob{0mP=gdP7DFYP6jSTPo+4
zx_j!|UPk=XrXW&z>1IW}!G=8tuofB2w5Al7ec-WKP>cKv^Vd@y+E+Q0r$WCK&B80C
zS+uMI1=ENI2`C&1PRg9?#i7-jbW>EM#a)CkiG#r_GmLt>8co9Ns8j}=QzTGBc~gd_
ziiMDbpkfOdXyK=rK2VWC(0`}i)zPyJ$6H2|@n17X0JAs2QishKq=qd7KrB0LM8+2k
z$4BRvtB?p!D8P~~Uc%l~;2G91cR}%M=UqDwLC_V$A32+ep<*AfAy<$!$lf)2pfn?B
zou&v|CK>}sngOKHn@EKMO;K8bPeFjcUHolUqQ&_%+8Tj$P|Olrmezpno`Xr@Jqm)L
zxkJ!)rP<0G3jj44yd|?<MuVV{t`V!Z8i|veZ^hy9ZZ{AmLV}wVN%>FW>xVb$G1s*7
z%`;tuF-T^C8Zk2%4pMKT7|zAwRuxwK-<annxeq@CCH8!>43J({zUlIcWqH%iks`%m
zI2$C=fM}9nK%NW8K&F#v1Ly8r^L3n}yyU3DzBb$#5JMN#z|0HYos)uKmx#`EK`@_<
zfl(_Fj;C<ojjk;lJ!+c*g0WT@MSMES2&Z$W*d|cU_ZN*M$#Z{ZS&Cx_&l+TYQ%Ub<
zRVb@MYnO(Y8uJbJVl;BK)97@ONPgKkLU~@-;0k9v#Ew#V+NP4^u#7MisyS!;Ldcc6
z0|f}Nd!?y^0Q4HpLUS!Pd`$)hQ3etH6DH>}Qk0>&5HvL{my)KU5C>~oX3;EBmGY4~
zU|>kI3^4Oq2894^Ab>)CRED&GZZ(;aaF#kyUXgSQ4MyeqN`}j=PTO=uiJ9i68lgfF
zwAH8jt~(fy*e?DzZ1@%OM)1z1!6J-6X8#p#Hd3AtJ;EP<$<ft)plL<~vKyhHXtSym
zKzJ#PveCS=fB}$ZNX(H^iosoiqEgGUC3b;~8*Q^d*bJ@^x-u<03DoJb&J<Y;5nogN
z`{0KPn4HK1=wD|KI{{J_^F71R{{~=KkM?K{ABDNj{a?_45T$m%f*7<LMv?0=v>pf6
zM`C{9!^@HF&);N;g$dC1k@(?5n*P;-{AdO2=Ayh*uvoi30l$BwGwCfsaqU4m+q;~y
z6%^;&y_@q_v-8oEC7F!zgpscSz%&U1VA^9)pwzaDR>r>%;lW%S4r=@+;Ty6=p`CFq
zq{uXMtVE46Em3~=HJqsGSvW<j@>*Jct~rVHhH`mrDYStjyv52sMoofm7TV5DM4GEs
zXx9w*p;R`Rx(x`xs<d7EbNy=@7I86%&Xoa~8m3+vMJ=(LrqDCr37nZ|ETy{6BqD4`
zprF`=Am=Q-E=r4BgA-eI@-k`guV}eoeG|?f8OI{1!Jxn_HcCTmBqqkh$U^~B^iS**
z!os5_ns6l1e6UQKKA2j6DoJ%8b4z<vz*j=}3`~k65xmKwzLZe#72xU*U4$a!U`T|<
zklh@nA_7AQFG9j+G0ne;c=iS)mVVL>v*hgkMjL>xk!p{?8%+7T=7puCD*{B)!GPK(
zFctQx3QB5LIU-^ze|qpLCF=&zJ@aBP4BW(iegAjpI9h04#iy0|i-R`13IMd_Bq;iB
zUT)E}Dv`SQLK_gR1Anu3dt7K|G34RI?S<+`)lkxS$OYr-?lSA)Kw?zO&)6PY&M6^f
zVlIZbG`oyyBNGNiLYz)Eg8u^VwP?X$mIyxh$1r%ZY-p-S3_K2yhDNjp&(?T0bYb8#
zoJWzo(XEPY@f@UxP{=rm)RLEaC@Z<W#Jf|n;NB1@vYIav!J1JOQ>muAnc6sEOrY2)
z#TY^>lD6H|1nEKv!zYkMu;E=$W|WYxD@cLFCMpesK+w}{Xl=WK^J2&}ibWG78IW^|
z5C&y28<mLfXf>>GF7*8$J(w`Mrol}XrXK32ag!0Y#44;;vZ@kQ7cq_qOPbTI?r#lJ
zE@h1bW+)LSt{j$@BQp{pU=m~iq)*ycP*nrQ+djUzhGC&v`}kRa#84AL<5F*lV`(@o
z)B}QfDM=(%0(Pk6wQfw*Utx~B$pXDzLMf>{8AP$7!63{Jog^xSMgwZ7fpesVdM4Px
z{<u5UD7@*QJjRC3q<7ei6%cZ4_xFbGpvb^jjO?1YOM?%Kaj5SF+}1U63wNe)ky#qV
zEcp>3<9J&tpu{Q)6F@1%CCep@%~b$A;-U*82?<<Av#%b4R-X@U+tO)n(TrmX=4@Iw
zy+oj6ZbTE`6Q1HDwI0DH3X*q=Ri)*({3ySWxVeAE|Ni{Z9ASOTX(Wg1Cg1#B$rRy2
IK&~kM0AFrUwg3PC

literal 2817
zcmV+c3;y&%T4*^jL0KkKS%lIgiU0<_|Mma>Z@>Qk|NQ^|-|)Zx-|#>H005vs2m*kR
z00H0&zkRsm@0)-R0mdGk+LR8tyMWO}3JtLdO-M$B#KAVH`kEuek13{TjGmy;p`bMN
z7}NmMMl~83N2CUWQ%xEZ5^Yf)qedo;G-%La3`{@_Mt~XsX`!Z1NvEO!Z~y=UKmY&@
z05kvtKmZK@0006+rkW<C%^*EbB*@V93_+2g^#A|>Xf$YO01W^Dib`cX6!kJDCPskC
zka~as0ib9A05s4v007V=NJfHa0%@Z{G*j9F1k)2nhJe#RXldmJPg5gCfuINeNfHb&
z%S0lrBqPwM8@?zH=?)>oOLc7!d*L9Puei3EzE$a!3s{f}8ei|dAu$-x`Qb6glZs>P
z!!tAp2EjjP(R<~9hJ_?Jp7K(b`83#y0!a&%!Lk?YVc@VLuNwWEjWIB%8wkKrlBYRs
zrMQYWiDgEGAlZoi542KBokp0F!ywq)jR{uV`7^n|Z3^;tNyHsFEIPDX7e=zAei__4
z*hsp~=eAER*-<>Jns>_7)-Omk%Iz{(zaIbuc@jty5)vB|1`yH`1=!L6K2~`e1a{bf
z%Vp+sY07eG=;C(|y##|G>u|nuqOg!F>!I<g%oQ*aIxrD|7_^A<g=tg;OpH=V0VlFD
zUDk);-_EDbSWgNH!eA0>+Nu(Oc>t+utRiZsS+7WMKvEkRS~>{Jdz@i<uiu#5np$-?
zZkS`lxkmEovbiKwQ6OzL#^N(0DJjhjsuUEHWf21)EYb7O*x1?|Vs3KY$~3pvZscFJ
zTPvW|QHU`&#DQ!=Gf~OBfn`pW>d+7j$cU_?X|y8cDuyiEPPFb$AR-3aX|od<l-(+m
z+sPjPC&?@2rk+0*A1|R{y0_@iL83cMgL%qAk_!|Bx0^%wZ{Ali#JK5Y75NX4mk19+
z?ri@85WJS(&3@0-lr+rHtDrWn>`1RijFm^-C78FIzX>Rz{pLdIP`*O9sV;8Z%guIN
zZi8LdS`#cCRWPC>8|@7?)Q~Cbf;zdl^p9|2G3F}9uY*1_L1i?~-cBW<H7h4YaZ3gB
z1KGgW%xfsfnaXn;w7SdSD+9`1Ogfl0(;9g&hA5JgB@#?((h#dDclUQVX<+WKBEwjG
zCC>c(#@$DpwhM|F1X^e_Z6L&!(dM?o(g>Ao+j+Ee^-O&Af>o)Q&3UJOa{}p(hND?s
zI0l10DFHjni3Hw}q%nbMT*W4p=t6{eS^UodyVJ3goprI>Zt*hlIA*iLl2d0guYFWN
zcT;RBs3+nI#VScueTVhOF^PY`J;sB$4NVOjV|L2A(pn^Cg*L5_TtJZ3!$688s>|F*
z);&rDSp|p!#{-S{Q3ST$r&8R$rcoxgI9nef_Hme6U)`+C8x=NsFJTxegm3JX9iE4U
zez1`<1MRL#d>#?)9hWxYN+Jm{;rI{qylu73bYlgH7!hj|G#;awap2qSICx^qd~KO0
zrc{#$ES)`!$l<2Ly1^*mT6L(84i%nMS7_@e<SNazjcs!`q_r`EjEND!i}U(!+{&LQ
z$Bf;xcfiqEHmh@E&)H7&qDM7IR2b2-nt|0xYY45ewbFtTA*gDr3aYQQ$LdrnXA?}W
z(@ilpZ78y+?@zJdL>-a|H|C0H9GoSvsu57;^<zo~AhneoH1h|%5-3oQUr$!M_MMFy
z52tj@{Go0?R>Fh0NNCC-BK|Ez#uXWdyB{{tAw1D}AgSps#fI?Au!E==c~@SO%yfrF
z82Tn|28D=u!WEl?T#iAj)d8d%MCxFLvSFY!iGV`FF#<`Du+GwhHR8e1uUSh<Q0LI%
z0`pA7B)2WC0mSnf4)Ntw6$QLJrx|#+hO*EOb2oUb*Nvd<5;ej#bjG4&=G*W5?*8L(
za@uES*`Q9xhYp~0c!y@_+B8i!OvQ-G0;@TzxF196yOJ|oEmTccq1G}9D~AH|68Pv)
z7SLEud^12&Cy-(!P+F}i17w;|nk1MICxY@2DS+Am@#?OoQFK-pCNQ30;KCq=FGB+i
z7M!Y-5=dEQM`{U#{45IrT8wo&hXieLQNI<2z@V*GLkR5FOho#-Jwjy+p5o!8nJ#a&
zmU5WF9+>-PlLi`@N}VK?+t{!*oHw<Iw{@%fPMQi~@QFebw_{&KDd`YzC7G=nOOnDc
zz*4Ys%i0!lS_1`oEnc})!GL~)S<+5rO`hXHfZ2R|ItjVVl%*(cL=819kv&8J9CfC7
zRSo&C%$9uxgpFmF7+pnDVRcZ%ZuYZXNd?!M%*eP)9VjnIx&?-#a{R@Cvek8Kq9jbp
zYGJArBpXdyeY?DD585u}ezL41cw(i&B8&jT-dpgtl<Z5^A@@3~U>PFfR*@S*>voN#
znMgBdvgQ@sdNNgRg{oSn0Xsm|Vxm&c;<?5!ZMMwgU^17&>By<!Ct=rZypS~E0}?Q<
z9B#d>FD|bXE&FyH?F=Tim)eINt=qoswvqgxZt^=va_x`w2CU2d?npA45i=bGB*D&B
z$7V9RBINSx`bc<vr<!wsoT)O2od(C00PpRctY@Klg%P2c7-j+#8Sq=JEpAzgN}L#X
zwGEC81J^Lgu~@)(&9x1oux+-`#-Tx_Y!;CAZdQjOzw4UBYs`y76~vs1nRToLjPfd?
z{jO^<VC*fNBCG6FsqgaUC)*5+{N(<j2uE$Bl-&f{LwK;rnu#@IR_NCZ_aRstO&vyr
zU|6ayy5;e#ZCMG7Mna%7IjUvhq*B`%yOjebuQ@a5Ev0pw<RWZHprF`=Am}Z<DhpHw
z2BzulvTKE$P74F|&mi|seC3F}pujCQN=>kkn;R1$4J1?XPx%UJ(!vRtVnV}R%NQmN
zDL8#3T+>n)A{p!&r1MNn<rXV4X!wycyi<dqJ$I0ck%1x;8bfq)n1~4sAiX0AoX0l)
za`Eg8Ni4Xa@1K9g@8P*CG>cSw0kq3EaL}~0g=k2cSTGwz#*!#xGG&1hOM*^zT;_4U
z7{kXgQozC1lI&z^c8(P^D^DZzN`^YDC?sggNfGeey&iL5Sdq5)LK{G;2Pdg_Z&YY!
z6UWQUbOq{1p1{(02od1!^s?*WKw?;D^t?gjyyrp|dr@>X!KKp1qA@UJSQF(LRD;_p
z`M0cWTM++C2GHAGh#@c()>vlG2*}m}=IlL<ovb^?M>zAF%^KLI-#FzYLWV)kCt)Qn
zx(e=ZSuQiUH-%N`CBe(J-gAp7J8|&)-PkO1eFd>T>v35arKpE(C_yzmf-4Rc)COom
z73GwO971BFXlNQ3+Zq_|3(adFyf-IcxE7(W87kV$CNn~1-ZESp3cY$hIxK*?!(gV0
zj6HQurc4dCp;)n02q-QF7lK?ZJ08~W(<0_t&|*+0Elx{A5t*S7G?du_M2Y&U>I%R-
z4YT9ym}VLkUtSjAFenM3P?O<fXmDGk2L$p`l1Q-vcBtD`wKGY5rW&s#3iWvirj+ny
z0~#z48G-Ra6@f9NO%N<}Ay|nv!%dWuS;?R?OKq3aX98BvhBqTDF>?aav9N;t%^>8!
zXkwUW6fWhpmmsd>&GIafsRGM65*{~%Q3fGEP?!R3E=$ynR1#j8rh>*uN~CK$FzO{~
z?eVSRV%?t@#ud!gwsbv2p|QCTPkc*pNbtv~NrNft97;;cYtKscWkpZ7Bl*>ovZU%k
T2q_oQf8y>)rwS4fnnaO6RL2}{

diff --git a/man/Belgium.Rd b/man/Belgium.Rd
index 16578b4d..d552ff29 100644
--- a/man/Belgium.Rd
+++ b/man/Belgium.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Brazil.Rd b/man/Brazil.Rd
index 1016a6aa..81c461f4 100644
--- a/man/Brazil.Rd
+++ b/man/Brazil.Rd
@@ -26,6 +26,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Canada.Rd b/man/Canada.Rd
index 022d5277..52ef95fd 100644
--- a/man/Canada.Rd
+++ b/man/Canada.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Colombia.Rd b/man/Colombia.Rd
index e8ff1a8d..50065b17 100644
--- a/man/Colombia.Rd
+++ b/man/Colombia.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Covid19DataHub.Rd b/man/Covid19DataHub.Rd
index b305691f..5489abae 100644
--- a/man/Covid19DataHub.Rd
+++ b/man/Covid19DataHub.Rd
@@ -77,6 +77,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Colombia}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Cuba.Rd b/man/Cuba.Rd
index 4b688582..fc8d32f4 100644
--- a/man/Cuba.Rd
+++ b/man/Cuba.Rd
@@ -23,6 +23,7 @@ Subnational data sources
 \code{\link{Canada}},
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Estonia.Rd b/man/Estonia.Rd
new file mode 100644
index 00000000..5c29e1f1
--- /dev/null
+++ b/man/Estonia.Rd
@@ -0,0 +1,129 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/Estonia.R
+\name{Estonia}
+\alias{Estonia}
+\title{Estonia Class for downloading, cleaning and processing notification data}
+\source{
+\url{https://www.terviseamet.ee/et/koroonaviirus/avaandmed}
+}
+\description{
+Information for downloading, cleaning
+and processing COVID-19 region data for Estonia
+}
+\examples{
+\dontrun{
+region <- Estonia$new(verbose = TRUE, steps = TRUE, get = TRUE)
+region$return()
+}
+}
+\seealso{
+Subnational data sources
+\code{\link{Belgium}},
+\code{\link{Brazil}},
+\code{\link{Canada}},
+\code{\link{Colombia}},
+\code{\link{Covid19DataHub}},
+\code{\link{Cuba}},
+\code{\link{France}},
+\code{\link{Germany}},
+\code{\link{Google}},
+\code{\link{India}},
+\code{\link{Italy}},
+\code{\link{JHU}},
+\code{\link{Lithuania}},
+\code{\link{Mexico}},
+\code{\link{Netherlands}},
+\code{\link{SouthAfrica}},
+\code{\link{Switzerland}},
+\code{\link{UK}},
+\code{\link{USA}}
+}
+\concept{dataset}
+\concept{subnational}
+\section{Super class}{
+\code{\link[covidregionaldata:DataClass]{covidregionaldata::DataClass}} -> \code{Estonia}
+}
+\section{Public fields}{
+\if{html}{\out{<div class="r6-fields">}}
+\describe{
+\item{\code{origin}}{name of origin to fetch data for}
+
+\item{\code{supported_levels}}{A list of supported levels.}
+
+\item{\code{supported_region_names}}{A list of region names in order of level.}
+
+\item{\code{supported_region_codes}}{A list of region codes in order of level.}
+
+\item{\code{common_data_urls}}{List of named links to raw data.}
+
+\item{\code{source_data_cols}}{existing columns within the raw data}
+
+\item{\code{source_text}}{Plain text description of the source of the data}
+
+\item{\code{source_url}}{Website address for explanation/introduction of the
+data}
+}
+\if{html}{\out{</div>}}
+}
+\section{Methods}{
+\subsection{Public methods}{
+\itemize{
+\item \href{#method-set_region_codes}{\code{Estonia$set_region_codes()}}
+\item \href{#method-clean_common}{\code{Estonia$clean_common()}}
+\item \href{#method-clone}{\code{Estonia$clone()}}
+}
+}
+\if{html}{
+\out{<details ><summary>Inherited methods</summary>}
+\itemize{
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="available_regions">}\href{../../covidregionaldata/html/DataClass.html#method-available_regions}{\code{covidregionaldata::DataClass$available_regions()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="clean">}\href{../../covidregionaldata/html/DataClass.html#method-clean}{\code{covidregionaldata::DataClass$clean()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="download">}\href{../../covidregionaldata/html/DataClass.html#method-download}{\code{covidregionaldata::DataClass$download()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="filter">}\href{../../covidregionaldata/html/DataClass.html#method-filter}{\code{covidregionaldata::DataClass$filter()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="get">}\href{../../covidregionaldata/html/DataClass.html#method-get}{\code{covidregionaldata::DataClass$get()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="initialize">}\href{../../covidregionaldata/html/DataClass.html#method-initialize}{\code{covidregionaldata::DataClass$initialize()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="process">}\href{../../covidregionaldata/html/DataClass.html#method-process}{\code{covidregionaldata::DataClass$process()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="return">}\href{../../covidregionaldata/html/DataClass.html#method-return}{\code{covidregionaldata::DataClass$return()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="summary">}\href{../../covidregionaldata/html/DataClass.html#method-summary}{\code{covidregionaldata::DataClass$summary()}}\out{</span>}
+\item \out{<span class="pkg-link" data-pkg="covidregionaldata" data-topic="DataClass" data-id="test">}\href{../../covidregionaldata/html/DataClass.html#method-test}{\code{covidregionaldata::DataClass$test()}}\out{</span>}
+}
+\out{</details>}
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-set_region_codes"></a>}}
+\if{latex}{\out{\hypertarget{method-set_region_codes}{}}}
+\subsection{Method \code{set_region_codes()}}{
+Set up a table of region codes for clean data
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$set_region_codes()}\if{html}{\out{</div>}}
+}
+
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-clean_common"></a>}}
+\if{latex}{\out{\hypertarget{method-clean_common}{}}}
+\subsection{Method \code{clean_common()}}{
+Estonia specific state level data cleaning
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$clean_common()}\if{html}{\out{</div>}}
+}
+
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-clone"></a>}}
+\if{latex}{\out{\hypertarget{method-clone}{}}}
+\subsection{Method \code{clone()}}{
+The objects of this class are cloneable with this method.
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Estonia$clone(deep = FALSE)}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\if{html}{\out{<div class="arguments">}}
+\describe{
+\item{\code{deep}}{Whether to make a deep clone.}
+}
+\if{html}{\out{</div>}}
+}
+}
+}
diff --git a/man/France.Rd b/man/France.Rd
index fb3d2b12..0d4f92f6 100644
--- a/man/France.Rd
+++ b/man/France.Rd
@@ -28,6 +28,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{Germany}},
 \code{\link{Google}},
 \code{\link{India}},
diff --git a/man/Germany.Rd b/man/Germany.Rd
index bca080b9..f48b50fe 100644
--- a/man/Germany.Rd
+++ b/man/Germany.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Google}},
 \code{\link{India}},
diff --git a/man/Google.Rd b/man/Google.Rd
index a4ff31af..d47fe1dd 100644
--- a/man/Google.Rd
+++ b/man/Google.Rd
@@ -68,6 +68,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{India}},
diff --git a/man/India.Rd b/man/India.Rd
index d676bd92..1d19917d 100644
--- a/man/India.Rd
+++ b/man/India.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Italy.Rd b/man/Italy.Rd
index 1c527c0a..666199f9 100644
--- a/man/Italy.Rd
+++ b/man/Italy.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/JHU.Rd b/man/JHU.Rd
index 53e56a88..db8db1e8 100644
--- a/man/JHU.Rd
+++ b/man/JHU.Rd
@@ -72,6 +72,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Lithuania.Rd b/man/Lithuania.Rd
index 789460d5..3e982180 100644
--- a/man/Lithuania.Rd
+++ b/man/Lithuania.Rd
@@ -138,6 +138,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Mexico.Rd b/man/Mexico.Rd
index 5c9c653f..7174e346 100644
--- a/man/Mexico.Rd
+++ b/man/Mexico.Rd
@@ -34,6 +34,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Netherlands.Rd b/man/Netherlands.Rd
index d1fe4ff0..ab3c0bf9 100644
--- a/man/Netherlands.Rd
+++ b/man/Netherlands.Rd
@@ -28,6 +28,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/SouthAfrica.Rd b/man/SouthAfrica.Rd
index 78c0b096..e2c281dd 100644
--- a/man/SouthAfrica.Rd
+++ b/man/SouthAfrica.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/Switzerland.Rd b/man/Switzerland.Rd
index 90e35976..3fcdd39f 100644
--- a/man/Switzerland.Rd
+++ b/man/Switzerland.Rd
@@ -49,6 +49,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/UK.Rd b/man/UK.Rd
index c70c18c1..c2f45c4a 100644
--- a/man/UK.Rd
+++ b/man/UK.Rd
@@ -71,6 +71,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/USA.Rd b/man/USA.Rd
index ff36de2f..13e5364e 100644
--- a/man/USA.Rd
+++ b/man/USA.Rd
@@ -24,6 +24,7 @@ Subnational data sources
 \code{\link{Colombia}},
 \code{\link{Covid19DataHub}},
 \code{\link{Cuba}},
+\code{\link{Estonia}},
 \code{\link{France}},
 \code{\link{Germany}},
 \code{\link{Google}},
diff --git a/man/all_country_data.Rd b/man/all_country_data.Rd
index d8dcc66b..052c4727 100644
--- a/man/all_country_data.Rd
+++ b/man/all_country_data.Rd
@@ -6,7 +6,7 @@
 \title{Table of available datasets along with level and other information.
 Rendered from the individual R6 class objects included in this package.}
 \format{
-An object of class \code{tbl_df} (inherits from \code{tbl}, \code{data.frame}) with 22 rows and 10 columns.
+An object of class \code{tbl_df} (inherits from \code{tbl}, \code{data.frame}) with 23 rows and 10 columns.
 }
 \usage{
 all_country_data

From aff8dbdb21b9bfccfba074ceb77d14c4e092f87e Mon Sep 17 00:00:00 2001
From: Richard Martin-Nielsen <richard.martin@alumni.utoronto.ca>
Date: Thu, 16 Sep 2021 20:41:16 +0300
Subject: [PATCH 3/6] Add Estonia.yaml

---
 .github/workflows/Estonia.yaml | 48 ++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 .github/workflows/Estonia.yaml

diff --git a/.github/workflows/Estonia.yaml b/.github/workflows/Estonia.yaml
new file mode 100644
index 00000000..f345ba60
--- /dev/null
+++ b/.github/workflows/Estonia.yaml
@@ -0,0 +1,48 @@
+on:
+  schedule:
+    - cron: '36 12 * * *'
+  workflow_dispatch:
+
+name: Estonia
+
+jobs:
+  Estonia:
+    runs-on: macOS-latest
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+    steps:
+      - uses: actions/checkout@v2
+
+      - uses: r-lib/actions/setup-r@v1
+
+      - name: Query dependencies
+        run: |
+          install.packages('remotes')
+          saveRDS(remotes::dev_package_deps(dependencies = TRUE), ".github/depends.Rds", version = 2)
+          writeLines(sprintf("R-%i.%i", getRversion()$major, getRversion()$minor), ".github/R-version")
+        shell: Rscript {0}
+
+      - name: Cache R packages
+        uses: actions/cache@v2
+        with:
+          path: ${{ env.R_LIBS_USER }}
+          key: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-${{ hashFiles('.github/depends.Rds') }}
+          restore-keys: ${{ runner.os }}-${{ hashFiles('.github/R-version') }}-1-
+
+      - name: Install dependencies
+        run: |
+          install.packages(c("remotes"))
+          remotes::install_deps(dependencies = TRUE)
+          install.packages("devtools")
+        shell: Rscript {0}
+
+      - name: Install package
+        run: R CMD INSTALL .
+
+      - name: Test dataset
+        run: |
+          options("testDownload" = TRUE)
+          options("testSource" = "Estonia")
+          devtools::load_all()
+          testthat::test_file("tests/testthat/test-regional-datasets.R", reporter = c("summary", "fail"))
+        shell: Rscript {0}

From fc0d356c95daeee7a6ad4dca0a5d4fa1f7984396 Mon Sep 17 00:00:00 2001
From: Sam Abbott <s.e.abbott12@gmail.com>
Date: Fri, 17 Sep 2021 16:50:56 +0100
Subject: [PATCH 4/6] bump news

---
 NEWS.md | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index 8f93cbdd..b77a8cbc 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,11 @@
+# covidregionaldata 0.9.3
+
+This release is currrent under development
+
+## New data sets
+
+- Support for level 1 region data in Estonia (thanks to @RichardMN). See `?Estonia` for details. 
+
 # covidregionaldata 0.9.2
 
 This release adds support for the Covid19 Data Hub which includes Google and Apple mobility data amongst a large range of other data sets, data from the European Commission's Joint Research Centre which is at both the regional and national level, and individual sources for regional data from several countries. Package updates have been made in line with a software review at the [Journal of Open Source Software](https://github.com/openjournals/joss-reviews/issues/3290). Finally, this release exposes more of the testing infrastructure to users and adds a package hexsticker. 

From 27f77f187e11694728bd4b9225086a2daa08f37f Mon Sep 17 00:00:00 2001
From: Sam Abbott <s.e.abbott12@gmail.com>
Date: Fri, 17 Sep 2021 16:51:09 +0100
Subject: [PATCH 5/6] Update NEWS.md

---
 NEWS.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index b77a8cbc..38acad4c 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,6 +1,6 @@
 # covidregionaldata 0.9.3
 
-This release is currrent under development
+This release is currrently under development
 
 ## New data sets
 

From da185c9cde6c3196e63ada281900df220bdf070f Mon Sep 17 00:00:00 2001
From: Sam Abbott <s.e.abbott12@gmail.com>
Date: Fri, 17 Sep 2021 16:51:23 +0100
Subject: [PATCH 6/6] Update DESCRIPTION

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index f6529692..61168eb0 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: covidregionaldata
 Title: Subnational Data for COVID-19 Epidemiology
-Version: 0.9.2.1000
+Version: 0.9.2.2000
 Authors@R:
     c(person(given = "Joseph",
              family = "Palmer",