formatting

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)

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(c(2:8, 21))
-d2w(data.frame(2:7,3:8,1),lang="da",neutrum=TRUE)
+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)
 
 }

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")
 }

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"