image.libfacedetection (version 0.1)

image_detect_faces: Detect faces in images using the libfacedetection CNN

Description

Detect faces in images using using a convolutional neural network available from https://github.com/ShiqiYu/libfacedetection. The function can be used to detect faces of minimal size 10x10 pixels.

Usage

image_detect_faces(x)

Value

A list with elements nr and detections.

Element nr indicates the number of faces found.

The data frame detections indicates the locations of these. This data.frame has columns x, y, width and height as well as a columns called confidence. The values of x and y are the top left of the start of the box. This data frame also has the x and y locations of 5 face landmarks (eyes, nose and mouth ends).

Arguments

x

an object of class magick-image with rgb colors. Or an rgb integer array with pixel values in the 0-255 range.

Examples

library(magick)
path <- system.file(package="image.libfacedetection", "images", "handshake.jpg")
x <- image_read(path)
x
faces <- image_detect_faces(x)
faces
plot(faces, x, border = "red", lwd = 7, col = "white", landmarks = TRUE)


##
## You can also directly pass on the RGB array in BGR format 
## without the need of having magick
##
tensor <- image_data(x, channels = "rgb")
tensor <- as.integer(tensor)
faces  <- image_detect_faces(tensor)
str(faces)
plot(faces, x)