From 4f47c2ac5db23233c8e38a7fe5e00d986d0e7a61 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Tue, 6 Feb 2024 14:15:36 +0100
Subject: [PATCH] formatting

---
 data-raw/redcapcast_data.R    |   6 +++++-
 data/redcapcast_data.rda      | Bin 1096 -> 1162 bytes
 man/d2w.Rd                    |   6 +++---
 man/strsplitx.Rd              |   2 +-
 test-data/test_splitr/debug.r |   3 ++-
 5 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/data-raw/redcapcast_data.R b/data-raw/redcapcast_data.R
index 150396e..0a155f9 100644
--- a/data-raw/redcapcast_data.R
+++ b/data-raw/redcapcast_data.R
@@ -3,6 +3,10 @@
 redcapcast_data <- REDCapR::redcap_read(redcap_uri = keyring::key_get("DB_URI"),
                                         token = keyring::key_get("cast_api"),
                                         raw_or_label = "label"
-                                        )$data
+                                        )$data |> dplyr::tibble()
+
+# redcapcast_data <- easy_redcap(project.name = "redcapcast_pacakge",
+#                                uri = keyring::key_get("DB_URI"),
+#                                widen.data = FALSE)
 
 usethis::use_data(redcapcast_data, overwrite = TRUE)
diff --git a/data/redcapcast_data.rda b/data/redcapcast_data.rda
index 907c2c9b9a883d51e932a99c23527716d9c04705..3a936ee8f699fa3c569296430d67aa35abf7abdc 100644
GIT binary patch
literal 1162
zcmV;51a<pDT4*^jL0KkKS!!UR_y7kb|NsC0|HMe?f9n3>-(vs&-}Lf=04Ll4h)%*N
z8L*cMQT@;aFET{6X<=+E5=k^v{S@^!pwraTM#^X&ri_5eplH#cGI~J7^){er11G4^
zJrhQT)NM^P*+58;nkJJ8kfzdjqct{@Y8f;J5NHiF01Y(LMt}fmkjbC}Kmi5>(+Q>~
zCXAQ@U<shWO)vmVm;eD7BNGvTO$<XOj6s1k!fA<#qb2~D0%$N3OaK!m002e^#Kd3|
zLlDWM1X4s(Pf6-AwMU|9>S>?`ngALa00000&;Zfu13&;80Mkmy1h@r7Y~ivopVEcn
zK<vl|Ri_LR5wA&_)e~HxEa<4VnY&~K#{^hFsFj95NV$-u%EDdGBAhJXwdR^(A{1c(
zU_+zOgOxfDBU2Cn+8cZrM;B@kH!?Tpr#amRi0>SkH+vzM#0u6Vp@;pTAS%#CfA%Rg
zW<sM=(8D?r^K~M7LWFOSuM<|DMX2IJ7oreus)b8xRFGS=hUzD$9J!PV!oQn}WcLID
zh}66<2}~18Kqa=&gksYkd26#@#c>s~LsmfIBa@(K_4#(Jw%Y3E=K$hUyLWZ^n&%le
z2(-AJyt&A-!v-pDv3K{Kbzrf!#N0R>IOf6a;evZW*y2}WmS;KvqS8tl#84nbLWoe3
zkP1x_fE6VJF#_3z#ew)h02!4a5e!&WLka;cMub|M8lo5%G_Y|Y1sV}fh4RNZUz_tj
zxKL9;`s&<i;2@%dLxmq2X5qIm4xaZIu*8f_P}r=W6d-F`ONRX$t(j|xQAp)hY-Ifo
zP9I2~EPuc2%0a;5H?uv?uxeO$KPS~3Z5YSjv!M5+!vP5>z5F!Ch9ehBA{mK@h?+Zw
zMUgl}7<Oqqz~@=OXomd^L^#jtp_6DT1=0~k1)^NZ{=$_j^BZKX2=e8T4I6`5PBIiH
zm;Htru$=C-_C_1XngT1lH^?Tq)M}m|gugCmsOr>p0lT(xJ?$#R4R#AmFBVjooGaC_
z0AautVHhoLsFw;W(N4rEgY3%bV;ct5@dDH|oQV+7zLDPY&a{zCV+$N}RIBv~P_23>
zqiriKzzJ?;#>wwI-4q!v+;5hq(ihRCthG#L#;&#b9TtjOIq0$_N7X$n-_i#MSCCqu
zmRzV<P^brSHpiz{KAS2DW;Qc#H`GYaxZT}&7s!<5iB|vFZ%Bn=^=wgij3xvz3_!#!
zB^mA_z1~`(TX*&WpJX=l5|ae!dlPG!@~4|~IEqkNN|SKmZ(<B=3p0h=%G~z$15JeP
zXq8=@2460lNWO7VjX|w`Tf|Upro^nQN-*i@QkXDLX4km`H)?|6C=zYw-oGo30`D2e
zaNi@kkW6W`**-)7<pEE=Bs7%1$r1v{oRl&eJl)pbe*&Tl?)^HQO`r0Ni8X(f+*f6Q
zB!tYgoL0-BV@kjGTU$@*O0R>>w|h;TIGL_l^(@P#giL=To-~Ya#xer?K%Ung40sN$
ciBWE~1s3@r1QJ`oL_gy0NT&)C4NMe20QF!DC;$Ke

literal 1096
zcmV-O1h@M_T4*^jL0KkKS$vKtw*UsGfB*mg|HMe?f9n3>-(vs&-}K^w04Ll4h)%*F
z5wMpDQTfmV`^#oV)|S}r*I<%Kk*b<`Pe}D1h{PH_LqpU6G&D2=O)@lkjSo-&dW`|2
z)B);Y8hV(7P?3|=+5|LY!&4JY3_}FK36N-HXa*qD047YC8e(aJ8eszo6I9tm&@=<o
zGyu@h000009-sq200w{n&;Wx>OafpDf;7_r0$>Et(8Rz1001Khz#~jdh5(63NuoVR
zqa@QNK|KMX7??v$LrpLM0BT?(2x!wLYGD9qZ6+ZEgMvL4*jQI3y_|%4U`NZrIV(hC
zNlPd~EJ&JZ?jn!00bsZZbtIzD#-OG$M98&8s79CSsR<BbD8+i2r#@B#&D%-<NQo^&
zBW0ar1ty*hQ4R8}Aqu5h4GP-^iF6z?1k4kF37H0sP8*>0E}WQU2u5@z8{OY$X(=Jt
zts_0!s9^`=1i?OdTe+2Dqmq~DU8&Eh0K^sk@a<M%(oh8l3sPm2s4Arq49F@Nx;kXr
zV&4HbMk**&lU&QekHVp)N@^A@fSj(WYW~>U6xss2p(=Cd6+2gVSNEHX1xQUKia{ot
zX~~YwY_C?5N>yfttFpTQyA=@IAOQhTHPJ$fK@zG^1WG}YKz_)m20D>Y585E1(}*{s
zCALB~BmlR$qAhj)8E;x<%4}b&&}1OZ!l#|cK~)8sk-y#2y^yB&n9!9N(_gbG05Z{O
za%ogrO@}vf$soB3e5<}#j8*U765#_&u1h(5=Vz9)-R7^$j9McfoJ%iyOfpa>92}_w
z5sHcgBvMMJaJJB_BtE|Vk1^+W{ucZ;Xn2t1I3>r1@Xe4VR1}fNr|BzJ!8){+!5oSN
zqeaB}@gNE2FC=EdbGW_SIS4d_H<)jUcH+}y_b2!)BCWEU-VKjqC)z@ZsaFYz*86cv
z!y4vPUhG2TQW^|<^y5rx_Ohc`Z43-tLPkI=Y~)Z%`NR-j8?j?0Nx+@xKvbR>ih77M
z6s3eghGa_{VG8O?dhMvNf`o64R?Q3HM(nvKn%kSJ%XYE(M-u&w(Xwe~E${USlXWr#
zaPZO4qhjuBgteq*bT9;O8jIT8%LKoVmxG{Ph$X6TE^PCz*g<BgGOy|pi||PRk!%ys
zLe}eFkd97m;PdE-m?MQzCXRw1TE6vF5(P*AGDcpoz$U1}2xw3cu5bYQg@+YMAQ|F`
zkT{@46<TFvde9=tIs_47-JnDiQXtB19eE2UJ9g{U+nQy>+o6Ju1(IIZ&OY~oaAKt-
z;cqGm$fQydz+eRo3H%%cNsnv@2B#=328iQkus1i+%goH!)tYNL)|^^pf*}c+G4l0v
zf7!OQG(LFxKi>`G+V@`KjRP!B^*X3Zzv-V0|LZ*zbAYc2_Q1`WCBP6}azFq|e832Q
O;_gVN3K9>I#TMXn>FGWI

diff --git a/man/d2w.Rd b/man/d2w.Rd
index 7437a04..ef41520 100644
--- a/man/d2w.Rd
+++ b/man/d2w.Rd
@@ -22,11 +22,11 @@ returns characters in same format as input
 Convert single digits to words
 }
 \examples{
-d2w(c(2:8,21))
-d2w(data.frame(2:7,3:8,1),lang="da",neutrum=TRUE)
+d2w(c(2:8, 21))
+d2w(data.frame(2:7, 3:8, 1), lang = "da", neutrum = TRUE)
 
 ## If everything=T, also larger numbers are reduced.
 ## Elements in the list are same length as input
-d2w(list(2:8,c(2,6,4,23),2), everything=TRUE)
+d2w(list(2:8, c(2, 6, 4, 23), 2), everything = TRUE)
 
 }
diff --git a/man/strsplitx.Rd b/man/strsplitx.Rd
index 285c39e..de7dc9c 100644
--- a/man/strsplitx.Rd
+++ b/man/strsplitx.Rd
@@ -26,5 +26,5 @@ easing the split around the defined delimiter, see example.
 }
 \examples{
 test <- c("12 months follow-up", "3 steps", "mRS 6 weeks", "Counting to 231 now")
-strsplitx(test,"[0-9]",type="around")
+strsplitx(test, "[0-9]", type = "around")
 }
diff --git a/test-data/test_splitr/debug.r b/test-data/test_splitr/debug.r
index 57c111a..da198e7 100644
--- a/test-data/test_splitr/debug.r
+++ b/test-data/test_splitr/debug.r
@@ -3,10 +3,11 @@
 #devtools::install_github("pegeler/REDCapRITS/R@longitudinal-data")
 
 # Debugging reading in longitudinal datasets ------------------------------
+# setwd(here::here(""))
 
 # Reading in the files
 file_paths <- file.path(
-  "../test-data/test_splitr/",
+  "test-data/test_splitr",
   c(
     records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv",
     metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv"