R/func_size.R

In UBC-MDS/image-compression-toolkit--R: It compresses images

#' Get image size
#'
#' Calculate the size of an image
#'
#' @param img String . path of image
#'
#' @return integer
#' @export
#'
#' @examples
#' # image_size("../data/image.png")

image_size <- function(img) {

  if (assertthat::is.string(img)==FALSE) {
    stop("TypeError: img_path should be a string.")
  }
    return(file.size(img))
}