From d8a3eaac5557ab29fe2a8a31c7ccb2c803532b1e Mon Sep 17 00:00:00 2001
From: Alessandro Gasparini <ellessenne@gmail.com>
Date: Fri, 15 Jan 2021 16:29:09 +0100
Subject: [PATCH] Moved comorbidity maps to a separate file

---
 R/sysdata.rda           | Bin 2793 -> 2824 bytes
 data-raw/make-data.R    | 118 ----------------------------------------
 data-raw/make-mapping.R | 118 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 118 insertions(+), 118 deletions(-)
 create mode 100644 data-raw/make-mapping.R

diff --git a/R/sysdata.rda b/R/sysdata.rda
index cd66743dc02b80672143283899aa060115a7ec0a..4f8d71a683db34c30f307cf38a92c1120ff698a1 100644
GIT binary patch
literal 2824
zcmV+j3-|OwT4*^jL0KkKSqcs+GXNjSe}Mo0@8F04f8am=eNeyW-{1fN;0|2dea@&<
zN=clvl~U3(Hfai$D=jcoC9vS&0V-r@X`*VG8k5xZ001;-007W38UQ6zz%?Y4!B5g4
z&|v@o00000IBBK`WHi$wCJ+rY0ff<}OaLHgAyQM+MokS3G5}%#00001rkVqWnqY=Q
zO)@fJ0MkGiO&Vmt0tSIqGy)Su^#-Pm1eyQ=pvY)8r>HYf(X}|Ek*R}FWRV39HWAXu
z6;Qy)p(G^?z)F<UbUIs`SligoGjlAlp4OI**8^?LpZum?V84!<a%_%L<|=Hv)X+ns
z_u_lqyZ;%T9n^f`mpQpa%25QhH@-s3QV>Z>oOne4yV6W-<&f+If~accYH>6GL|!?W
z$;loBq>_=Cl3v%j@Lj9H;rTdoS!YL`)t8IKqeg-dgdqq*5QHHJLJ)*$rkZJ{nrMU}
z2tp8qAs(R!M?L-=InGty8_#!pR~&j;)^4^{OkhzGdXGbGy7YI58kDuE-+Lw>H4Y&Z
zAqYp1gdqq=iJ5D%3*c$HFSX}jp@PTR@X(<`=7=~nXy9?j9B~Lj5QHHJLM*b&EJ6{6
z79kj6h8QD6AqYmAX{MTKrieligd@O&BcDHq4jeddcXxMsEX8%tKJzjnJMCApx$w@<
z$MHmSoL-DsnU>S_twuy1nZ9~&=}j0?b*}l=*zTWQ_}oq@#Fbpo@i%w9_#9jcV8Mfj
z4jeGU3^2nFCw;bNzP*%G4?~$7ot$W6wDBIn`X0E4=6`~Rsv(1r=XX9g-nROBbtYJ)
z80;YF(hp0)<{oync!-EwR<@c>&1-k}#qWORNM=^XF&+2B@9PhNh9H?yh!Lxl>M~Yq
za^>X4hCbEDd)vy}+%Pc11Zk$8Ji7Guc4&t^D;b%Zq&vs(GZ1M<gA4Ixj%L%<ZiTxR
zRH<7!*0r6I$g3*TPkvpHL&SU@`=1Q-Sg~v6Q+>~%?1@4UwL4x)5fX$UYIeMoA|(hy
z)a`jFL`o2atgW(s96k>D$#;8?lsNRxXM~`_j3}jw6C$hd7&>~`C5d*II;gr7Ll7{;
zQu?gHjEXthn5P5?RPCJ+5fR{H9Xf_{vDEC4aFNO^qUOyMBgt|fr{-L7J~ho%s;a8s
zhHc1*x>M89Y*h7Z4b;ryiY=N&8CCgS!STOJZ>d+NA4(tb|6adWM?@jRh?IIh>%A}A
zq|#-QX{JJN4)&9sC))e(t*mwqL~fcUxf{mGgGhsT!P?<)?=YgNkOCq?tJ@_<11W+M
zkq`hkVqMWBf|5j%dpo`^y4E$9T3^XVA8BRSR`|@+QHOmwW0qKrFx{<vc7|)Q#~*CR
zyEL*)HQP&WoWe;Ps337Tg@Qu8SS_ARQcfj{UTT%7r`UbpEXt0CNd1i_pt%G@%)lWM
zi;!T`X{hE*<_fU62*n(df(oU?2yDTaOH2(;AI?T$f*_wK;n>G_*je;k4+wyG2~b%B
zVEnvBOrZvLn?!+C5twed!<?}k;W5@>k#>FH>)i`7%eP}U)g-vCbAgn3BgB$V4^sus
zLyUEoDOp!6Fs>+vAhOI5g(}$!Y>3+!Rz7sH@r{=>!buBaaJ1zbQC$)^?Nb&=#RzOG
zRioIgZZZ=pAcBI5D7fx@9J=*q4C&bKLJ))@2oVT{S~SycSk(-3Lw2kXWIu!l5Rlcp
z5m${xi@FG4vCTmcl$x+aS>i5E<OT~#1VIEPEEsDRL1lh|*imMhb4>_B5QIt)gy$)(
zoU=x{Gb}ZPKw*p4>m*GGS#_~>*My}AU5|HGaLsT@g)Iv%#m10Jw_ZE4)vb!UG<U30
z<5`l@IP<8H$0S7vM$WBt>DmWWF{;ZA%X}j2dedi2cPyd_CP{6wr4Xyi&2sg+UbZPR
zg$5Yz#?72_j5u&28w`mq@?8QTf;q$;R^^dgbCzgah~dt+FKeM^yx+0AEak3?_90uZ
z^wL*h;K3(2qoj1uIAa4MA5AN+GdE0Y(A_t#%QCv_7`B5Lc(-=$FoLY;%4~p{hof-Y
z{=)Q}0r1l&+$e~OGo$pJ;zZ6zL&_PFuuz#bmF6MsB(Vt53b$Bt*kZ?-(G?c3G@8P+
zezerjtZ8M4l4GcX3pSaW$0#T>ITR*49Mn^__hXuyNdiW)Jj^JDc1|;_E{-^A3JIx{
zT*5AkR>K-HAciu87%GUEE=<twLXU(vCDpx5Rb2}Lt*4`}j#Xo3wjo|QapQ4$AawvI
zQi+~>i_p%EQLc`*cTwDXzpn4pB_*LpUW_geNn;+fg_~l-4PuG(21Sl<w9^VI6DT>N
z#u+a)QAG@nP-5lHHE!-m!<s_rG)#_66j=RPkvk-kQKZhXCJ3n!B^K3KJG&6)k?(pZ
z`jlT@U2VieWR*clDgh+h7nBi!@D-JCMH>_ou4#8E5|=tOXxnD0$~#_C)@@{zN;@SA
zsGN$XcWld!9IoW-=H|*aL$Y&ooYPKdghC<BIh*AeZL52#v$rlpH<}?EBuy$#N>t#E
zc_6J$&G`__5=J0#<uehu=v4{Ktgh2W_4VkPb?0eSGOF}+LL4TVX`q9z9x_|jk7?{M
z^D7(4h#=7jLJ@|=W-^5J0~IAx^zx?qP(fqi7VWfYB^qZ?DrIZlxuxeu?I&H?)fD&c
zst|-Z#L);KhhTw41s3waxN}Clm$`ELe#GkWwTlgbE5`_jnsY=;m2%~yGPI(VRZ68E
zOb~c#!wccW;VP=4vf08Kq?YtyhA^vkav+4vC|<|IZ_d39U0}o#Nk#Z}VZ<Q_LdJE8
zC!{eFb#|<GH%uDKT4`mK)0)V-nwYZu9)8nL1$WjDhGESby38F`o2E)V>_(fW^N95t
zX}WnE?izDVJ&6^j9mlWFhYoXsIM!Kr%o_6yEzF{@r=YVeZ0OsHH{VG3=IvdhE3pnC
z6LL+KS!ETxT9D=$W4~3HO};sVj!7@onAo21qrv1UUUKM;_}rptkrI?dS(hwjsjGDM
zB^oC*-VpJrG~qp)DXs5F!c>GpSn{-VWk&jPWhf!C>ssv!S!M4<6S_qdQH2ym3=@?U
zF0pLaJMlg%Dzc-Z%drdgIVz(jnrUfn<#d6R3C6QnvY4_-GA6}knqHXA2aReoh;!Wr
zExPK9B<&JOs>k!$W-oL?G@5XTM4@GyEk%`c+ASNd>uU^7g(PTF<mx1*ab5<}(&k2+
zXClhTF;a^&sU)&GMw(HjR}GS98Haj^mL!r!(aSS3@V#P)vj$J_52YG-jUa+YA9)5C
zaDl+=(dJD=z)--_;*@)g&ahZ+|Bo|Va}2{XEC;gevrOx!D0-pb!KbgRXqlOrnr5!K
zv9G3rBuGrMa_|^L8A~h%At+&qA|#3k2_Th%2#P3XVpwEiNkRsO03o7^DGE@c2@*)8
zmT6cZYTe5j3mN!%ngTof<o%L-$Ld)6pXH68nJ=B}e4je6kp3qpYG>HlEFtotS41we
zg0FACu=>?-g&Mxc3pi0%a?3w@jmS}hN4e27I=$*ROU~T>kM-^HS;B9jKRORd*t%y|
zq2_g6@L-x=r_lC0-CbPOa6Sh!(By{B)m)l8mU>?kMjlT05M5tM4zF76S+giY6lF3V
zF03Io=BhY&th<u!SavGaw^j<Es;yc(SSolg3-e7!M$R3MjJ-@0dYUYEyjLjmIkj-9
aWu07|Tr!$pZ7%cwi@744C`bhd6&Zl?c_gs_

literal 2793
zcmV<F3KsQ3T4*^jL0KkKStQP;fdCD)|Kk7g_`JLW|M>s^b$h?(-{dF&1|c8-00H0*
zPEVrML`o#02>~J6%%vntfM6UsBoRPFlp;)-02wrB8f3@-13(Q1o}kb)(`gS$pp{ho
z4Yg9F8X5ownhgMG82|vp0gz|_V}nMG13{oNVgn;XAOJMeAOHb^00~pj1th1GPt_V}
zk%$99pu`4182}kH0MkK^4H`5J27t+k42=wc0Mkr>00syE6;nV6LIi0f@_+yU82|tP
z4=JWVdXG~iY#@qn-R(QkTkugiy!{ON=y2}1m7rape)fJh&SK$fyD<Mgl<h*fm))H)
z^EX|{XQKTYj<J?SUtK=mTTartR)vxO`TUoE!aSjl0}M9~bDw+nj1@O{!UK3B@;0*W
zlF^}nJNaW-TpK_@cg5GN5ReDpe2gYx^)k(KghS?S6d1%gj?)%<Ci<0jL+L~BKKoL`
zZ@#<motKB*VX_-0QARP7Ml?1{OApimPBNltfP(=>`2_)@5Ms1IWEDWtiUR$)R3Nvm
zS^zY2v~%>W;#mzlFBM-x^vEp>jZ*)z$MpV-kISB#b2lq0%dT8e#+#QM?4b@^FG(?n
zM@)6yX4s52SabLxaAD$VI5C6tF}>}8{<q#riVf|){P(?_x<fk6^UQXLvU5o!ky>^~
zM@Q}U$TYSt%Pz_90Jgg<x|W5jWhS;eRZPky)_CEqvo#)!D(<T<H*wM>-@iGXEo*Az
zj#-6KOyy=F$QY7IFtYJ;3^2|-LnwqZh+|lc!wrHBC5Nor8t-{T^F@V5QttTXo+1#0
zAqYYt5YIH%W?p`icb1$Xn0-)P2|RaU(;PPATv>)TtI}yi65_7d-w1KL@jfEkQ3yg1
zl(%zx+YRe`x}J&fnsZG#ri38^5V(XPn~ZDerrQz5%Q`|p9k8=61gPLxgj%x8k`c}!
z6Le8zhY5lhzxO?u8G>1}ET?vTw)S-4?BVLHA}hu`R|~R<5QYXAV=ubIX(gCN1|gue
zq9kGnG}6pA7V}Ls-b6PPR2ET6?#SIJLylphvgM+0l;vR0aP~=G8^AFVbp?3v@Y4RA
zQPLrewWgP6&%S&|rqgMro?W=(ucYh4mo6MP9Iqvsy35wYo~|c{D~ZMraRRPsrpY+K
zfihH4Mad`%Lo+y#{#BGjlMKp^5TS5}c1<Qx?w7#n8N|tJEahl;SvRA?&quS8v2D_{
ziQvt0i55p3fvQ%U5@kG)IK!G*rW+Z|FvED!49y61(*=%1v08*@F3p24nzrzWa#`PJ
zvz?oV7>GM~8hI`;@q3hRkKNi`lu9|JXFg>;@ZmQ-ly!|V<%-IgX_q`zM=f!!bt9OF
zPH|;rKAPpXG;q%vYmf8gJw%dL5k>DVTjk1cKAm^*PGhc|%UgKk97c1kOImAMw3xpv
zF^prgsk<`E6ls?EN_kT(u*^N>cMK-!-OHyohPb{gSg99I`GhE{chQJS1)84_iYU_x
zG{a3a(@o?N3KA4^5Q!YY$f%=INo7=1NQUw>T;dTZB2r3uTEzN8<KExs=33ez=LFJa
zTegT(Xl}S}`)8jg%`Q@u(3DDP$eIvk!)+%nC%2YVcAVRs(@toFLL~@;OuOw@bzD=I
zF4}};v>|DtX%kKf!X*ka-;F5V-2K>XE*D|PN;T!TuTkjKDMl5RQ)3L%=elj-J}{k8
zDx$Qqj$NJ;O*GR@G$552W7`j8A?EUXJzQQTSluy5j+9=NUcm$yc#+33;l~_;$t=?h
zFvAVwyf&hFyrCFWnn7H&OwKc{J=i<MAqenckc1$D2vQMc<BsU=?SxuZV;wrX{d4tc
z<2!HGo+;fgj7nS5{b>`+b6GjvbWi4Fg6dXQM5plEx>r`qt4yWg0$k07aKa~fN>xsZ
ztmLw+`Og<s4xX#Cb2GL0W>w8q<iSQ0DKUHKOo>K>p~ayHBgu?e&SjjE@`fJ9ENhi-
zo4BWyJflcDJbbgFc~o+-2uN$a;t|3koE)^At|1`_Q0;~@(@i(ydq$dh?@c{2y7#*5
zMccy|!neg3Fvc#t;*wd2T|2p5+2pIUrRCx&yk&QC?~rKLUKmK`8g7ZKvdu8qcbRl;
z$cGUm%*CoJWq6)G14t$q7(z!8+F0ACb+@8ch@udjkoZC&Ji68xG}F5}=~2f*To9A=
zZV!bVK#r%tqKphGq><pbCQbwl<_<fEuzoX$Xb558iCw}S+_vuREl%+Z->Fq?Q&UeW
zrmHNnDk!qcQ0#}4BGty>7fNRJsyWuCJ{XXl9OzeLIh~9!^5pJ<4IPAq(+q@#C|R4W
zMBFLaRvcYkkg~RVCQ%(KofuA5<yUT4a^+RqG0rf=(M8*v8irI*vkWx1MVMiZ>MXsw
zFC5JinwV$g-a$mX?hVWIN$Bo74MX6=fdq_U0bO=;qYJnT(i~QIq}D;jTffi5wiu(f
z8Id6vz1O=oh)V0-a*Ece`S~ic&Su-JEVJb|lcnAlYjd5hs<d`nt67ZAWm;urr6rUm
z!Ht1Xt*&gWh9tSMj*fOhI3$9n9;p#|)KIDfAcG)6FMbGlvn{Yj7kZ7b+}fdfW{10#
zXejECa6x_$Fl*4&P@E4nCb9UWK5#HVHgl*xkW*?W=!m@78iu703l`mqy7OXs2q+m@
zwBdp#8IKSK_AHxANBzv85G*48;HF-62TlQoKkw}uwos~nF;eBn6b`m+EbdYUk-12o
zsH?1RDB<qvScX&%u4zg-(L+>%<Umt8W5ieS9XJR*>_!nT4TFFihS|{j8bgG@VJtQc
zu*iO5XV}_UL;eu+m7UPS?;@|Wx%H^<g&Te&=UL>UuSJ%B%8p1;gH9bLhqLTa-7j}X
z)}QhGlXy+_&*FpTJHEUqd>?D%_j~)b_Gp?|f9vRbJ}-;HuR-p+x$`+k4^>>Y_F3ig
zeGTQy)$~aQ6~PaK=y-9NYV9EiRiwy!z6`wPqrACMSGvo(UA7)dw)iel1vzc@w)JGR
zz6?XU6L{t5^6=^Ny>eCawyn>D<iSVD--nu|mV2kyyUmo+`d^@g7A$%p);Y(rXwjpr
zZ0nzi>4=Dkh=_=Yh=_=Yi3mavgdqe(L_|bHNJ0!D2{k1~snKCDB5g@0d053RmyAlO
zi(+a{Etys-+sj+NnwoO*FIKbOvot`)jyU6zNu;u>n3*_2IEn@sU}1)uFq(JTD9%v?
zoppw5jB$MM?S^ENJZN1QC@8^26i|;MCCir)5fKp)5fLn8m22Mn-Z8xd#N0y(kmZzV
zg>4it*OJdUkB&brk!6%#YgJJ7Q)SGjZap;G5aSFm<rF~?5fKp)5fKp)6K2huHX<by
zY(%1pD4`&Th>(OK2tp7<L_|nJ3?T?ZOtn>3s*B34Y2KvUnR3RB8q~d{$|f?1jBjn$
zQ8AQ6V|#A0iHxEn8{2i1Oh%e%xVDwXEX>J^m#B7Ts;j!Hso9BUmV9JdXLosLn7e1q
zr;IRR2!Vz)fy<g}+0jwW*KSF7PHxP@k|N}iO(Qm<t0XG0tdN0mE@P7z-4`-wMA5Ml
zi!8FsEV0TP6thZX)=9i=c4eY%jFHVC+fqqn4qREKzL~jY%)%#TrNmsOf$dC8)=bRJ
vRhnp&YrErHMMojZM8_y}z_||?<CCtO!VZpmi-G7I_yydNP81{wGpV3JoFFSo

diff --git a/data-raw/make-data.R b/data-raw/make-data.R
index 4581bce..59e2638 100644
--- a/data-raw/make-data.R
+++ b/data-raw/make-data.R
@@ -146,121 +146,3 @@ usethis::use_data(australia10, overwrite = TRUE)
 ### Remove unnecessary files
 lf <- list.files(path = "data-raw", full.names = TRUE, pattern = ".xls|.txt|.zip|.pdf")
 invisible(file.remove(lf))
-
-########################################################################################################################
-### Internal Dataset #1: List of regex patterns
-# Empty list
-lofregex <- list()
-
-# Charlson score, ICD9
-lofregex[["charlson"]] <- list()
-lofregex[["charlson"]][["icd9"]] <- list()
-lofregex[["charlson"]][["icd9"]][["ami"]] <- "^410|^412"
-lofregex[["charlson"]][["icd9"]][["chf"]] <- "^39891|^40201|^40211|^40291|^40401|^40403|^40411|^40413|^40491|^40493|^4254|^4255|^4256|^4257|^4258|^4259|^428"
-lofregex[["charlson"]][["icd9"]][["pvd"]] <- "^0930|^4373|^440|^441|^4431|^4432|^4433|^4434|^4435|^4436|^4437|^4438|^4439|^4471|^5571|^5579|^V434"
-lofregex[["charlson"]][["icd9"]][["cevd"]] <- "^36234|^430|^431|^432|^433|^434|^435|^436|^437|^438"
-lofregex[["charlson"]][["icd9"]][["dementia"]] <- "^290|^2941|^3312"
-lofregex[["charlson"]][["icd9"]][["copd"]] <- "^4168|^4169|^490|^491|^492|^493|^494|^495|^496|^497|^498|^499|^500|^501|^502|^503|^504|^505|^5064|^5081|^5088"
-lofregex[["charlson"]][["icd9"]][["rheumd"]] <- "^4465|^7100|^7101|^7102|^7103|^7104|^7140|^7141|^7142|^7148|^725"
-lofregex[["charlson"]][["icd9"]][["pud"]] <- "^531|^532|^533|^534"
-lofregex[["charlson"]][["icd9"]][["mld"]] <- "^07022|^07023|^07032|^07033|^07044|^07054|^0706|^0709|^570|^571|^5733|^5734|^5738|^5739|^V427"
-lofregex[["charlson"]][["icd9"]][["diab"]] <- "^2500|^2501|^2502|^2503|^2508|^2509"
-lofregex[["charlson"]][["icd9"]][["diabwc"]] <- "^2504|^2505|^2506|^2507"
-lofregex[["charlson"]][["icd9"]][["hp"]] <- "^3341|^342|^343|^3440|^3441|^3442|^3443|^3444|^3445|^3446|^3449"
-lofregex[["charlson"]][["icd9"]][["rend"]] <- "^40301|^40311|^40391|^40402|^40403|^40412|^40413|^40492|^40493|^582|^5830|^5831|^5832|^5833|^5834|^5835|^5836|^5837|^585|^586|^5880|^V420|^V451|^V56"
-lofregex[["charlson"]][["icd9"]][["canc"]] <- "^140|^141|^142|^143|^144|^145|^146|^147|^148|^149|^150|^151|^152|^153|^154|^155|^156|^157|^158|^159|^160|^161|^162|^163|^164|^165|^166|^167|^168|^169|^170|^171|^172|^174|^175|^176|^177|^178|^179|^180|^181|^182|^183|^184|^185|^186|^187|^188|^189|^190|^191|^192|^193|^194|^195|^200|^201|^202|^203|^204|^205|^206|^207|^208|^2386"
-lofregex[["charlson"]][["icd9"]][["msld"]] <- "^4560|^4561|^4562|^5722|^5723|^5724|^5725|^5726|^5727|^5728"
-lofregex[["charlson"]][["icd9"]][["metacanc"]] <- "^196|^197|^198|^199"
-lofregex[["charlson"]][["icd9"]][["aids"]] <- "^042|^043|^044"
-
-# Charlson score, ICD10
-lofregex[["charlson"]][["icd10"]] <- list()
-lofregex[["charlson"]][["icd10"]][["ami"]] <- "^I21|^I22|^I252"
-lofregex[["charlson"]][["icd10"]][["chf"]] <- "^I099|^I110|^I130|^I132|^I255|^I420|^I425|^I426|^I427|^I428|^I429|^I43|^I50|^P290"
-lofregex[["charlson"]][["icd10"]][["pvd"]] <- "^I70|^I71|^I731|^I738|^I739|^I771|^I790|^I792|^K551|^K558|^K559|^Z958|^Z959"
-lofregex[["charlson"]][["icd10"]][["cevd"]] <- "^G45|^G46|^H340|^I60|^I61|^I62|^I63|^I64|^I65|^I66|^I67|^I68|^I69"
-lofregex[["charlson"]][["icd10"]][["dementia"]] <- "^F00|^F01|^F02|^F03|^F051|^G30|^G311"
-lofregex[["charlson"]][["icd10"]][["copd"]] <- "^I278|^I279|^J40|^J41|^J42|^J43|^J44|^J45|^J46|^J47|^J60|^J61|^J62|^J63|^J64|^J65|^J66|^J67|^J684|^J701|^J703"
-lofregex[["charlson"]][["icd10"]][["rheumd"]] <- "^M05|^M06|^M315|^M32|^M33|^M34|^M351|^M353|^M360"
-lofregex[["charlson"]][["icd10"]][["pud"]] <- "^K25|^K26|^K27|^K28"
-lofregex[["charlson"]][["icd10"]][["mld"]] <- "^B18|^K700|^K701|^K702|^K703|^K709|^K713|^K714|^K715|^K717|^K73|^K74|^K760|^K762|^K763|^K764|^K768|^K769|^Z944"
-lofregex[["charlson"]][["icd10"]][["diab"]] <- "^E100|^E101|^E106|^E108|^E109|^E110|^E111|^E116|^E118|^E119|^E120|^E121|^E126|^E128|^E129|^E130|^E131|^E136|^E138|^E139|^E140|^E141|^E146|^E148|^E149"
-lofregex[["charlson"]][["icd10"]][["diabwc"]] <- "^E102|^E103|^E104|^E105|^E107|^E112|^E113|^E114|^E115|^E117|^E122|^E123|^E124|^E125|^E127|^E132|^E133|^E134|^E135|^E137|^E142|^E143|^E144|^E145|^E147"
-lofregex[["charlson"]][["icd10"]][["hp"]] <- "^G041|^G114|^G801|^G802|^G81|^G82|^G830|^G831|^G832|^G833|^G834|^G839"
-lofregex[["charlson"]][["icd10"]][["rend"]] <- "^I120|^I131|^N032|^N033|^N034|^N035|^N036|^N037|^N052|^N053|^N054|^N055|^N056|^N057|^N18|^N19|^N250|^Z490|^Z491|^Z492|^Z940|^Z992"
-lofregex[["charlson"]][["icd10"]][["canc"]] <- "^C00|^C01|^C02|^C03|^C04|^C05|^C06|^C07|^C08|^C09|^C10|^C11|^C12|^C13|^C14|^C15|^C16|^C17|^C18|^C19|^C20|^C21|^C22|^C23|^C24|^C25|^C26|^C30|^C31|^C32|^C33|^C34|^C37|^C38|^C39|^C40|^C41|^C43|^C45|^C46|^C47|^C48|^C49|^C50|^C51|^C52|^C53|^C54|^C55|^C56|^C57|^C58|^C60|^C61|^C62|^C63|^C64|^C65|^C66|^C67|^C68|^C69|^C70|^C71|^C72|^C73|^C74|^C75|^C76|^C81|^C82|^C83|^C84|^C85|^C88|^C90|^C91|^C92|^C93|^C94|^C95|^C96|^C97"
-lofregex[["charlson"]][["icd10"]][["msld"]] <- "^I850|^I859|^I864|^I982|^K704|^K711|^K721|^K729|^K765|^K766|^K767"
-lofregex[["charlson"]][["icd10"]][["metacanc"]] <- "^C77|^C78|^C79|^C80"
-lofregex[["charlson"]][["icd10"]][["aids"]] <- "^B20|^B21|^B22|^B24"
-
-# Elixhauser score, ICD9
-lofregex[["elixhauser"]] <- list()
-lofregex[["elixhauser"]][["icd9"]] <- list()
-lofregex[["elixhauser"]][["icd9"]][["chf"]] <- "^39891|^40201|^40211|^40291|^40401|^40403|^40411|^40413|^40491|^40493|^4254|^4255|^4256|^4257|^4258|^4259|^428"
-lofregex[["elixhauser"]][["icd9"]][["carit"]] <- "^4260|^42613|^4267|^4269|^42610|^42612|^4270|^4271|^4272|^4273|^4274|^4276|^4277|^4278|^4279|^7850|^99601|^99604|^V450|^V533"
-lofregex[["elixhauser"]][["icd9"]][["valv"]] <- "^0932|^394|^395|^396|^397|^424|^7463|^7464|^7465|^7466|^V422|^V433"
-lofregex[["elixhauser"]][["icd9"]][["pcd"]] <- "^4150|^4151|^416|^4170|^4178|^4179"
-lofregex[["elixhauser"]][["icd9"]][["pvd"]] <- "^0930|^4373|^440|^441|^4431|^4432|^4433|^4434|^4435|^4436|^4437|^4438|^4439|^4471|^5571|^5579|^V434"
-lofregex[["elixhauser"]][["icd9"]][["hypunc"]] <- "^401"
-lofregex[["elixhauser"]][["icd9"]][["hypc"]] <- "^402|^403|^404|^405"
-lofregex[["elixhauser"]][["icd9"]][["para"]] <- "^3341|^342|^343|^3440|^3441|^3442|^3443|^3444|^3445|^3446|^3449"
-lofregex[["elixhauser"]][["icd9"]][["ond"]] <- "^3319|^3320|^3321|^3334|^3335|^33392|^334|^335|^3362|^340|^341|^345|^3481|^3483|^7803|^7843"
-lofregex[["elixhauser"]][["icd9"]][["cpd"]] <- "^4168|^4169|^490|^491|^492|^493|^494|^495|^496|^497|^498|^499|^500|^501|^502|^503|^504|^505|^5064|^5081|^5088"
-lofregex[["elixhauser"]][["icd9"]][["diabunc"]] <- "^2500|^2501|^2502|^2503"
-lofregex[["elixhauser"]][["icd9"]][["diabc"]] <- "^2504|^2505|^2506|^2507|^2508|^2509"
-lofregex[["elixhauser"]][["icd9"]][["hypothy"]] <- "^2409|^243|^244|^2461|^2468"
-lofregex[["elixhauser"]][["icd9"]][["rf"]] <- "^40301|^40311|^40391|^40402|^40403|^40412|^40413|^40492|^40493|^585|^586|^5880|^V420|^V451|^V56"
-lofregex[["elixhauser"]][["icd9"]][["ld"]] <- "^07022|^07023|^07032|^07033|^07044|^07054|^0706|^0709|^4560|^4561|^4562|^570|^571|^5722|^5723|^5724|^5725|^5726|^5727|^5728|^5733|^5734|^5738|^5739|^V427"
-lofregex[["elixhauser"]][["icd9"]][["pud"]] <- "^5317|^5319|^5327|^5329|^5337|^5339|^5347|^5349"
-lofregex[["elixhauser"]][["icd9"]][["aids"]] <- "^042|^043|^044"
-lofregex[["elixhauser"]][["icd9"]][["lymph"]] <- "^200|^201|^202|^2030|^2386"
-lofregex[["elixhauser"]][["icd9"]][["metacanc"]] <- "^196|^197|^198|^199"
-lofregex[["elixhauser"]][["icd9"]][["solidtum"]] <- "^140|^141|^142|^143|^144|^145|^146|^147|^148|^149|^150|^151|^152|^153|^154|^155|^156|^157|^158|^159|^160|^161|^162|^163|^164|^165|^166|^167|^168|^169|^170|^171|^172|^174|^175|^176|^177|^178|^179|^180|^181|^182|^183|^184|^185|^186|^187|^188|^189|^190|^191|^192|^193|^194|^195"
-lofregex[["elixhauser"]][["icd9"]][["rheumd"]] <- "^446|^7010|^7100|^7101|^7102|^7103|^7104|^7108|^7109|^7112|^714|^7193|^720|^725|^7285|^72889|^72930"
-lofregex[["elixhauser"]][["icd9"]][["coag"]] <- "^286|^2871|^2873|^2874|^2875"
-lofregex[["elixhauser"]][["icd9"]][["obes"]] <- "^2780"
-lofregex[["elixhauser"]][["icd9"]][["wloss"]] <- "^260|^261|^262|^263|^7832|^7994"
-lofregex[["elixhauser"]][["icd9"]][["fed"]] <- "^2536|^276"
-lofregex[["elixhauser"]][["icd9"]][["blane"]] <- "^2800"
-lofregex[["elixhauser"]][["icd9"]][["dane"]] <- "^2801|^2802|^2803|^2804|^2805|^2806|^2807|^2808|^2809|^281"
-lofregex[["elixhauser"]][["icd9"]][["alcohol"]] <- "^2652|^2911|^2912|^2913|^2915|^2916|^2917|^2918|^2919|^3030|^3039|^3050|^3575|^4255|^5353|^5710|^5711|^5712|^5713|^980|^V113"
-lofregex[["elixhauser"]][["icd9"]][["drug"]] <- "^292|^304|^3052|^3053|^3054|^3055|^3056|^3057|^3058|^3059|^V6542"
-lofregex[["elixhauser"]][["icd9"]][["psycho"]] <- "^2938|^295|^29604|^29614|^29644|^29654|^297|^298"
-lofregex[["elixhauser"]][["icd9"]][["depre"]] <- "^2962|^2963|^2965|^3004|^309|^311"
-
-# Elixhauser score, ICD10
-lofregex[["elixhauser"]][["icd10"]] <- list()
-lofregex[["elixhauser"]][["icd10"]][["chf"]] <- "^I099|^I110|^I130|^I132|^I255|^I420|^I425|^I426|^I427|^I428|^I429|^I43|^I50|^P290"
-lofregex[["elixhauser"]][["icd10"]][["carit"]] <- "^I441|^I442|^I443|^I456|^I459|^I47|^I48|^I49|^R000|^R001|^R008|^T821|^Z450|^Z950"
-lofregex[["elixhauser"]][["icd10"]][["valv"]] <- "^A520|^I05|^I06|^I07|^I08|^I091|^I098|^I34|^I35|^I36|^I37|^I38|^I39|^Q230|^Q231|^Q232|^Q233|^Z952|^Z953|^Z954"
-lofregex[["elixhauser"]][["icd10"]][["pcd"]] <- "^I26|^I27|^I280|^I288|^I289"
-lofregex[["elixhauser"]][["icd10"]][["pvd"]] <- "^I70|^I71|^I731|^I738|^I739|^I771|^I790|^I792|^K551|^K558|^K559|^Z958|^Z959"
-lofregex[["elixhauser"]][["icd10"]][["hypunc"]] <- "^I10"
-lofregex[["elixhauser"]][["icd10"]][["hypc"]] <- "^I11|^I12|^I13|^I15"
-lofregex[["elixhauser"]][["icd10"]][["para"]] <- "^G041|^G114|^G801|^G802|^G81|^G82|^G830|^G831|^G832|^G833|^G834|^G839"
-lofregex[["elixhauser"]][["icd10"]][["ond"]] <- "^G10|^G11|^G12|^G13|^G20|^G21|^G22|^G254|^G255|^G312|^G318|^G319|^G32|^G35|^G36|^G37|^G40|^G41|^G931|^G934|^R470|^R56"
-lofregex[["elixhauser"]][["icd10"]][["cpd"]] <- "^I278|^I279|^J40|^J41|^J42|^J43|^J44|^J45|^J46|^J47|^J60|^J61|^J62|^J63|^J64|^J65|^J66|^J67|^J684|^J701|^J703"
-lofregex[["elixhauser"]][["icd10"]][["diabunc"]] <- "^E100|^E101|^E109|^E110|^E111|^E119|^E120|^E121|^E129|^E130|^E131|^E139|^E140|^E141|^E149"
-lofregex[["elixhauser"]][["icd10"]][["diabc"]] <- "^E102|^E103|^E104|^E105|^E106|^E107|^E108|^E112|^E113|^E114|^E115|^E116|^E117|^E118|^E122|^E123|^E124|^E125|^E126|^E127|^E128|^E132|^E133|^E134|^E135|^E136|^E137|^E138|^E142|^E143|^E144|^E145|^E146|^E147|^E148"
-lofregex[["elixhauser"]][["icd10"]][["hypothy"]] <- "^E00|^E01|^E02|^E03|^E890"
-lofregex[["elixhauser"]][["icd10"]][["rf"]] <- "^I120|^I131|^N18|^N19|^N250|^Z490|^Z491|^Z492|^Z940|^Z992"
-lofregex[["elixhauser"]][["icd10"]][["ld"]] <- "^B18|^I85|^I864|^I982|^K70|^K711|^K713|^K714|^K715|^K717|^K72|^K73|^K74|^K760|^K762|^K763|^K764|^K765|^K766|^K767|^K768|^K769|^Z944"
-lofregex[["elixhauser"]][["icd10"]][["pud"]] <- "^K257|^K259|^K267|^K269|^K277|^K279|^K287|^K289"
-lofregex[["elixhauser"]][["icd10"]][["aids"]] <- "^B20|^B21|^B22|^B24"
-lofregex[["elixhauser"]][["icd10"]][["lymph"]] <- "^C81|^C82|^C83|^C84|^C85|^C88|^C96|^C900|^C902"
-lofregex[["elixhauser"]][["icd10"]][["metacanc"]] <- "^C77|^C78|^C79|^C80"
-lofregex[["elixhauser"]][["icd10"]][["solidtum"]] <- "^C00|^C01|^C02|^C03|^C04|^C05|^C06|^C07|^C08|^C09|^C10|^C11|^C12|^C13|^C14|^C15|^C16|^C17|^C18|^C19|^C20|^C21|^C22|^C23|^C24|^C25|^C26|^C30|^C31|^C32|^C33|^C34|^C37|^C38|^C39|^C40|^C41|^C43|^C45|^C46|^C47|^C48|^C49|^C50|^C51|^C52|^C53|^C54|^C55|^C56|^C57|^C58|^C60|^C61|^C62|^C63|^C64|^C65|^C66|^C67|^C68|^C69|^C70|^C71|^C72|^C73|^C74|^C75|^C76|^C97"
-lofregex[["elixhauser"]][["icd10"]][["rheumd"]] <- "^L940|^L941|^L943|^M05|^M06|^M08|^M120|^M123|^M30|^M310|^M311|^M312|^M313|^M32|^M33|^M34|^M35|^M45|^M461|^M468|^M469"
-lofregex[["elixhauser"]][["icd10"]][["coag"]] <- "^D65|^D66|^D67|^D68|^D691|^D693|^D694|^D695|^D696"
-lofregex[["elixhauser"]][["icd10"]][["obes"]] <- "^E66"
-lofregex[["elixhauser"]][["icd10"]][["wloss"]] <- "^E40|^E41|^E42|^E43|^E44|^E45|^E46|^R634|^R64"
-lofregex[["elixhauser"]][["icd10"]][["fed"]] <- "^E222|^E86|^E87"
-lofregex[["elixhauser"]][["icd10"]][["blane"]] <- "^D500"
-lofregex[["elixhauser"]][["icd10"]][["dane"]] <- "^D508|^D509|^D51|^D52|^D53"
-lofregex[["elixhauser"]][["icd10"]][["alcohol"]] <- "^F10|^E52|^G621|^I426|^K292|^K700|^K703|^K709|^T51|^Z502|^Z714|^Z721"
-lofregex[["elixhauser"]][["icd10"]][["drug"]] <- "^F11|^F12|^F13|^F14|^F15|^F16|^F18|^F19|^Z715|^Z722"
-lofregex[["elixhauser"]][["icd10"]][["psycho"]] <- "^F20|^F22|^F23|^F24|^F25|^F28|^F29|^F302|^F312|^F315"
-lofregex[["elixhauser"]][["icd10"]][["depre"]] <- "^F204|^F313|^F314|^F315|^F32|^F33|^F341|^F412|^F432"
-
-# Export data as internal
-usethis::use_data(lofregex, internal = TRUE, overwrite = TRUE)
diff --git a/data-raw/make-mapping.R b/data-raw/make-mapping.R
new file mode 100644
index 0000000..24efceb
--- /dev/null
+++ b/data-raw/make-mapping.R
@@ -0,0 +1,118 @@
+### Internal datasets with comorbidity maps
+# Required packages:
+library(devtools)
+library(usethis)
+
+# Empty list
+maps <- list()
+
+# Charlson score, ICD9
+maps[["charlson_icd9"]] <- list()
+maps[["charlson_icd9"]][["ami"]] <- c("410", "412")
+maps[["charlson_icd9"]][["chf"]] <- c("39891", "40201", "40211", "40291", "40401", "40403", "40411", "40413", "40491", "40493", "4254", "4255", "4256", "4257", "4258", "4259", "428")
+maps[["charlson_icd9"]][["pvd"]] <- c("0930", "4373", "440", "441", "4431", "4432", "4433", "4434", "4435", "4436", "4437", "4438", "4439", "4471", "5571", "5579", "V434")
+maps[["charlson_icd9"]][["cevd"]] <- c("36234", "430", "431", "432", "433", "434", "435", "436", "437", "438")
+maps[["charlson_icd9"]][["dementia"]] <- c("290", "2941", "3312")
+maps[["charlson_icd9"]][["copd"]] <- c("4168", "4169", "490", "491", "492", "493", "494", "495", "496", "497", "498", "499", "500", "501", "502", "503", "504", "505", "5064", "5081", "5088")
+maps[["charlson_icd9"]][["rheumd"]] <- c("4465", "7100", "7101", "7102", "7103", "7104", "7140", "7141", "7142", "7148", "725")
+maps[["charlson_icd9"]][["pud"]] <- c("531", "532", "533", "534")
+maps[["charlson_icd9"]][["mld"]] <- c("07022", "07023", "07032", "07033", "07044", "07054", "0706", "0709", "570", "571", "5733", "5734", "5738", "5739", "V427")
+maps[["charlson_icd9"]][["diab"]] <- c("2500", "2501", "2502", "2503", "2508", "2509")
+maps[["charlson_icd9"]][["diabwc"]] <- c("2504", "2505", "2506", "2507")
+maps[["charlson_icd9"]][["hp"]] <- c("3341", "342", "343", "3440", "3441", "3442", "3443", "3444", "3445", "3446", "3449")
+maps[["charlson_icd9"]][["rend"]] <- c("40301", "40311", "40391", "40402", "40403", "40412", "40413", "40492", "40493", "582", "5830", "5831", "5832", "5833", "5834", "5835", "5836", "5837", "585", "586", "5880", "V420", "V451", "V56")
+maps[["charlson_icd9"]][["canc"]] <- c("140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "200", "201", "202", "203", "204", "205", "206", "207", "208", "2386")
+maps[["charlson_icd9"]][["msld"]] <- c("4560", "4561", "4562", "5722", "5723", "5724", "5725", "5726", "5727", "5728")
+maps[["charlson_icd9"]][["metacanc"]] <- c("196", "197", "198", "199")
+maps[["charlson_icd9"]][["aids"]] <- c("042", "043", "044")
+
+# Charlson score, ICD10
+maps[["charlson_icd10"]] <- list()
+maps[["charlson_icd10"]][["ami"]] <- c("I21", "I22", "I252")
+maps[["charlson_icd10"]][["chf"]] <- c("I099", "I110", "I130", "I132", "I255", "I420", "I425", "I426", "I427", "I428", "I429", "I43", "I50", "P290")
+maps[["charlson_icd10"]][["pvd"]] <- c("I70", "I71", "I731", "I738", "I739", "I771", "I790", "I792", "K551", "K558", "K559", "Z958", "Z959")
+maps[["charlson_icd10"]][["cevd"]] <- c("G45", "G46", "H340", "I60", "I61", "I62", "I63", "I64", "I65", "I66", "I67", "I68", "I69")
+maps[["charlson_icd10"]][["dementia"]] <- c("F00", "F01", "F02", "F03", "F051", "G30", "G311")
+maps[["charlson_icd10"]][["copd"]] <- c("I278", "I279", "J40", "J41", "J42", "J43", "J44", "J45", "J46", "J47", "J60", "J61", "J62", "J63", "J64", "J65", "J66", "J67", "J684", "J701", "J703")
+maps[["charlson_icd10"]][["rheumd"]] <- c("M05", "M06", "M315", "M32", "M33", "M34", "M351", "M353", "M360")
+maps[["charlson_icd10"]][["pud"]] <- c("K25", "K26", "K27", "K28")
+maps[["charlson_icd10"]][["mld"]] <- c("B18", "K700", "K701", "K702", "K703", "K709", "K713", "K714", "K715", "K717", "K73", "K74", "K760", "K762", "K763", "K764", "K768", "K769", "Z944")
+maps[["charlson_icd10"]][["diab"]] <- c("E100", "E101", "E106", "E108", "E109", "E110", "E111", "E116", "E118", "E119", "E120", "E121", "E126", "E128", "E129", "E130", "E131", "E136", "E138", "E139", "E140", "E141", "E146", "E148", "E149")
+maps[["charlson_icd10"]][["diabwc"]] <- c("E102", "E103", "E104", "E105", "E107", "E112", "E113", "E114", "E115", "E117", "E122", "E123", "E124", "E125", "E127", "E132", "E133", "E134", "E135", "E137", "E142", "E143", "E144", "E145", "E147")
+maps[["charlson_icd10"]][["hp"]] <- c("G041", "G114", "G801", "G802", "G81", "G82", "G830", "G831", "G832", "G833", "G834", "G839")
+maps[["charlson_icd10"]][["rend"]] <- c("I120", "I131", "N032", "N033", "N034", "N035", "N036", "N037", "N052", "N053", "N054", "N055", "N056", "N057", "N18", "N19", "N250", "Z490", "Z491", "Z492", "Z940", "Z992")
+maps[["charlson_icd10"]][["canc"]] <- c("C00", "C01", "C02", "C03", "C04", "C05", "C06", "C07", "C08", "C09", "C10", "C11", "C12", "C13", "C14", "C15", "C16", "C17", "C18", "C19", "C20", "C21", "C22", "C23", "C24", "C25", "C26", "C30", "C31", "C32", "C33", "C34", "C37", "C38", "C39", "C40", "C41", "C43", "C45", "C46", "C47", "C48", "C49", "C50", "C51", "C52", "C53", "C54", "C55", "C56", "C57", "C58", "C60", "C61", "C62", "C63", "C64", "C65", "C66", "C67", "C68", "C69", "C70", "C71", "C72", "C73", "C74", "C75", "C76", "C81", "C82", "C83", "C84", "C85", "C88", "C90", "C91", "C92", "C93", "C94", "C95", "C96", "C97")
+maps[["charlson_icd10"]][["msld"]] <- c("I850", "I859", "I864", "I982", "K704", "K711", "K721", "K729", "K765", "K766", "K767")
+maps[["charlson_icd10"]][["metacanc"]] <- c("C77", "C78", "C79", "C80")
+maps[["charlson_icd10"]][["aids"]] <- c("B20", "B21", "B22", "B24")
+
+# Elixhauser score, ICD9
+maps[["elixhauser_icd9"]] <- list()
+maps[["elixhauser_icd9"]][["chf"]] <- c("39891", "40201", "40211", "40291", "40401", "40403", "40411", "40413", "40491", "40493", "4254", "4255", "4256", "4257", "4258", "4259", "428")
+maps[["elixhauser_icd9"]][["carit"]] <- c("4260", "42613", "4267", "4269", "42610", "42612", "4270", "4271", "4272", "4273", "4274", "4276", "4277", "4278", "4279", "7850", "99601", "99604", "V450", "V533")
+maps[["elixhauser_icd9"]][["valv"]] <- c("0932", "394", "395", "396", "397", "424", "7463", "7464", "7465", "7466", "V422", "V433")
+maps[["elixhauser_icd9"]][["pcd"]] <- c("4150", "4151", "416", "4170", "4178", "4179")
+maps[["elixhauser_icd9"]][["pvd"]] <- c("0930", "4373", "440", "441", "4431", "4432", "4433", "4434", "4435", "4436", "4437", "4438", "4439", "4471", "5571", "5579", "V434")
+maps[["elixhauser_icd9"]][["hypunc"]] <- c("401")
+maps[["elixhauser_icd9"]][["hypc"]] <- c("402", "403", "404", "405")
+maps[["elixhauser_icd9"]][["para"]] <- c("3341", "342", "343", "3440", "3441", "3442", "3443", "3444", "3445", "3446", "3449")
+maps[["elixhauser_icd9"]][["ond"]] <- c("3319", "3320", "3321", "3334", "3335", "33392", "334", "335", "3362", "340", "341", "345", "3481", "3483", "7803", "7843")
+maps[["elixhauser_icd9"]][["cpd"]] <- c("4168", "4169", "490", "491", "492", "493", "494", "495", "496", "497", "498", "499", "500", "501", "502", "503", "504", "505", "5064", "5081", "5088")
+maps[["elixhauser_icd9"]][["diabunc"]] <- c("2500", "2501", "2502", "2503")
+maps[["elixhauser_icd9"]][["diabc"]] <- c("2504", "2505", "2506", "2507", "2508", "2509")
+maps[["elixhauser_icd9"]][["hypothy"]] <- c("2409", "243", "244", "2461", "2468")
+maps[["elixhauser_icd9"]][["rf"]] <- c("40301", "40311", "40391", "40402", "40403", "40412", "40413", "40492", "40493", "585", "586", "5880", "V420", "V451", "V56")
+maps[["elixhauser_icd9"]][["ld"]] <- c("07022", "07023", "07032", "07033", "07044", "07054", "0706", "0709", "4560", "4561", "4562", "570", "571", "5722", "5723", "5724", "5725", "5726", "5727", "5728", "5733", "5734", "5738", "5739", "V427")
+maps[["elixhauser_icd9"]][["pud"]] <- c("5317", "5319", "5327", "5329", "5337", "5339", "5347", "5349")
+maps[["elixhauser_icd9"]][["aids"]] <- c("042", "043", "044")
+maps[["elixhauser_icd9"]][["lymph"]] <- c("200", "201", "202", "2030", "2386")
+maps[["elixhauser_icd9"]][["metacanc"]] <- c("196", "197", "198", "199")
+maps[["elixhauser_icd9"]][["solidtum"]] <- c("140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195")
+maps[["elixhauser_icd9"]][["rheumd"]] <- c("446", "7010", "7100", "7101", "7102", "7103", "7104", "7108", "7109", "7112", "714", "7193", "720", "725", "7285", "72889", "72930")
+maps[["elixhauser_icd9"]][["coag"]] <- c("286", "2871", "2873", "2874", "2875")
+maps[["elixhauser_icd9"]][["obes"]] <- c("2780")
+maps[["elixhauser_icd9"]][["wloss"]] <- c("260", "261", "262", "263", "7832", "7994")
+maps[["elixhauser_icd9"]][["fed"]] <- c("2536", "276")
+maps[["elixhauser_icd9"]][["blane"]] <- c("2800")
+maps[["elixhauser_icd9"]][["dane"]] <- c("2801", "2802", "2803", "2804", "2805", "2806", "2807", "2808", "2809", "281")
+maps[["elixhauser_icd9"]][["alcohol"]] <- c("2652", "2911", "2912", "2913", "2915", "2916", "2917", "2918", "2919", "3030", "3039", "3050", "3575", "4255", "5353", "5710", "5711", "5712", "5713", "980", "V113")
+maps[["elixhauser_icd9"]][["drug"]] <- c("292", "304", "3052", "3053", "3054", "3055", "3056", "3057", "3058", "3059", "V6542")
+maps[["elixhauser_icd9"]][["psycho"]] <- c("2938", "295", "29604", "29614", "29644", "29654", "297", "298")
+maps[["elixhauser_icd9"]][["depre"]] <- c("2962", "2963", "2965", "3004", "309", "311")
+
+# Elixhauser score, ICD10
+maps[["elixhauser_icd10"]] <- list()
+maps[["elixhauser_icd10"]][["chf"]] <- c("I099", "I110", "I130", "I132", "I255", "I420", "I425", "I426", "I427", "I428", "I429", "I43", "I50", "P290")
+maps[["elixhauser_icd10"]][["carit"]] <- c("I441", "I442", "I443", "I456", "I459", "I47", "I48", "I49", "R000", "R001", "R008", "T821", "Z450", "Z950")
+maps[["elixhauser_icd10"]][["valv"]] <- c("A520", "I05", "I06", "I07", "I08", "I091", "I098", "I34", "I35", "I36", "I37", "I38", "I39", "Q230", "Q231", "Q232", "Q233", "Z952", "Z953", "Z954")
+maps[["elixhauser_icd10"]][["pcd"]] <- c("I26", "I27", "I280", "I288", "I289")
+maps[["elixhauser_icd10"]][["pvd"]] <- c("I70", "I71", "I731", "I738", "I739", "I771", "I790", "I792", "K551", "K558", "K559", "Z958", "Z959")
+maps[["elixhauser_icd10"]][["hypunc"]] <- c("I10")
+maps[["elixhauser_icd10"]][["hypc"]] <- c("I11", "I12", "I13", "I15")
+maps[["elixhauser_icd10"]][["para"]] <- c("G041", "G114", "G801", "G802", "G81", "G82", "G830", "G831", "G832", "G833", "G834", "G839")
+maps[["elixhauser_icd10"]][["ond"]] <- c("G10", "G11", "G12", "G13", "G20", "G21", "G22", "G254", "G255", "G312", "G318", "G319", "G32", "G35", "G36", "G37", "G40", "G41", "G931", "G934", "R470", "R56")
+maps[["elixhauser_icd10"]][["cpd"]] <- c("I278", "I279", "J40", "J41", "J42", "J43", "J44", "J45", "J46", "J47", "J60", "J61", "J62", "J63", "J64", "J65", "J66", "J67", "J684", "J701", "J703")
+maps[["elixhauser_icd10"]][["diabunc"]] <- c("E100", "E101", "E109", "E110", "E111", "E119", "E120", "E121", "E129", "E130", "E131", "E139", "E140", "E141", "E149")
+maps[["elixhauser_icd10"]][["diabc"]] <- c("E102", "E103", "E104", "E105", "E106", "E107", "E108", "E112", "E113", "E114", "E115", "E116", "E117", "E118", "E122", "E123", "E124", "E125", "E126", "E127", "E128", "E132", "E133", "E134", "E135", "E136", "E137", "E138", "E142", "E143", "E144", "E145", "E146", "E147", "E148")
+maps[["elixhauser_icd10"]][["hypothy"]] <- c("E00", "E01", "E02", "E03", "E890")
+maps[["elixhauser_icd10"]][["rf"]] <- c("I120", "I131", "N18", "N19", "N250", "Z490", "Z491", "Z492", "Z940", "Z992")
+maps[["elixhauser_icd10"]][["ld"]] <- c("B18", "I85", "I864", "I982", "K70", "K711", "K713", "K714", "K715", "K717", "K72", "K73", "K74", "K760", "K762", "K763", "K764", "K765", "K766", "K767", "K768", "K769", "Z944")
+maps[["elixhauser_icd10"]][["pud"]] <- c("K257", "K259", "K267", "K269", "K277", "K279", "K287", "K289")
+maps[["elixhauser_icd10"]][["aids"]] <- c("B20", "B21", "B22", "B24")
+maps[["elixhauser_icd10"]][["lymph"]] <- c("C81", "C82", "C83", "C84", "C85", "C88", "C96", "C900", "C902")
+maps[["elixhauser_icd10"]][["metacanc"]] <- c("C77", "C78", "C79", "C80")
+maps[["elixhauser_icd10"]][["solidtum"]] <- c("C00", "C01", "C02", "C03", "C04", "C05", "C06", "C07", "C08", "C09", "C10", "C11", "C12", "C13", "C14", "C15", "C16", "C17", "C18", "C19", "C20", "C21", "C22", "C23", "C24", "C25", "C26", "C30", "C31", "C32", "C33", "C34", "C37", "C38", "C39", "C40", "C41", "C43", "C45", "C46", "C47", "C48", "C49", "C50", "C51", "C52", "C53", "C54", "C55", "C56", "C57", "C58", "C60", "C61", "C62", "C63", "C64", "C65", "C66", "C67", "C68", "C69", "C70", "C71", "C72", "C73", "C74", "C75", "C76", "C97")
+maps[["elixhauser_icd10"]][["rheumd"]] <- c("L940", "L941", "L943", "M05", "M06", "M08", "M120", "M123", "M30", "M310", "M311", "M312", "M313", "M32", "M33", "M34", "M35", "M45", "M461", "M468", "M469")
+maps[["elixhauser_icd10"]][["coag"]] <- c("D65", "D66", "D67", "D68", "D691", "D693", "D694", "D695", "D696")
+maps[["elixhauser_icd10"]][["obes"]] <- c("E66")
+maps[["elixhauser_icd10"]][["wloss"]] <- c("E40", "E41", "E42", "E43", "E44", "E45", "E46", "R634", "R64")
+maps[["elixhauser_icd10"]][["fed"]] <- c("E222", "E86", "E87")
+maps[["elixhauser_icd10"]][["blane"]] <- c("D500")
+maps[["elixhauser_icd10"]][["dane"]] <- c("D508", "D509", "D51", "D52", "D53")
+maps[["elixhauser_icd10"]][["alcohol"]] <- c("F10", "E52", "G621", "I426", "K292", "K700", "K703", "K709", "T51", "Z502", "Z714", "Z721")
+maps[["elixhauser_icd10"]][["drug"]] <- c("F11", "F12", "F13", "F14", "F15", "F16", "F18", "F19", "Z715", "Z722")
+maps[["elixhauser_icd10"]][["psycho"]] <- c("F20", "F22", "F23", "F24", "F25", "F28", "F29", "F302", "F312", "F315")
+maps[["elixhauser_icd10"]][["depre"]] <- c("F204", "F313", "F314", "F315", "F32", "F33", "F341", "F412", "F432")
+
+# Export data as internal
+usethis::use_data(maps, internal = TRUE, overwrite = TRUE)