andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 05:20:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

formatting

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-06 14:15:36 +01:00
parent e1509188ff
commit 4f47c2ac5d
5 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
data-raw/redcapcast_data.R
View File

@ -3,6 +3,10 @@
redcapcast_data <- REDCapR::redcap_read(redcap_uri = keyring::key_get("DB_URI"), redcapcast_data <- REDCapR::redcap_read(redcap_uri = keyring::key_get("DB_URI"),
token = keyring::key_get("cast_api"), token = keyring::key_get("cast_api"),
raw_or_label = "label" 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) usethis::use_data(redcapcast_data, overwrite = TRUE)

BIN
data/redcapcast_data.rda
View File

Binary file not shown.

3
test-data/test_splitr/debug.r
View File

@ -3,10 +3,11 @@
#devtools::install_github("pegeler/REDCapRITS/R@longitudinal-data") #devtools::install_github("pegeler/REDCapRITS/R@longitudinal-data")
# Debugging reading in longitudinal datasets ------------------------------ # Debugging reading in longitudinal datasets ------------------------------
# setwd(here::here(""))
# Reading in the files # Reading in the files
file_paths <- file.path( file_paths <- file.path(
"../test-data/test_splitr/", "test-data/test_splitr",
c( c(
records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv", records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv",
metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv" metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv"