function for checking memory using on RStudio Cloud

check_mem.R

check_mem = function() {
  mem_lim = as.numeric(system("cat /sys/fs/cgroup/memory/memory.limit_in_bytes", intern = TRUE)) * 0.000001
  mem_use = as.numeric(system("cat /sys/fs/cgroup/memory/memory.usage_in_bytes", intern = TRUE)) * 0.000001
  prc_free = mem_use / mem_lim * 100, 1
  prc_used = 100 - prc_free
  memory_info = c("Used (MB)" = mem_use, 
                  "Free (MB)" = mem_lim - mem_use, 
                  "Used (%)" = prc_used, 
                  "Free (%)" = prc_free)
  round(memory_info, 1)
}