Nothing
library(memuse)
# Only run the test on platforms that are definitely supported.
# However, we can't possibly know the return values without knowing what machine
# is running this. So we settle for ensuring evaluation without error.
iswin <- function() tolower(.Platform$OS.type) == "windows"
ismac <- function() tolower(as.character(Sys.info()["sysname"])) == "darwin"
islin <- function() tolower(as.character(Sys.info()["sysname"])) == "linux"
supported = function() iswin() || ismac() || islin()
if (supported()){
invisible(Sys.meminfo())
invisible(Sys.swapinfo())
invisible(Sys.procmem())
invisible(Sys.cachesize())
invisible(Sys.cachelinesize())
}
file = system.file("doc/memuse-guide.pdf", package="memuse")
invisible(Sys.filesize(file))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.