Question

我正在运行一个多线程R程序，但由于主机系统内存不足而导致某些节点崩溃。在继续运行之前，每个节点是否有办法检查整个系统的可用内存？（计算机正在运行Windows Server 2012 R2）

Answer 1

以下其中一个可能会有所帮助（我也在Windows Server 2012 R2上）：

也许这将是最有用的：

> system('systeminfo')
#the output is too big to show but you can save into a list and choose the rows you want

或者只使用以下具体内存之一

> system('wmic MemoryChip get BankLabel, Capacity, MemoryType, TypeDetail, Speed')
BankLabel    Capacity    MemoryType  Speed  TypeDetail  
RAM slot #0  8589934592  2                  512         
RAM slot #1  4294967296  2                  512

免费可用内存：

> system('wmic OS get FreePhysicalMemory /Value')
FreePhysicalMemory=8044340

总可用内存

> system('wmic OS get TotalVisibleMemorySize /Value')
TotalVisibleMemorySize=12582456

基本上你甚至可以运行你想要的任何其他cmd命令，你知道它可以帮助你完成system功能。 R将在屏幕上显示输出，然后您可以保存到data.frame并根据需要使用。

Answer 2

为了完整起见，我在上述Stefan的答案中添加了对Linux的支持- 在Ubuntu 16上测试

getFreeMemoryKB <- function() {
  osName <- Sys.info()[["sysname"]]
  if (osName == "Windows") {
    x <- system2("wmic", args =  "OS get FreePhysicalMemory /Value", stdout = TRUE)
    x <- x[grepl("FreePhysicalMemory", x)]
    x <- gsub("FreePhysicalMemory=", "", x, fixed = TRUE)
    x <- gsub("\r", "", x, fixed = TRUE)
    return(as.integer(x))
  } else if (osName == 'Linux') {
    x <- system2('free', args='-k', stdout=TRUE)
    x <- strsplit(x[2], " +")[[1]][4]
    return(as.integer(x))
  } else {
    stop("Only supported on Windows and Linux")
  }
}

Answer 3

我将LyzandeR的答案包含在一个以千字节（1024字节）为单位返回物理内存的函数中。在Windows 7上测试。

get_free_ram <- function(){
  if(Sys.info()[["sysname"]] == "Windows"){
    x <- system2("wmic", args =  "OS get FreePhysicalMemory /Value", stdout = TRUE)
    x <- x[grepl("FreePhysicalMemory", x)]
    x <- gsub("FreePhysicalMemory=", "", x, fixed = TRUE)
    x <- gsub("\r", "", x, fixed = TRUE)
    as.integer(x)
  } else {
    stop("Only supported on Windows OS")
  }
}

如何在Windows机器上使用R检查系统内存是否可用？

3 个答案: