R/img_write.R

In jiho/morphr: Analyse the Morphology of Objects on Images

#' Write an image
#'
#' @param x an image, of type [imager::cimg()].
#' @param file path to the output file; the extension determines the format.
#' @param quality image quality, for JPG output only.
#'
#' @return The path to the written file, invisibly (assign it to a variable to capture it).
#' @export
#' @examples
#' path <- system.file("extdata", "blob.jpg", package="morphr")
#' x <- img_read(path)
#' out <- img_write(x, file=tempfile(fileext=".jpg"))
#' out
#' out <- img_write(x, file=tempfile(fileext=".png"))
#' out
img_write <- function(x, file, quality=0.9) {
  imager::save.image(x, file, quality=quality)
  return(invisible(file))
}