Fix: do not truncate expression names in emr_extract when tidy=TRUE

tanaylab · Jan 2, 2024 · cc131ca · cc131ca
1 parent d86f7cb
commit cc131ca
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git 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", , "[email protected]", role = "aut"),
     person("Aviezer", "Lifshitz", , "[email protected]", role = c("aut", "cre")),

diff --git 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
@@ -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));
             }