Long2short

NAMESPACE

@@ -25,6 +25,7 @@ export(is.drugs)
 export(is.laboratory)
 export(is.physiology)
 export(lenstay)
+export(long2stname)
 export(lookup.items)
 export(new.episode)
 export(physio.distribution)

R/stdid.R

@@ -86,6 +86,18 @@ stname2longname <- function(stname) {
     return(code)
 }
 
+#' Convert long names to short names. 
+#' 
+#' @param l long name such as "heart rate" 
+#' @return short name character such as "h_rate"
+#' @export
+long2stname <- function(l) {
+    l <- as.character(l)
+    s <- long2stname.dict[l]
+    s[is.na(s)] <- l[is.na(s)]
+    return(s)
+}
+
 
 #' Identify the classification - classification1 
 #' 

R/zzz.R

@@ -34,6 +34,7 @@
     longnames <- sapply(ITEM_REF, function(x) x$dataItem)
     stname2longname.dict <- longnames
     names(stname2longname.dict) <- stname
+    long2stname.dict <- reverse.name.value(stname2longname.dict)
 
     #' classification dictionary: demographic, nurse, physiology, laboratory, drugs
     class.dict_code <-  sapply(ITEM_REF, function(x) x$Classification1)
@@ -50,6 +51,7 @@
     assign("code2stname.dict" , code2stname.dict , envir=env) 
     assign("stname2code.dict" , stname2code.dict , envir=env) 
     assign("stname2longname.dict" , stname2longname.dict , envir=env) 
+    assign("long2stname.dict" , long2stname.dict , envir=env) 
     assign("class.dict_code"  , class.dict_code  , envir=env)
     assign("class.dict_stname", class.dict_stname, envir=env) 
     assign("tval.dict_code"   , tval.dict_code   , envir=env)