Rでweb APIを使わずに5行で顔認識する

こんな話がある。 私は大人気ないのでRなら5行、いや実質3行だよとか言ってしまう。 以下はopencvパッケージのサンプルコードそのまま。

install.package("opencv") # インストール
library(opencv)
unconf <- ocv_read('https://github.com/dichika/ojisan/raw/master/teramonagi_001.jpg') #画像読み込み
faces <- ocv_face(unconf) #顔認識
ocv_write(faces, 'faces.jpg') #出力

f:id:dichika:20190704223130j:plain

まあOpenCV使えばどんな言語でもだいたい顔認識できるんじゃねえのって話。