# load needed library (you'll need to install OpenCV as well!)
library(opencv)

# read in an image
img <- ocv_read("city.jpg")
ocv_display(img)

# convert to grayscale
img2 <- ocv_grayscale(img)
ocv_display(img2)

# blur
img3 <- ocv_blur(img, ksize = 100)
ocv_display(img3)

# detect edges
img4 <- ocv_edges(img)
ocv_display(img4)

# detect faces
img5 <- ocv_face(img)
ocv_display(img5)

# get a pic from your webcam
img6 <- ocv_picture()
ocv_display(img6)

# get live video from your webcam, and apply a filter
ocv_video(filter = ocv_grayscale)
ocv_video(filter = ocv_edges)
ocv_video(filter = ocv_face)
ocv_video(filter = ocv_facemask)
ocv_video(filter = ocv_hog)
ocv_video(filter = ocv_markers)
ocv_video(filter = ocv_knn)
ocv_video(filter = ocv_mog2)
ocv_video(filter = ocv_sketch)
ocv_video(filter = ocv_stylize)