Google Cloud Vision APIを使ってAKBのデータを把握する
こちらの所沢義男さん（偽名）のブログにカジュアルにVison APIを使う方法が載せられていたので、早速私も触ってみようと思います。（Vision APIのアカウント作成には住所や氏名や電話番号、クレカ情報が求められます。）
紹介されていたコードを実行してみます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
CROWD_VISION_KEY <- "YOUR KEY" library("httr") f <- "http://livedoor.blogimg.jp/musashinonikki/imgs/9/b/9b62aa78.jpg" tmp <- tempfile() download.file(f, tmp) img <- readBin(tmp, "raw", file.info(tmp)[1, "size"]) u <- paste0("https://vision.googleapis.com/v1/images:annotate?key=", CROWD_VISION_KEY) body <- list(requests = list(image=list(content=img), features=list(type="TEXT_DETECTION") ) ) res <- POST(url=u, encode="json", body=body, content_type_json() ) res <- content(res) cat(res$responses[[1]]$textAnnotations[[1]]$description[1]) |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
メニュー 券売機番号 券売機番号 11小ラーメン 730円14大ラーメン 830円 12小ラーメン豚入り880円15大ラーメン誘入り 980円 17小つけ麺 880円18大つけ麺 980円 1 19小つけ麺豚入り 1030円20大つけ麺豚入り 1130円 13ミニラーメン 680円 21ビール 500円24黒ウーロン茶 200円 22うずら卵(5個) 100円23かつお魚粉 100円 02刻み生姜 50円 初めてのお客様は かミニラーメンがお勧めです。 0000 3883 ! 1 11ナナ 1つ1 売4580 4-3 券1112 22 00000000 38838005 7880651 睡! | | | | 券11 1191220 |
以下の表は実際の表記との比較ですが、光の反射で見にくくなっているところ以外は正しい表現を抽出できているようです。
