R/fileSize.R

In MODIS: Acquisition and Processing of MODIS Products

#' Get Size of File(s)
#' 
#' @description 
#' Get the size of any file.
#' 
#' @param file `character` vector of file(s) with path.
#' @param units `character`, defaults to `"B"`. Currently available options 
#'   are `c("B", "KB", "MB", "GB", "TB")` for bites, kilo-, mega-, giga- and 
#'   terabytes.
#' 
#' @return 
#' A `numeric` vector of the same length as 'file' (in 'units'). Note that 
#' directories are excluded.
#' 
#' @author 
#' Matteo Mattiuzzi
#' 
#' @examples 
#' \dontrun{
#' fileSize(list.files("./"))
#' }
#' 
#' @export fileSize
#' @name fileSize
fileSize <- function(
  file
  , units = c("B", "KB", "MB", "GB", "TB")
) {
  
  units = match.arg(
    units
  )
  
  units <- toupper(units)
  unit <- c(1,1024,1048576,1073741824,1073741824*1024) 
  names(unit) <- c("B","KB", "MB", "GB","TB")
  
  if (!units %in% names(unit)) {
    stop('unit must be one of: "B", "KB", "MB", "GB" or "TB"')
  } 
  
  file <- file.info(file)
  file <- file[!file$isdir,"size"]
  
  res <- file/unit[toupper(units)]
  return(res)
}