#----------------------------------------------------------------------------#
#' @title Generate DFCI lab-related features (lab_oncdrs data).
#'
#' @description \
#'
#' @export
#' @import data.table
#' @param cohort
#' @param cohort_key_var_merge
#' @return
#' @examples
lab_oncdrs_feature_gen <- function(cohort, cohort_key_var_merge, cohort_key_var) {
print("launching lab_oncdrs_feature_gen")
##############################################################################
### load the dia_feature code
lab_oncdrs <- lab_feature_gen(cohort, cohort_key_var_merge, cohort_key_var,
lab_oncdrs_file_mod, leak_oncdrs_lab_day)
##############################################################################
### rename the variables
var_rename <- setdiff(names(lab_oncdrs), cohort_key_var_merge)
setnames(lab_oncdrs, var_rename,
gsub("^lab", "lab.dfci", var_rename))
var_rename <- setdiff(names(lab_oncdrs), cohort_key_var_merge)
setnames(lab_oncdrs, var_rename , paste0(gsub("_", "_dfci.", gsub("(.*)(\\.\\.)(.*)", "\\1",
var_rename)), "..", gsub("(.*)(\\.\\.)(.*)", "\\3",
var_rename)))
setnames(lab_oncdrs, gsub("(.*)(lab.dfci_time)", "lab_oncdrs_time", names(lab_oncdrs)))
### return
return(lab_oncdrs)
}
#----------------------------------------------------------------------------#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.