## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(dipsaus)

## ----eval=FALSE---------------------------------------------------------------
# cat2("Debug passed!", level = "DEBUG")
# #> ✔ Debug passed!
# 
# cat2("You are all set.", level = "INFO")
# #> ♥ You are all set.
# 
# cat2("Wait a second...", level = "WARNING")
# #> ⚠ Wait a second...
# 
# cat2("Ooops", level = "ERROR")
# #> ✖ Ooops
# 
# cat2("Bi--Doop---", level = "FATAL")
# #> ✖ Bi--Doop---
# #> Error:
# #> ...

## -----------------------------------------------------------------------------
parse_svec("7-10,14-15")

## -----------------------------------------------------------------------------
deparse_svec(c(2, 5, 3, 1, 7))

## -----------------------------------------------------------------------------
deparse_svec(c(1, 2, 4, 7, 11))

deparse_svec(c(1, 2, 4, 7, 11), max_lag = 2)

deparse_svec(c(1, 2, 4, 7, 11), max_lag = 3)

## -----------------------------------------------------------------------------
# Total RAM in bytes
get_ram()

# Print-friendly
to_ram_size(get_ram(), 1024)

# WARNING: $free is the total RAM - R usage, is no the actual free RAM
mem_limit2()