检测未安装R包

定义包列表

depens <- c('tibble', 'survival', 'survminer', 'limma', 'DESeq2', 'devtools',
'limSolve', 'GSVA', 'e1071', 'preprocessCore', 'tidyHeatmap',
'caret', 'glmnet', 'ppcor', 'timeROC', 'pracma', 'factoextra',
'FactoMineR', 'WGCNA', 'patchwork', 'ggplot2', 'biomaRt',
'ggpubr', 'ComplexHeatmap')

查找未安装的包

missing_pkgs <- depens[!sapply(depens, requireNamespace, quietly = TRUE)]

输出为 c("a", "b", ...)

if (length(missing_pkgs) > 0) {
cat("未安装的包为:\n")
cat("c("", paste(missing_pkgs, collapse = "", ""), "")\n", sep = "")
} else {
cat("所有包都已安装。\n")
}