r - RでNIFTIのスライスから画像パッチを抽出してpngとして保存するには?

Question

3D NIFTI 画像のスライスから 32x32 パッチを抽出し、png として保存しようとしています。私は R で作業しています。NIFTI 画像には、240x240 ピクセルの 155 スライスが含まれています。63 番目のスライスに関心領域を配置しましたが、png としてエクスポートすると、パッチはデフォルトで 480x480 ピクセルのサイズで保存されます。コードを以下に示します。ここで、ROI は x 位置で 58:89、y で 95:126、スライス z=63 の 32x32 領域です。

library(oro.nifti)

set.seed(123)
arr = array(rnorm(240*240*155), dim = c(240,240,155)) 
img = oro.nifti::nifti(arr) #create NIFTI

png("C:/Users/Downloads/patchimg.png")
image(img[58:89, 95:126, 63], col=gray(0:64/64), xlab="", ylab="", axes=FALSE, useRaster=TRUE)
dev.off()

エクスポートされたpngが32x32になるようにする別の方法はありますか? または、より効率的な方法はありますか？