From 38ec9e85e6835f9e1dd7271a14c33474876abe2d Mon Sep 17 00:00:00 2001 From: Duncan Gillespie Date: Thu, 2 Sep 2021 21:31:18 +0100 Subject: [PATCH] edit disease names / groups --- R/disease_names.R | 2 +- data-raw/disease_groups.R | 2 +- data/disease_groups.rda | Bin 2543 -> 2609 bytes man/disease_groups.Rd | 2 +- 4 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/disease_names.R b/R/disease_names.R index 212b041..df2834f 100644 --- a/R/disease_names.R +++ b/R/disease_names.R @@ -36,7 +36,7 @@ #' @format A data.table containing disease groupings following the schemes used in #' the Royal College of Physicians report 'Hiding in Plain Sight' Chapter 3 \insertCite{RCP2018}{tobalcepi} #' and \insertCite{Angus2018;textual}{tobalcepi}. -#' Also includes a column of formatted disease names. +#' Also includes a column of formatted disease names and an indication of which diseases are related to tobacco only, alcohol only or both #' #' @references #' \insertRef{RCP2018}{tobalcepi} diff --git a/data-raw/disease_groups.R b/data-raw/disease_groups.R index 2afa3a3..0a52d70 100644 --- a/data-raw/disease_groups.R +++ b/data-raw/disease_groups.R @@ -4,7 +4,7 @@ library(data.table) # Set the file path to point to the University of Sheffield X drive -root_dir <- "/Volumes/" +root_dir <- "/Volumes/Shared/" disease_groups <- fread(paste0(root_dir, "ScHARR/PR_Disease_Risk_TA/Code/tables/disease_groups.csv")) diff --git a/data/disease_groups.rda b/data/disease_groups.rda index 8865ee240c37b6bfb1fd1fb7293327367faf4102..d2faf0298c7e2446448595e0a8afb15f994ccd32 100644 GIT binary patch literal 2609 zcmV-13eNRHT4*^jL0KkKSv&|T#Q+Jif6)K`|NqzL|MEZo-{8Oh-|#>H01yBH;0wPm zTXt+{Iu}$;%?cxCl&UDu4HOhm)YDTCXqeHIrWB_V< z0wB_!rkIp^k5TA=GypO*0001KrkVrwKmo%*Gyoa{KxhB}2AVX`20#DBZV+Q{~mh+X&PVW zxBqgJoo=ZU-J0Kqph-V_>>p?A-|cCSv-~EqB2LcE!AmO>`#6n&)F#X&3RNrI;0OX& z3dU?9*A5#TdYw=Q2IaXrwpI3cH!|5V5&Vn`0FeTKq9hJ%2u{|{XKJY&Acq`6V-V(6 zCTjgpWvD|e5D^Ep(|$W^SAtT!)k|jX}R8&!Fh=@NmPYOtrO&N#GIu<-&Zqz!5Aul&03YHq;$TXRzav zNM%gH6gCr@l zLWcwbS)us_2QK5TsX?8w#|CT|V&>)@^h&Fv${|@t3>d}ODyL7c(VFr`XABQ~ry?^% z7cCO6Ihx98qfH^qG$6nlph7x0cwLU69k(a6|F+GUWvCl9T{!sGDD|i$c1Cyb^wU~> z(E!3Zq3ohEejo^*rns*nyZ6jhh*ap*EDMqH5I5DD^X;tEPfC@YK_p=Q7;$lGP?M&D z`3oX*ViRF^H~hF`ayE?bbG_*8wYPqE?zK(IpwSeqsTiVDCAJDS=BpB`oX}Kk-LBL? zIZoH#mN{vm(&qA`T~8Ux?1w}R&r6GpunDax95O1W0mBR7sP5EmG^K|Y{8O0)2(^Tg zMu6=Lia9X>W;&?@&AY*^5crH4GHsS}3C|dlTdTU9zS!h2W@bP#k&t_}UAr6|b)C9( z;je%%GEny>VrEYq>7SlN2Jx%`9$$v`43u|EpGgR9>4V?W98q%= zY|VQMd#(AQkuEV&Syowb8qaMz{Vsl->!VFluA1&tjo$^Sqa5$t1m-q&&`ByN3KQza zut+MFV@)aM!&X{iHRD*`!S=1qXxJ2M%7hhRcM>#+VZl|RgXhTYM5%~C7F+y#;c`c%jT*%; zFWM`UsC1LtYhi5fYM1=B#?8yP(RUx$E~BYY?r>7eNR;gTkrOFRQp=-*lk=bC*_~C! z#=We$aOq0@F;v~X?&URziwazsvbUSjXQ8;nL_I~DL2sZwy6ctr+P0#br0;LsU_Yuu zhwF2ysy9e)s_JZB>g^_tTNEk1wXvn;YgL49OusEvGvdSCKI0IWeuo>q=SLPF^y`Lx z4#PFYmr$ePM_6|G+Bzxfh?n5_iJ$c7m2zSTlH7pbF^}13f-quoNCgDE7pkhWg_qdL zB6*tb@pUXGOl_<8+s2A8$v$%Nw+ao53;5_?EUv=-hEmac1#VRn3*r)H6=Z zYjs-pUJ4m1Xq24#Jkv2Wqlh_%g4Sf2(oymV6=hXLR8F^?b;>QI&>7CDKwQ5T@xS6p z%@e96#5IUfcnL3p4wBP2FV7qB$&Q9nfC(c>TL=><^N2)nmPe?ROF$jKPzE%oP!e|K z2~szFKT&rV2OR58m|cp-Fux|9I(R;ZYm>0izIxl)I~lefBUPQHp9|R7>vs(*tWguo z4soky@xK)SV_wpbg(Re^e99!0P5E z6F0sZX}IH_QIgh;8gnyppN;ZX^lbO5r1QBu+!{SzcbAIUJ2yvjnrdAJSwgCCoRc+L zdtB>T9n+9-8N?z@rz%Ia$&<8w4@1efDk@48RW*l|Njlyoi(ypSQNg9El&R~;s_u59 z$@H6!-OnZ7QixSZRG_GeQ)QQ{uWcgoUZAL%B(%%^8G;x{D&EQ*mR$B6^78sUmhZ_VPV17mFmw z@Mzizvh`gI9YC8ItQ?;M-)PaXM)BtW@=fZd%3`GbF!P8 z6t$VJzGk88y-I)MR$ckkcXv@v@s5$yrN(M`GRR@grnO4L*v;dXSC(0I#&smADheT; zi4s#y4*1uXiJ7*t#AyRDB4!A{+RIzN;#4wg^!Me`g>=VAHe)MUOXAw%)XGUzM1)KvqjpE> z$#E8G%8w4^jmI-%)_3>dlOzBQ;xkv6jzLvQf=7S@E{8GG(>V zg6~G&?fcp@U4pe%d|TJQqH_2aw;sjn)VAkNq)gb(sTRptL$#JFu+f@RqZg|-Nx9VZ zNf|X=t1cNP!xAkjxppj=O{=85H>#SEtL+lRC@BjNu#l*O7CiwV%wF@Xf;CL)sMi`2 zSzMc24}GVlITgjC%NA@WzUEoE`>cnS-(o!{`15PnT=F(9Fq|#jRgu>}_H+?>K9tv%6HFAE> T|NfGd`$gQ5P81{$0t&G}_2BA5 literal 2543 zcmVk|Iq*c|NqzL|MEZo-{8Oh-|#>H01yBH;0s@S z+sg4_qH(F-nh00v!pfmK-Im055A{}tN?td9KLder1%VW!~s68Bujov0fqL$g4YF;XCEc*-S_2^BC! zR`!Kb!G;92&gxc@wXgLqOa-ec4e_hE#~J2M1U6ZxBz@^T8>v`_c79!34&M_hW96K1 z@_FUwsys)LRjgK(mR6-q(8M{JUP+0%nqK1aIf|JyA&t*0AP@<6nAi|;ZaQeFF}n;e zcfH0Cax)Q{)uCdFrKqqRIh>p`FI%z4i)@@t_n!rgh{aT7UTD!wO=!91^htv+DlZ1A z6plWQziY-Lo(b+p?XO*}pc?dS_&6F;D^N)7jB@4AJrnSm2386l+N-bR0xMfP*NIi+ z$c0qa=!cDx$rdG)?9pT@My|#+x*9QP4|e@pv?@u@F_neNy(|LjF$XWtqYQ}JG0P*m z5+7^s?`6M5+{_9q7P%({RI^=s4Y;#S8L^@YjeE4(ss|C<95%w)=5xs9MjB{%4YGAP zsD7ekG8Viph?CJ`%x@hR<$i;v!*N8oYT?0ms6sBdP?9qTXlxb|gZgQ+u*)m7KA!_Kq8yR!{@p?Q*r=$VO`IgXk7WI%Kc zfJv{PZ!d`$mw0zRFqUWdF`Vs!LY-xp{#s&va~sn4H662x;}A@E08lBJWNI}j(;1G* z9R3#_t|t345>1=zWft!P*Zny0-Q5RWEse4&a>zi(nz9NVC5Kg4mxr4DPSeL3x0mNz z=bY-4YG6{ASsm+EWtU~D!i42Y{xcfoC?R^*`mHxHv{887CW@B%fYcYIHJiet1#K-O zb!-N2$QcgqPOxgm`NnId&GemM9ZOcfmVK()t;g6tq}`9vu$1{2GyU@#tZbh%c>}DLQKBGbWUA2O+4nnI?BiJ`n<}s;H`o)bYtH zaL_Y6B7nJmO{V`Wo+P}GA|WviJUt4wwl>~z;bm5vTFUNY!-rGkIX5}XTI0yp!Opuguwpcwi_1%w( zH9IK^%6!QDqt;ciz1qpW!MPNVPnjInIH+#6G1U< z4XF$|k;O-*{cIYTwTwO0T1-SP=~1haR5rkm+7)eL!0i%>yLpnTWk+9pm@I|_oI*hr z96l?2XM4Sf{k2`Y*A@4gK%~(k>5+s>r2Xw+XyGj(YWvG*5 z8cd}z;ej*IocI&2UkD1yXv zVh&@DKqh!889O&7bwEa!KpwlNPg5?N`Awp-~2m=ZcA@sye52zL~!eqK~V1_EH_{$er4z#@MxbULP)Pzx_ltN-)Aanha_xd-h^!RF2NxBBBI2rP5eD&mJ-jzDTMXF5E}Cmiu+P0XB;JgadreCW5qRJZ z0}c1?wS@$R4gsh$kg#Unneqi(wgxIx(ZiVty4RUPm?p?MFtp8>u8DA3vqo_mIi2wk z!IG?)Y{40ph*BnZbEu0WQmBf-tun}lO1@H1#amNq5w0&YCN{)~qIR=p@v-hk(snUX zLX61qw-jjkEDvGLv!_yA8(yR@e2p)za#EDnjN{q0X@h~kEZ#UeO8mWL)W5><*T z3R7+3JR0pqWi`|q?|QJMsHzl|D=Z$;R#g=)>GxK2MAT~x&4>B_dmxYgF64@Ep&^%` Fr_ff;snh@f diff --git a/man/disease_groups.Rd b/man/disease_groups.Rd index c1568a9..87132d8 100644 --- a/man/disease_groups.Rd +++ b/man/disease_groups.Rd @@ -8,7 +8,7 @@ A data.table containing disease groupings following the schemes used in the Royal College of Physicians report 'Hiding in Plain Sight' Chapter 3 \insertCite{RCP2018}{tobalcepi} and \insertCite{Angus2018;textual}{tobalcepi}. -Also includes a column of formatted disease names. +Also includes a column of formatted disease names and an indication of which diseases are related to tobacco only, alcohol only or both } \usage{ disease_groups