Convert rowData to JSON format for elasticsearch indexing.
Usage
convert_rowData_to_json(
rdata,
identifiers,
req_cols = c("drug", "drug_name", "drug_moa", "duration")
)Arguments
- rdata
data.table of
rowData.- identifiers
charvec with identifiers
- req_cols
charvec required columns
Details
Standardizes the rdata to common schema fields
and tidies formatting to be condusive to joining
with other JSON responses.
Examples
rdata <- data.table::data.table(
mydrug = letters,
mydrugname = letters,
mydrugmoa = letters,
Duration = 1)
identifiers <- list(drug = "mydrug", drug_name = "mydrugname", drug_moa = "mydrugmoa",
duration = "Duration")
convert_rowData_to_json(rdata, identifiers)
#> [1] "\"drug\":[\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\",\"h\",\"i\",\"j\",\"k\",\"l\",\"m\",\"n\",\"o\",\"p\",\"q\",\"r\",\"s\",\"t\",\"u\",\"v\",\"w\",\"x\",\"y\",\"z\"],\"drug_name\":[\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\",\"h\",\"i\",\"j\",\"k\",\"l\",\"m\",\"n\",\"o\",\"p\",\"q\",\"r\",\"s\",\"t\",\"u\",\"v\",\"w\",\"x\",\"y\",\"z\"],\"drug_moa\":[\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\",\"h\",\"i\",\"j\",\"k\",\"l\",\"m\",\"n\",\"o\",\"p\",\"q\",\"r\",\"s\",\"t\",\"u\",\"v\",\"w\",\"x\",\"y\",\"z\"],\"duration\":[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1], \"misc_rowdata\": {}"