将空闲系统内存分配给 R 中的变量的更好方法？答案

【问题标题】：Better way to assign free system memory to a variable within R?将空闲系统内存分配给 R 中的变量的更好方法？
【发布时间】：2018-10-20 01:25:59
【问题描述】：

我有一个内存密集型脚本，我不希望它运行，除非有很大的空闲块。所以我写了这个：

library(dplyr)
system("free | tee free.txt")
memfree <-   read.delim("free.txt")[1,] %>% as.character %>% 
  strsplit(" ") %>% 
  unlist %>% 
  (function(x){x[length(x)]}) %>% 
  as.numeric/1e6
system("rm free.txt")

我得到一个memfree 变量，我可以将它用作条件。

但是必须有更好的方法，它不涉及将 cruft 保存到磁盘然后再次读取它，以及进行奇怪的字符串解析。这是什么？

【问题讨论】：

您想知道有多少内存可用？可以使用系统的网络参数吗？仅供参考，您可以将 x[length(x)] 替换为 tail(1)
哦，好点 retail 但是是的，我不只是想把它打印到屏幕上，我想把它放在一个变量中
啊哈！ intern = T 是你的意思，但你得到了自动更正。
哦！确实令人困惑的自动更正????

标签： r linux memory

【解决方案1】：

一个解决方案是

freemem <- function(){
    tmp <- system("free", inter=TRUE)[2]
    tmp <- gsub("(?<=[\\s])\\s*|^\\s+|\\s+$", "", tmp, perl=TRUE)
    as.numeric(strsplit(tmp, " ")[[1]][4])/1e6
}
freemem()

在我的system("free") 输出中，可用内存显示在第四列，而不是最后一列。

【讨论】：