object.size.MB.R

#' Object Size in MB
#'
#' @name object.size.MB
#'
#' Returns object size in megabytes.
#'
#' @param x Object to measure.
#'
#' @return Size in MB.
#'
#' @family utilities
#' @export
#'
#' @examples
#' iaw$object.size.MB(1:1000000)          # ~3.81 MB
#'
#' # Small object
#' iaw$object.size.MB(1:10)               # ~0 MB
#'
#' # Compare storage of different types
#' iaw$object.size.MB(double(1e6))        # 8 bytes each -> ~7.63 MB
#' iaw$object.size.MB(integer(1e6))       # 4 bytes each -> ~3.81 MB
#'
#' # Check size of a data frame
#' d <- data.frame(x = rnorm(1e5), y = rnorm(1e5), z = sample(letters, 1e5, replace = TRUE))
#' iaw$object.size.MB(d)
#'
#' # Character vectors can be surprisingly large
#' big_str <- replicate(1e4, paste(sample(letters, 50, TRUE), collapse = ""))
#' iaw$object.size.MB(big_str)
#'
#' # Logical vectors are compact
#' iaw$object.size.MB(rep(TRUE, 1e6))   # ~3.81 MB (same as integer)
#'
#' # Matrix vs data frame overhead
#' m <- matrix(0, nrow = 1000, ncol = 100)
#' iaw$object.size.MB(m)                      # raw storage
#' iaw$object.size.MB(as.data.frame(m))       # slightly larger due to column list

iaw$object.size.MB <- function(x) {
    round(object.size(x) / 1024^2, 2)
}