Package 'resmush'

Remove output files from directories

Description

Use with caution. Remove files that match suffix from one or more directories. This is intended to clean output files created by resmush_file() or resmush_dir().

Usage

resmush_clean_dir(dir, suffix = "_resmush", recursive = FALSE)

Arguments

dir	A character vector of directory paths. See the path argument of list.files().
suffix	A character string identifying files to remove. The default is "_resmush", the default suffix used by resmush_file().
recursive	Logical. Should the file search recurse into directories?

Value

An invisible() NULL. Messages list the files selected for removal.

See Also

resmush_file(), resmush_dir(), list.files(), unlink().

Examples

# Create a temporary file with a suffix to remove.
png_file <- system.file("extimg/example.png", package = "resmush")
suffix <- "_would_be_removed"
tmp_png <- file.path(
  tempdir(),
  paste0("example", suffix, ".png")
)

file.exists(tmp_png)
file.copy(png_file, tmp_png, overwrite = TRUE)

file.exists(tmp_png)

# Run with the default suffix. This should not remove the file.
resmush_clean_dir(tempdir())

file.exists(tmp_png)

# Use the matching suffix to remove the file.
resmush_clean_dir(tempdir(), suffix = suffix)

file.exists(tmp_png)

---

Optimize image files in directories

Description

Optimize supported image files in one or more directories with the reSmush.it API. The API is free for personal use and accepts files smaller than 5 MB.

Usage

resmush_dir(
  dir,
  ext = "\\.(png|jpe?g|bmp|gif|tif)$",
  suffix = "_resmush",
  overwrite = FALSE,
  progress = TRUE,
  report = TRUE,
  recursive = FALSE,
  ...
)

Arguments

dir	A character vector of paths to local directories.
ext	A regex matching file extensions to optimize. The default matches lowercase .png, .jpg, .jpeg, .gif, .bmp and .tif extensions.
suffix	A character string inserted before each output file extension. The default is "_resmush", so example.png becomes example_resmush.png. Values "", NA and NULL are equivalent to overwrite = TRUE.
overwrite	Logical. Should the input files be overwritten? If TRUE, suffix is ignored.
progress	Logical. Should a progress bar be displayed?
report	Logical. Should a summary report be displayed in the console?
recursive	Logical. Should the file search within dir be recursive? See list.files().
...	Arguments passed on to resmush_file qlty An integer between 0 and 100 indicating the optimization level. This only affects JPEG files. For optimal results, use values above 90. exif_preserve Logical. Should EXIF metadata be preserved? The default is FALSE, which removes it.

Value

A data frame with source and destination paths, file sizes, compression ratios and status notes, returned invisibly. Successful API calls also write the optimized files to disk.

See Also

reSmush.it API documentation.

See resmush_clean_dir() to clean a directory of previous runs.

Other image optimization functions: resmush_file(), resmush_url()

Examples

# Copy the example directory.
example_dir <- system.file("extimg", package = "resmush")
temp_dir <- tempdir()
file.copy(example_dir, temp_dir, recursive = TRUE)

# Create the destination folder path.
dest_folder <- file.path(tempdir(), "extimg")

# Non-recursive.
resmush_dir(dest_folder)
resmush_clean_dir(dest_folder)

# Recursive.
summary <- resmush_dir(dest_folder, recursive = TRUE)

# Inspect the returned optimization summary.
summary[, -c(1, 2)]

# Display the PNG output.
if (require("png", quietly = TRUE)) {
  a_png <- grepl("png$", summary$dest_img)
  my_png <- png::readPNG(summary[a_png, ]$dest_img[2])
  grid::grid.raster(my_png)
}

# Clean up the example files.
unlink(dest_folder, force = TRUE, recursive = TRUE)

---

Optimize local image files

Description

Optimize one or more local image files with the reSmush.it API. The API is free for personal use and accepts files smaller than 5 MB.

Usage

resmush_file(
  file,
  suffix = "_resmush",
  overwrite = FALSE,
  progress = TRUE,
  report = TRUE,
  qlty = 92,
  exif_preserve = FALSE
)

Arguments

