data.R

In AkselA/R-image: Functions and Methods for Dealing With Colour Images

# example data
library(png)

img444.nat <- readPNG("~/Documents/R/data/img444.png", native=TRUE)

img544.nat <- readPNG("~/Documents/R/data/img544.png", native=TRUE)

palette.nat <- readPNG("~/Documents/R/data/palette.png", native=TRUE)	

oslo.nat <- readPNG("~/Documents/R/data/oslo.png", native=TRUE)

mandrill.nat <- readPNG("~/Documents/R/data/mandrill.png", native=TRUE)	

flowers.nat <- readPNG("~/Documents/R/data/flowers.png", native=TRUE)	

macaws.nat <- readPNG("~/Documents/R/data/macaws.png", native=TRUE)	

house.nat <- readPNG("~/Documents/R/data/house.png", native=TRUE)	

colorchecker.hex <- structure(c(
	"#735244", "#d67e2c", "#383d96", "#f3f3f2", "#c29682", 
	"#505ba6", "#469449", "#c8c8c8", "#627a9d", "#c15a63", "#af363c", 
	"#a0a0a0", "#576c43", "#5e3c6c", "#e7c71f", "#7a7a79", "#8580b1", 
	"#9dbc40", "#bb5695", "#555555", "#67bdaa", "#e0a32e", "#0885a1", 
	"#343434"), .Dim = c(4L, 6L))

fl <- list.files("~/Documents/R/data/testimg", full.names=TRUE)
testimages <- lapply(fl, readPNG)
names(testimages) <- gsub("\\.png$", "", basename(fl))

rm(fl)

# library(rvest)

# colorchecker.hex <- "https://en.wikipedia.org/wiki/ColorChecker" %>%
                    # read_html() %>%
                    # html_nodes("td:nth-child(5)") %>%
                    # html_text() %>%
                    # matrix(ncol=6, byrow=TRUE)

# colorchecker <- as.image(colorchecker.hex)