［R］JPEG形式の画像ファイルのサイズ（縦横のピクセル幅）を得る

パッケージjpegをインストールしてラスターイメージオブジェクトにすれば簡単に取得できる。

ラスターイメージは単純な配列であり、その配列の要素数を調べれば縦横のピクセル幅を得ることができる。

以下のような幅128ピクセル、高さ64ピクセルの画像を例として扱う。

まず、パッケージjpegをインストールして使える状態にする。

> install.packages("jpeg")
Installing package into ・・・
（表示省略）
> library(jpeg)

readJPEG関数でラスターイメージにすると、dim関数を使うと画像ファイルの縦横のピクセル幅を得ることができる。dim関数でラスターイメージを指定したときにベクトルが返される。１つ目が縦方向のピクセル幅。2つ目が横方向のピクセル幅。

> image <- readJPEG("image.jpg")
> mode(image)  # モードは数値
[1] "numeric"
> class(image)  # クラスは配列
[1] "array"
> dim(image)  # 次元を得る
[1]  64 128   3
> dim(image)[1]  # 画像ファイルの縦方向のピクセル幅
[1] 64
> dim(image)[2]  # 画像ファイルの横方向のピクセル幅
[1] 128