From 80f1e6fe12d088f1152abea62199522e7c7a14a4 Mon Sep 17 00:00:00 2001
From: AG Damsbo <agdamsbo@pm.me>
Date: Fri, 14 Apr 2023 11:47:01 +0200
Subject: [PATCH] the included dataset is updated to include special characters
 in form names

---
 R/redcapcast_data.R        |   4 ++--
 data-raw/redcapcast_data.R |   2 +-
 data/redcapcast_data.rda   | Bin 922 -> 940 bytes
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/redcapcast_data.R b/R/redcapcast_data.R
index 8e3636c..19c3912 100644
--- a/R/redcapcast_data.R
+++ b/R/redcapcast_data.R
@@ -19,14 +19,14 @@
 #'   \item{hypertension}{Hypertension, character}
 #'   \item{diabetes}{diabetes, character}
 #'   \item{region}{region, character}
-#'   \item{base_complete}{Completed, character}
+#'   \item{baseline_data_start_complete}{Completed, character}
 #'   \item{mrs_assessed}{mRS Assessed, character}
 #'   \item{mrs_date}{Assesment date, date}
 #'   \item{mrs_score}{Score, numeric}
 #'   \item{mrs_complete}{Complete, numeric}
 #'   \item{event_date}{Event date, date}
 #'   \item{event_type}{Event type, character}
-#'   \item{event_complete}{Completed, character}
+#'   \item{new_event_complete}{Completed, character}
 #'
 #' }
 #' @usage data(redcapcast_data)
diff --git a/data-raw/redcapcast_data.R b/data-raw/redcapcast_data.R
index 245d5f0..150396e 100644
--- a/data-raw/redcapcast_data.R
+++ b/data-raw/redcapcast_data.R
@@ -1,6 +1,6 @@
 ## code to prepare `redcapcast_data` dataset goes here
 
