在 RAM 交换到磁盘之前停止

Question

我正在对我的 R 脚本使用过多 RAM 的原因进行故障排除，并且需要找到它出现的位置，以便我可以开始寻找解决方案。问题是，每当超过 RAM 时，计算机就会开始交换到磁盘，然后是 20 分钟令人沮丧的计算机死机、R 重新启动，并且需要重新加载所有内容。

我可以让脚本在 RAM 满之前停止吗？我想这样的代码是我需要的。但我无法弄清楚获得实际情况所需的“不确定1”和“不确定2”功能。

installed.RAM <- notsure1()
used.RAM <- notsure2()
stopifnot(used.RAM < 0.9*installed.RAM)

notsure1() 和 notsure2() 可能是什么？

我在 Ubuntu 上使用 R（带有 RStudio Server）。 16GB 内存。

Answer 1

在 Linux / MAC OSX 上：

installed.RAM <- as.numeric(system("awk '/MemTotal/ {print $2}' /proc/meminfo",intern=TRUE));
used.RAM <- installed.RAM - as.numeric(system("awk '/MemFree/ {print $2}' /proc/meminfo", intern=TRUE));