diff --git a/DESCRIPTION b/DESCRIPTION index 0b7402c..69f6b67 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,9 +1,9 @@ Package: codified -Title: Produce standard/formalized demographics tables +Title: Produce Standard/Formalized Demographics Tables Description: Augment clinical data with metadata to create output used in conventional publications and reports. -Version: 0.1.1.9001 -Date: 2018-08-27 +Version: 0.2.0 +Date: 2018-09-06 Authors@R: c(person("Will", "Beasley", role = c("aut", "cre"), email = "wibeasley@hotmail.com", comment = c(ORCID = "0000-0002-5613-5006")), person("Peter", "Higgins", role = "ctb")) @@ -13,24 +13,21 @@ Depends: R(>= 3.0.0), stats Imports: + checkmate (>= 1.8.4), dplyr (>= 0.7.0), + kableExtra, + knitr (>= 1.18.0), magrittr, methods, - readr (>= 1.2.0), + readr (>= 1.1.0), rlang, tibble (>= 1.4.0), tidyr (>= 0.7.0) Suggests: - checkmate (>= 1.8.4), devtools, - kableExtra, - knitr (>= 1.18.0), REDCapR, rmarkdown, - sessioninfo, - testthat (>= 0.9) -Remotes: - github::tidyverse/readr + testthat (>= 2.0) License: MIT + file LICENSE LazyData: TRUE VignetteBuilder: knitr diff --git a/NEWS.md b/NEWS.md index 9343073..9d84c50 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ -# codified 0.0.1.9001 -* Added a `NEWS.md` file to track changes to the package. +# codified 0.2.0 + +* added `table_nih_enrollment()` and `table_nih_enrollment_pretty()`. #2 +* added `nih-enrollment-html` vignette. #6 +* started pkgdown site. #7 +* the idea was created by [Peter Higgins](http://www.med.umich.edu/higginslab/) (@higgi13425) for [R/Medicine 2018](http://r-medicine.com/). diff --git a/R/table-nih-enrollment.R b/R/table-nih-enrollment.R index b65e69c..47def13 100644 --- a/R/table-nih-enrollment.R +++ b/R/table-nih-enrollment.R @@ -1,7 +1,7 @@ #' @name table_nih_enrollment #' @aliases table_nih_enrollment table_nih_enrollment_pretty #' -#' @title Produce an NIH-compliant enrolment table. +#' @title Produce an NIH-compliant enrollment table. #' #' @description Produce an NIH enrollment table, leveraging metadata to adapt to the observed [data.frame]. #' diff --git a/README.md b/README.md index 29c807a..814b40f 100644 --- a/README.md +++ b/README.md @@ -20,7 +20,7 @@ devtools::install_github(repo="OuhscBbmc/codified") In the future, the *release* version can be installed from [CRAN](https://cran.r-project.org/package=codified). ```r -# install.packages("codified") # Not yet on CRAN. +install.packages("codified") ``` The package can be uninstalled from your local machine with `remove.packages("codified")`. diff --git a/cran-comments.md b/cran-comments.md new file mode 100644 index 0000000..0aedee5 --- /dev/null +++ b/cran-comments.md @@ -0,0 +1,31 @@ +Description +----------------------------------------------- +This is a new release. + +Thank you for taking the time to review my submission, and please tell me if there's something else I should do for CRAN. -Will Beasley + + +Test environments +----------------------------------------------- + +The win-builder and a local machine have used the CRAN version of dplyr. The others have used the current GitHub master version of dplyr. + +* Local Ubuntu, R 3.5.1 patched +* [win-builder](https://win-builder.r-project.org/9fyA0Vz5XQNU/) (version="R-devel") +* [Travis CI](https://travis-ci.org/OuhscBbmc/codified), Ubuntu LTS +* [AppVeyor](https://ci.appveyor.com/project/wibeasley/codified), Windows Server + + +R CMD check results +----------------------------------------------- + +* No ERRORs or WARNINGs on any builds. + +* No NOTEs other than 'New submission' + + +Downstream dependencies +----------------------------------------------- + +No other packages depend/import this one. + diff --git a/docs/CODE_OF_CONDUCT.html b/docs/CODE_OF_CONDUCT.html index 65d0ab4..5d76344 100644 --- a/docs/CODE_OF_CONDUCT.html +++ b/docs/CODE_OF_CONDUCT.html @@ -58,7 +58,7 @@
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html index 1a22e72..3e01e6f 100644 --- a/docs/LICENSE-text.html +++ b/docs/LICENSE-text.html @@ -58,7 +58,7 @@ diff --git a/docs/articles/index.html b/docs/articles/index.html index 61abb3f..10a3330 100644 --- a/docs/articles/index.html +++ b/docs/articles/index.html @@ -58,7 +58,7 @@ diff --git a/docs/articles/nih-enrollment-html.html b/docs/articles/nih-enrollment-html.html index e47f60f..8af2a79 100644 --- a/docs/articles/nih-enrollment-html.html +++ b/docs/articles/nih-enrollment-html.html @@ -29,7 +29,7 @@ @@ -1038,24 +1038,45 @@Next, download the data from the REDCap database into the ds_2
data.frame.
Next, download the data from the REDCap database into the ds_2
data.frame. If you’re running the most recent version of REDCapR (available on GitHub), the code will be:
ds_2 <- REDCapR::redcap_read_oneshot(
redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
- token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-speciifc token/password.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-specific token/password.
guess_type = FALSE # Keep all variables as strings/characters.
-)$data
## 500 records and 13 columns were read from REDCap in 1.7 seconds. The http status code was 200.
+)$data
+The following code is more complicated than normal, because the vignette has to account for different versions of REDCapR being installed on the machine.
+if( !requireNamespace("REDCapR", quietly=TRUE) ) {
+ ds <- ds_2 # If REDCapR isn't installed, use the previous version of the dataset.
+} else if( "0.9.8" < packageVersion("REDCapR") ) {
+ ds_2 <- REDCapR::redcap_read_oneshot(
+ redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-specific token/password.
+ guess_type = FALSE # Keep all variables as strings/characters.
+ )$data
+} else {
+ # Older versions of REDCapR don't have the `guess_type` parameter
+ ds_2 <- REDCapR::redcap_read_oneshot(
+ redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3" # User-specific token/password.
+ )$data %>%
+ dplyr::mutate(
+ gender = as.character(gender),
+ race = as.character(race),
+ ethnicity = as.character(ethnicity)
+ )
+}
## 500 records and 13 columns were read from REDCap in 0.7 seconds. The http status code was 200.
Now, convert these demographic data into a properly formatted NIH enrollment table. Pass the ds_lu_gender
, ds_lu_race
, and ds_lu_ethnicity
metadata, which was defined above. As a reminder, these translate values like 1
to Male
and 3
to Native Hawaiian or Other Pacific Islander
.
table_nih_enrollment_pretty(
- d = ds_2,
- d_lu_gender = ds_lu_gender,
- d_lu_race = ds_lu_race,
- d_lu_ethnicity = ds_lu_ethnicity
-)
table_nih_enrollment_pretty(
+ d = ds_2,
+ d_lu_gender = ds_lu_gender,
+ d_lu_race = ds_lu_race,
+ d_lu_ethnicity = ds_lu_ethnicity
+)
Key | Value |
---|---|
License | - |
Development Doc | ++ |
NEWS.md
- NEWS.md
file to track changes to the package.table_nih_enrollment()
and table_nih_enrollment_pretty()
. #2nih-enrollment-html
vignette. #6Useful links:
Report bugs at https://github.com/OuhscBbmc/codified/issues
-record_id - | --name_last - | --dob - | --ethnicity - | --race - | --gender - | +
---|---|---|---|---|---|
record_id | +name_last | +dob | +ethnicity | +race | +gender |
-1 - | --Cornel - | --1991-05-13 - | --1 - | --4 - | --0 - | -
-2 - | --Wojdyla - | --1931-10-14 - | --1 - | --4 - | --0 - | -
-3 - | --Stunkard - | --1964-09-15 - | --1 - | --3 - | --1 - | -
-4 - | --Cimochowski - | --1969-05-03 - | --1 - | --4 - | --1 - | -
-5 - | --Woodland - | --1969-11-22 - | --1 - | --4 - | --0 - | -
-6 - | --Pistoia - | --1943-08-26 - | --1 - | --4 - | --1 - | -
-7 - | --Ahlquist - | --1944-01-22 - | --1 - | --4 - | --0 - | -
-8 - | --Ashlin - | --1931-04-14 - | --1 - | --4 - | --1 - | -
-9 - | --Djokovic - | --1962-07-07 - | --1 - | --1 - | --1 - | -
-10 - | --Mosses - | --1978-06-20 - | --1 - | --3 - | --0 - | +
1 | +Cornel | +1991-05-13 | +1 | +4 | +0 | +
2 | +Wojdyla | +1931-10-14 | +1 | +4 | +0 | +
3 | +Stunkard | +1964-09-15 | +1 | +3 | +1 | +
4 | +Cimochowski | +1969-05-03 | +1 | +4 | +1 | +
5 | +Woodland | +1969-11-22 | +1 | +4 | +0 | +
6 | +Pistoia | +1943-08-26 | +1 | +4 | +1 | +
7 | +Ahlquist | +1944-01-22 | +1 | +4 | +0 | +
8 | +Ashlin | +1931-04-14 | +1 | +4 | +1 | +
9 | +Djokovic | +1962-07-07 | +1 | +1 | +1 | +
10 | +Mosses | +1978-06-20 | +1 | +3 | +0 |
-input - | --displayed - | +
---|---|
input | +displayed |
-0 - | --Female - | +
0 | +Female |
-1 - | --Male - | +
1 | +Male |
-U - | --Unknown/Not Reported - | +
U | +Unknown/Not Reported |
-input - | --displayed - | +
---|---|
input | +displayed |
-1 - | --American Indian/Alaska Native - | +
1 | +American Indian/Alaska Native |
-2 - | --Asian - | +
2 | +Asian |
-3 - | --Native Hawaiian or Other Pacific Islander - | +
3 | +Native Hawaiian or Other Pacific Islander |
-4 - | --Black or African American - | +
4 | +Black or African American |
-5 - | --White - | +
5 | +White |
-M - | --More than One Race - | +
M | +More than One Race |
-6 - | --Unknown or Not Reported - | +
6 | +Unknown or Not Reported |
-input - | --displayed - | +
---|---|
input | +displayed |
-2 - | --Not Hispanic or Latino - | +
2 | +Not Hispanic or Latino |
-1 - | --Hispanic or Latino - | +
1 | +Hispanic or Latino |
-0 - | --Unknown/Not Reported Ethnicity - | +
0 | +Unknown/Not Reported Ethnicity |
-gender - | --race - | --ethnicity - | --n - | +
---|---|---|---|
gender | +race | +ethnicity | +n |
-Female - | --American Indian/Alaska Native - | --Not Hispanic or Latino - | --1 - | -
-Female - | --American Indian/Alaska Native - | --Hispanic or Latino - | --8 - | -
-Female - | --American Indian/Alaska Native - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Female - | --Asian - | --Not Hispanic or Latino - | --0 - | -
-Female - | --Asian - | --Hispanic or Latino - | --0 - | -
-Female - | --Asian - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Female - | --Native Hawaiian or Other Pacific Islander - | --Not Hispanic or Latino - | --1 - | -
-Female - | --Native Hawaiian or Other Pacific Islander - | --Hispanic or Latino - | --28 - | -
-Female - | --Native Hawaiian or Other Pacific Islander - | --Unknown/Not Reported Ethnicity - | --3 - | -
-Female - | --Black or African American - | --Not Hispanic or Latino - | --1 - | -
-Female - | --Black or African American - | --Hispanic or Latino - | --172 - | -
-Female - | --Black or African American - | --Unknown/Not Reported Ethnicity - | --14 - | -
-Female - | --White - | --Not Hispanic or Latino - | --1 - | -
-Female - | --White - | --Hispanic or Latino - | --22 - | -
-Female - | --White - | --Unknown/Not Reported Ethnicity - | --2 - | -
-Female - | --More than One Race - | --Not Hispanic or Latino - | --0 - | -
-Female - | --More than One Race - | --Hispanic or Latino - | --0 - | -
-Female - | --More than One Race - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Female - | --Unknown or Not Reported - | --Not Hispanic or Latino - | --0 - | -
-Female - | --Unknown or Not Reported - | --Hispanic or Latino - | --7 - | -
-Female - | --Unknown or Not Reported - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Male - | --American Indian/Alaska Native - | --Not Hispanic or Latino - | --0 - | -
-Male - | --American Indian/Alaska Native - | --Hispanic or Latino - | --10 - | -
-Male - | --American Indian/Alaska Native - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Male - | --Asian - | --Not Hispanic or Latino - | --0 - | -
-Male - | --Asian - | --Hispanic or Latino - | --0 - | -
-Male - | --Asian - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Male - | --Native Hawaiian or Other Pacific Islander - | --Not Hispanic or Latino - | --1 - | -
-Male - | --Native Hawaiian or Other Pacific Islander - | --Hispanic or Latino - | --22 - | -
-Male - | --Native Hawaiian or Other Pacific Islander - | --Unknown/Not Reported Ethnicity - | --1 - | -
-Male - | --Black or African American - | --Not Hispanic or Latino - | --5 - | -
-Male - | --Black or African American - | --Hispanic or Latino - | --154 - | -
-Male - | --Black or African American - | --Unknown/Not Reported Ethnicity - | --6 - | -
-Male - | --White - | --Not Hispanic or Latino - | --0 - | -
-Male - | --White - | --Hispanic or Latino - | --33 - | -
-Male - | --White - | --Unknown/Not Reported Ethnicity - | --1 - | -
-Male - | --More than One Race - | --Not Hispanic or Latino - | --0 - | -
-Male - | --More than One Race - | --Hispanic or Latino - | --0 - | -
-Male - | --More than One Race - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Male - | --Unknown or Not Reported - | --Not Hispanic or Latino - | --0 - | -
-Male - | --Unknown or Not Reported - | --Hispanic or Latino - | --7 - | -
-Male - | --Unknown or Not Reported - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --American Indian/Alaska Native - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --American Indian/Alaska Native - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --American Indian/Alaska Native - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --Asian - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Asian - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Asian - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --Native Hawaiian or Other Pacific Islander - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Native Hawaiian or Other Pacific Islander - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Native Hawaiian or Other Pacific Islander - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --Black or African American - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Black or African American - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Black or African American - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --White - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --White - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --White - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --More than One Race - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --More than One Race - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --More than One Race - | --Unknown/Not Reported Ethnicity - | --0 - | -
-Unknown/Not Reported - | --Unknown or Not Reported - | --Not Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Unknown or Not Reported - | --Hispanic or Latino - | --0 - | -
-Unknown/Not Reported - | --Unknown or Not Reported - | --Unknown/Not Reported Ethnicity - | --0 - | +
Female | +American Indian/Alaska Native | +Not Hispanic or Latino | +1 | +
Female | +American Indian/Alaska Native | +Hispanic or Latino | +8 | +
Female | +American Indian/Alaska Native | +Unknown/Not Reported Ethnicity | +0 | +
Female | +Asian | +Not Hispanic or Latino | +0 | +
Female | +Asian | +Hispanic or Latino | +0 | +
Female | +Asian | +Unknown/Not Reported Ethnicity | +0 | +
Female | +Native Hawaiian or Other Pacific Islander | +Not Hispanic or Latino | +1 | +
Female | +Native Hawaiian or Other Pacific Islander | +Hispanic or Latino | +28 | +
Female | +Native Hawaiian or Other Pacific Islander | +Unknown/Not Reported Ethnicity | +3 | +
Female | +Black or African American | +Not Hispanic or Latino | +1 | +
Female | +Black or African American | +Hispanic or Latino | +172 | +
Female | +Black or African American | +Unknown/Not Reported Ethnicity | +14 | +
Female | +White | +Not Hispanic or Latino | +1 | +
Female | +White | +Hispanic or Latino | +22 | +
Female | +White | +Unknown/Not Reported Ethnicity | +2 | +
Female | +More than One Race | +Not Hispanic or Latino | +0 | +
Female | +More than One Race | +Hispanic or Latino | +0 | +
Female | +More than One Race | +Unknown/Not Reported Ethnicity | +0 | +
Female | +Unknown or Not Reported | +Not Hispanic or Latino | +0 | +
Female | +Unknown or Not Reported | +Hispanic or Latino | +7 | +
Female | +Unknown or Not Reported | +Unknown/Not Reported Ethnicity | +0 | +
Male | +American Indian/Alaska Native | +Not Hispanic or Latino | +0 | +
Male | +American Indian/Alaska Native | +Hispanic or Latino | +10 | +
Male | +American Indian/Alaska Native | +Unknown/Not Reported Ethnicity | +0 | +
Male | +Asian | +Not Hispanic or Latino | +0 | +
Male | +Asian | +Hispanic or Latino | +0 | +
Male | +Asian | +Unknown/Not Reported Ethnicity | +0 | +
Male | +Native Hawaiian or Other Pacific Islander | +Not Hispanic or Latino | +1 | +
Male | +Native Hawaiian or Other Pacific Islander | +Hispanic or Latino | +22 | +
Male | +Native Hawaiian or Other Pacific Islander | +Unknown/Not Reported Ethnicity | +1 | +
Male | +Black or African American | +Not Hispanic or Latino | +5 | +
Male | +Black or African American | +Hispanic or Latino | +154 | +
Male | +Black or African American | +Unknown/Not Reported Ethnicity | +6 | +
Male | +White | +Not Hispanic or Latino | +0 | +
Male | +White | +Hispanic or Latino | +33 | +
Male | +White | +Unknown/Not Reported Ethnicity | +1 | +
Male | +More than One Race | +Not Hispanic or Latino | +0 | +
Male | +More than One Race | +Hispanic or Latino | +0 | +
Male | +More than One Race | +Unknown/Not Reported Ethnicity | +0 | +
Male | +Unknown or Not Reported | +Not Hispanic or Latino | +0 | +
Male | +Unknown or Not Reported | +Hispanic or Latino | +7 | +
Male | +Unknown or Not Reported | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +American Indian/Alaska Native | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +American Indian/Alaska Native | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +American Indian/Alaska Native | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +Asian | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +Asian | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +Asian | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +Native Hawaiian or Other Pacific Islander | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +Native Hawaiian or Other Pacific Islander | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +Native Hawaiian or Other Pacific Islander | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +Black or African American | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +Black or African American | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +Black or African American | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +White | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +White | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +White | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +More than One Race | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +More than One Race | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +More than One Race | +Unknown/Not Reported Ethnicity | +0 | +
Unknown/Not Reported | +Unknown or Not Reported | +Not Hispanic or Latino | +0 | +
Unknown/Not Reported | +Unknown or Not Reported | +Hispanic or Latino | +0 | +
Unknown/Not Reported | +Unknown or Not Reported | +Unknown/Not Reported Ethnicity | +0 |
Next, download the data from the REDCap database into the ds_2
data.frame.
Next, download the data from the REDCap database into the ds_2
data.frame. If you’re running the most recent version of REDCapR (available on GitHub), the code will be:
ds_2 <- REDCapR::redcap_read_oneshot(
redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
- token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-speciifc token/password.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-specific token/password.
guess_type = FALSE # Keep all variables as strings/characters.
-)$data
-## 500 records and 13 columns were read from REDCap in 0.7 seconds. The http status code was 200.
+)$data
+The following code is more complicated than normal, because the vignette has to account for different versions of REDCapR being installed on the machine.
+if( !requireNamespace("REDCapR", quietly=TRUE) ) {
+ ds <- ds_2 # If REDCapR isn't installed, use the previous version of the dataset.
+} else if( "0.9.8" < packageVersion("REDCapR") ) {
+ ds_2 <- REDCapR::redcap_read_oneshot(
+ redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3", # User-specific token/password.
+ guess_type = FALSE # Keep all variables as strings/characters.
+ )$data
+} else {
+ # Older versions of REDCapR don't have the `guess_type` parameter
+ ds_2 <- REDCapR::redcap_read_oneshot(
+ redcap_uri = "https://bbmc.ouhsc.edu/redcap/api/", # URL of REDCap Server.
+ token = "F304DEC3793FECC3B6DEEFF66302CAD3" # User-specific token/password.
+ )$data %>%
+ dplyr::mutate(
+ gender = as.character(gender),
+ race = as.character(race),
+ ethnicity = as.character(ethnicity)
+ )
+}
+## 500 records and 13 columns were read from REDCap in 0.8 seconds. The http status code was 200.