-redcapcast_data <- REDCapR::redcap_read(redcap_uri = uri,
+redcapcast_data <- REDCapR::redcap_read(redcap_uri = keyring::key_get("DB_URI"),
                                         token = keyring::key_get("cast_api"),
                                         raw_or_label = "label"
                                         )$data
diff --git a/data/redcapcast_data.rda b/data/redcapcast_data.rda
index af76e04f6a7e54559f49c4f4262f5e73628140b9..5095059e643f3adb2178cd777f4ab90abad1ea46 100644
GIT binary patch
delta 927
zcmV;Q17Q4`2doDfLRx4!F+o`-Q(2&Fs~rFaIDh~D|NX{D>5&;6f1A(-m4KTDQhHR#
z$PEAu0~13gMnC`tjDQ%JO)_WzG-!H_2LJ#7000000000000000G6abTAwwWx8UO&(
zN2ma4kN{{J0iXte02&7X000000000000000001%sii1f^+D}S*QxyGE)Y^<q003wJ
z0000q05en601qkme*hMKIpJ{-4k8Hn{QcDYI=;TECu%gQH;RU!l2c|*04!h$FbRT$
z+(IriBH|h<gh@yR8hJ?rXhQ%K67Kj8)0hjfeZT`~ZQq1(ws3*Y9ArwibDhDGbvulP
zT!<BI_o7V#Y%d@R+7I^Ui4>j+sm^v@rK9#|IJXH4awuyae^OTfEJfW^feREgu}XGi
zl2`&u^#+Wp074eoph1Iy7<iCkbKFBHnMUFE?ZWZh3hH!b9LSxP<62~=5W?EY_h)uh
zO4{+R<y<JrHri}%95`_}UVC7kxedBro{`l-VzeL(gb5~+KoHUh0k(t?(d%F&5W%#7
z4YETLNpD&Ne}grkSS(1|jgE+DR$qW6Yw$x{s%oZ$4$=n9ErJ7W@&zZYVPiOQg8gd|
zs+tiRyYQzlFy(9N*Ho=>1X43D&5x+**1ecZN5;VGAlvVo)a+t37xR~)BRk2+w%2IJ
z(ql>shV$tpq3t1xWTc@eH8U773|@#JSSURpN;89Ff2v*pL{bHr5bvRlt0Ox}opxK{
zm?;^22F^T2``gKpM<Sb9Rx|eV^DgH5k<aHTz2N$oJ|4ndS!rd1D|US}k_EZyV$x_Q
zX$;A`OjhknQ&I-f6xkb1gJEr|V~HiG@+gIgV<fP`4lP1Cu%Sv#HUvt>(F)lD6;xSo
zO$CU0e~i>EI*Vm;_On|)h^UEIN@{H7U7Z<X6^jU2C{l}aBODAYfQ3PNjR_E0wSKkn
zY=IAh@xzrM#GT|-Yc&a_ylsHmQlMnMT<fS+We3W*^TaJwcc->p)6&7Ip?HOGv0o!T
zA#7R;L0ULHu5u}IOu{%g4+{}wqJtWP60s5neVYW_=?=-&WblQ19R-L`B-_zsW$<!L
zrU-`ex>5;_O%vKcP9Rh0MA#JbL<OS@Lc)UzBfLa&hv{osx{375Ilur7Dc`>g)Ttl4
zha0(isEQ{#$p&OmzwB6^FTNlFU;;$3v3A_zfPpLEzyT3xfFS>ixgwk>NKiIaj(~?5
Bf)fA$

delta 909
zcmV;819JSV2bu>NLRx4!F+o`-Q&}*TP^th19e@A-|NX)U$&ncxe|yLiw&q!Fkdi{C
znK2DC&|(P0FhDe7U=g9C1j1>w6Hg@5OagjO)D;tIXwU>;m`s>V03m=(6EqQk00LkE
zp%@7g5i}xtN2!@013=NB27m^D00w{okN_G70000q0002c13&;Y007Vc001IVAfU#e
zJxv4DG&D5P>H(0@f6y8L20#EFkN^kV0AAd)J;Xpbh$G|k(Wl|n_4V4Fh|{FrN*aPo
zYiEQ2Ki~y`7J}m?1iKL~q)mOAEkHEY)lw1)zyX5yv<}p)2eE!o0z@|Vkc`}@2cHOv
zLv^z`+ZiV|RPC}%w-AZ=B1{r)>Hw|(viNaHn98R+RJ%(Df9|;A%yccn4b(`m0@5yI
z$PloGG*X?JB$eSM`hygz074ekph1m#GB81dIm9xFlx`nx%#S6&uBS#|Lu_**cC6Ld
zanp!lWn}x)xhkb)ddr-fWf?}>O^w5c4kruIWDUyZEUFe3B!JzZNiiS-kwSn;5eh{0
zz!WJ0Ku|H%e}b!iAfeodHz2!`LKYGuZ-Ye|!<=Cb3Q<v=ncTlCrbrYF1wjZ2E;xWB
z!=l0jAOI2!K(kB^F#?u?DIIH*W9d3|F7-)b=HAN8ZvMU_Nq;$7QapZMC6+q|Hkd`B
zr7}KsEhaS})>Tw9%TI!jIq3MZLlPM%XR1YV$XCFNe<Vhu=QAu6Bal9<N85lWnLeiW
zxy}2=aRzw@Rt#0Cqa$058QF?GF!*uQ{E(Pg6G4djI^Kc-X)fK1!q8$ghFrmZG4&L}
z$%fLa_`_+iY%$uuC`o8LcdEpsiOGc?fgc1Fu$f(YD5D!iR;&=G?M#@}l#c=xIppF=
zM&5*<e^{AGN;KOF7SfS8LX?Fy8pk6N63L?rA~y|<%<9n8YOh<oIN+ExaO)tm0%GcR
z$i=@T0!6TdENEk0M;8n}8ggyKQXfKG;?|zu6-(*_X+b7M<Ar+2CWUOs7#<W^v@2L1
ziZM5$;mBhn4FpIUY!h>`9doM5<O=R$3t>fOYZd(7E@8}ol#`d8P*zH!SDQetlp63-
z3<>|oyiuJ8r!eM4Lqg}r{hcG^_x4q*i~ufe-~UZmqS)fp?rT~z+*r#rk_(qTyIm7S
j(+~in0tt68zRfIbh%MlN0F>hZA^#V0ML1B9FqKfMMErvg