Merge pull request #27 from uclahs-cds/nkwang-fix-SV-branch

Fix unexpected factor renaming in SV branch
uclahs-cds · Sep 10, 2024 · c12bc87 · c12bc87
2 parents f6f9a91 + b6411e3
commit c12bc87
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/module/scripts/extract-VCF-features-SV.R b/module/scripts/extract-VCF-features-SV.R
@@ -254,7 +254,6 @@ all.features <- c(continuous.features, categorical.features, 'ID');
 features.dt <- features.dt[, ..all.features];
 features.dt[, (continuous.features) := lapply(.SD, as.numeric), .SDcols = continuous.features];
 features.dt[, (continuous.features) := lapply(.SD, function(x) ifelse(is.na(x), 0, x)), .SDcols = continuous.features];
-features.dt[, (categorical.features) := lapply(.SD, function(x) ifelse(is.na(x), '', x)), .SDcols = categorical.features];
 features.dt[, (categorical.features) := lapply(.SD, as.factor), .SDcols = categorical.features];
 names(features.dt) <- make.names(names(features.dt));