feat: 更新了 env_check, 显示当前 R 环境的 R 版本, 库版本和激活库的相关信息.

env_check.R

@@ -0,0 +1,39 @@
+# 获取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")

env_check_info.R

@@ -0,0 +1,2 @@
+env_info <- readRDS("r_environment_info.rds")
+str(env_info)