The loder package provides functions for easily reading
from PNG image files and writing to them. It functions in a very similar
way to Simon Urbanek’s venerable png package, but
unlike that package it does not require external libpng and
zlib libraries to be installed. Instead, loder
includes Lode Vandevenne’s compact LodePNG library, which provides
self-contained PNG read and write functionality.
The package may be installed from CRAN using the standard command
install.packages("loder")Alternatively, the latest development version can be installed
directly from GitHub using the remotes package, viz.
## install.packages("remotes")
remotes::install_github("jonclayden/loder")The readPng function is used to read PNG images. It
returns an array of class loder with three dimensions
representing rows, columns and channels. Greyscale images have one
channel, grey/alpha images have two, red/green/blue (RGB) images have
three, and red/green/blue/alpha images have four.
library(loder)
path <- system.file("extdata", "pngsuite", "basn6a08.png", package="loder")
image <- readPng(path)
dim(image)
## [1] 32 32 4Metadata including background colour, aspect ratio and pixel size or image resolution are available through attributes, if they are stored in the file.
path <- system.file("extdata", "pngsuite", "cdfn2c08.png", package="loder")
attributes(readPng(path))
## $dim
## [1] 32 8 3
##
## $class
## [1] "loder" "array"
##
## $range
## [1] 0 255
##
## $asp
## [1] 4The display function from the mmand
package respects these attributes, and can be used to view the image
on an R graphics device.
## install.packages("mmand")
mmand::display(image)
Metadata alone may be read using the inspectPng
function, which also gives information about the compression level
achieved:
inspectPng(path)
## PNG file: /opt/homebrew/lib/R/4.2/site-library/loder/extdata/pngsuite/cdfn2c08.png
## - 32 x 8 pixels, RGB
## - 8 bpp (uncompressed data size 768 B; file size is 404 B)
## - Aspect ratio is 4 : 1Image data can be written back to a file using the
writePng function. The theoretical numerical range of the
pixel intensities (i.e., the black and white points) can be set using
the range attribute or an argument of the same name.
writePng(image, tempfile(), range=c(0,200))This will rescale the image intensities, and clip any values outside the specified range to the appropriate extreme.