diff --git a/DESCRIPTION b/DESCRIPTION index 2af2051..bdd0471 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: naryn Title: Native Access Medical Record Retriever for High Yield Analytics -Version: 2.6.26 +Version: 2.6.27 Authors@R: c( person("Misha", "Hoichman", , "misha@hoichman.com", role = "aut"), person("Aviezer", "Lifshitz", , "aviezer.lifshitz@weizmann.ac.il", role = c("aut", "cre")), diff --git a/NEWS.md b/NEWS.md index f580dbb..3650b63 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +# naryn 2.6.27 + +* Fix: do not truncate expression names in `emr_extract` when `tidy=TRUE`. + # naryn 2.6.26 * Added `emr_time2posix`, `emr_posix2time`, `emr_time2char` and `emr_char2time` functions. diff --git a/src/NRExtract.cpp b/src/NRExtract.cpp index 1d8c779..c7be0a1 100755 --- a/src/NRExtract.cpp +++ b/src/NRExtract.cpp @@ -79,7 +79,7 @@ SEXP C_emr_extract(SEXP _exprs, SEXP _names, SEXP _tidy, SEXP _sort, SEXP _stime for (unsigned iexpr = 0; iexpr < (unsigned)num_exprs; ++iexpr) { if (isNull(_names)) - SET_STRING_ELT(rexprs, iexpr, mkChar(get_bound_colname(CHAR(STRING_ELT(_exprs, iexpr))).c_str())); + SET_STRING_ELT(rexprs, iexpr, STRING_ELT(_exprs, iexpr)); else SET_STRING_ELT(rexprs, iexpr, STRING_ELT(_names, iexpr)); }