compress_images: Minify size your images

In ardata-fr/cookimage: Tools for images

Description

Minify size of images located in a directory and output results in another folder.

This function can only be used after executing the command compress_images_install() which installs a set of "npm" packages on your machine.

Usage

compress_images(dir_input, dir_output = NULL)

Arguments

dir_input, dir_output

input and output directories

Examples

# generate some png
from_dir <- tempfile()
dir.create(from_dir)

png(file = file.path(
  from_dir, "file_1.png"), width = 8.3, height = 11.7,
  units = "in", res = 300)
barplot(1:10, col = 1:10)
dev.off()

png(file = file.path(
  from_dir, "file_2.png"), width = 8.3, height = 11.7,
  units = "in", res = 300)
barplot(1:10, col = 11:20)
dev.off()

library(locatexec)
if(exec_available("node") &&
   compress_images_available()){

  # generate dest folder
  new_dir <- tempfile()
  dir.create(new_dir)

  # run compression
  compress_images(from_dir, new_dir)

  desc_folder <- function(dir){
    all_files <- list.files(
      path = dir, full.names = TRUE, recursive = TRUE)
    data.frame(
      basename = basename(all_files),
      size = file.info(all_files)$size)
  }

  desc_folder(from_dir)
  desc_folder(new_dir)
}

ardata-fr/cookimage documentation built on Feb. 26, 2021, 12:24 a.m.