file	A character vector of paths to local image files. The API can optimize PNG, JPEG, GIF, BMP and TIFF files.
suffix	A character string inserted before each output file extension. The default is "_resmush", so example.png becomes example_resmush.png. Values "", NA and NULL are equivalent to overwrite = TRUE.
overwrite	Logical. Should the input files be overwritten? If TRUE, suffix is ignored.
progress	Logical. Should a progress bar be displayed?
report	Logical. Should a summary report be displayed in the console?
qlty	An integer between 0 and 100 indicating the optimization level. This only affects JPEG files. For optimal results, use values above 90.
exif_preserve	Logical. Should EXIF metadata be preserved? The default is FALSE, which removes it.

Value

A data frame with source and destination paths, file sizes, compression ratios and status notes, returned invisibly. Successful API calls also write the optimized files to disk. If report = TRUE, a summary is displayed in the console.

See Also

reSmush.it API documentation.

See resmush_clean_dir() to clean a directory of previous runs.

Other image optimization functions: resmush_dir(), resmush_url()

Examples

png_file <- system.file("extimg/example.png", package = "resmush")

# Copy to a temporary file for this example.
tmp_png <- tempfile(fileext = ".png")

file.copy(png_file, tmp_png, overwrite = TRUE)

resmush_file(tmp_png)

# Optimize multiple files.
jpg_file <- system.file("extimg/example.jpg", package = "resmush")
tmp_jpg <- tempfile(fileext = ".jpg")

file.copy(jpg_file, tmp_jpg, overwrite = TRUE)

# Display a summary in the console.
summary <- resmush_file(c(tmp_png, tmp_jpg))

# Inspect the returned optimization summary.
summary

# Display the PNG output.
if (require("png", quietly = TRUE)) {
  my_png <- png::readPNG(summary$dest_img[1])
  grid::grid.raster(my_png)
}

# Adjust the optimization level for a JPEG file.
resmush_file(tmp_jpg)
resmush_file(tmp_jpg, qlty = 10)

---

Optimize online image files

Description

Optimize and download one or more online image files with the reSmush.it API. The API is free for personal use and accepts files smaller than 5 MB.

Usage

resmush_url(
  url,
  outfile = file.path(tempdir(), basename(url)),
  overwrite = FALSE,
  progress = TRUE,
  report = TRUE,
  qlty = 92,
  exif_preserve = FALSE
)

Arguments

url	A character vector of URLs pointing to hosted image files. The API can optimize PNG, JPEG, GIF, BMP and TIFF files.
outfile	A character vector of paths where optimized files are stored. By default, files are created in tempdir() with the same basename() as each file in url. outfile must have the same length as url.
overwrite	Logical. Should existing files in outfile be overwritten? If FALSE, existing paths are made unique with a numeric suffix, such as example_01.png.
progress	Logical. Should a progress bar be displayed?
report	Logical. Should a summary report be displayed in the console?
qlty	An integer between 0 and 100 indicating the optimization level. This only affects JPEG files. For optimal results, use values above 90.
exif_preserve	Logical. Should EXIF metadata be preserved? The default is FALSE, which removes it.

Value

A data frame with source and destination paths, file sizes, compression ratios and status notes, returned invisibly. Successful API calls also write the optimized files to disk. If outfile contains duplicate paths, resmush_url() makes them unique with suffixes such as ⁠_01⁠ and ⁠_02⁠.

See Also

reSmush.it API documentation.

Other image optimization functions: resmush_dir(), resmush_file()

Examples

# Base URL.
base_url <- "https://raw.githubusercontent.com/dieghernan/resmush/main/inst/"

png_url <- paste0(base_url, "/extimg/example.png")
resmush_url(png_url)

# Optimize multiple URLs.
jpg_url <- paste0(base_url, "/extimg/example.jpg")

summary <- resmush_url(c(png_url, jpg_url))

# Inspect the returned optimization summary.
summary

# Display the PNG output.
if (require("png", quietly = TRUE)) {
  my_png <- png::readPNG(summary$dest_img[1])
  grid::grid.raster(my_png)
}

# Adjust the optimization level for a JPEG file.
resmush_url(jpg_url)
resmush_url(jpg_url, qlty = 10)

---