40 lines
1006 B
R
40 lines
1006 B
R
# 获取R版本信息
|
||
r_version <- R.version.string
|
||
|
||
# 获取所有已安装的包及其版本
|
||
installed_packages <- as.data.frame(installed.packages()[, c("Package", "Version")])
|
||
|
||
# 获取当前已加载的包及其版本
|
||
loaded_packages <- as.data.frame(utils::sessionInfo()$otherPkgs)
|
||
if (!is.null(loaded_packages)) {
|
||
loaded_packages <- data.frame(
|
||
Package = rownames(loaded_packages),
|
||
Version = loaded_packages$Version,
|
||
row.names = NULL
|
||
)
|
||
} else {
|
||
loaded_packages <- data.frame(Package = character(), Version = character())
|
||
}
|
||
|
||
# 输出到文本文件（使用RDS格式）
|
||
saveRDS(
|
||
list(
|
||
R_version = r_version,
|
||
installed_packages = installed_packages,
|
||
loaded_packages = loaded_packages
|
||
),
|
||
file = "r_environment_info.rds"
|
||
)
|
||
|
||
# 同时打印到控制台
|
||
cat("R版本信息:\n")
|
||
cat(r_version, "\n\n")
|
||
|
||
cat("已安装的包:\n")
|
||
print(installed_packages)
|
||
|
||
cat("\n已加载的包:\n")
|
||
print(loaded_packages)
|
||
|
||
cat("\n信息已保存到 r_environment_info.rds 文件中\n")
|