Нужна помощь в оттенках серого с пакетом «Imager»: ошибка в градациях серого (im): изображение должно иметь три цветовых канала

Question

Я сохранил изображение с этой ссылки локально и загрузил его. Мне нужно иметь возможность преобразовать это в оттенки серого, получить гистограмму свечения и управлять им с помощью grabRect.

Это моя первоначальная попытка

library(tidyverse)
library(imager)

im <- load.image("my/directory/retina_samples.png")

plot(im) #retina!
grayscale(im)

Ошибка в оттенках серого (im): изображение должно иметь три цветовых канала

Я могу обойти эту проблему и получить яркость заговор, который я хочу, идя другим путем:

library(magick)
im2 <- cimg2im(im, W = NULL)
plot(im2$`c = 1`)
im2.1 <-im2$`c = 1`
im2.1 %>% hist(main="Luminance values in  Retina Angiography", breaks = 30)

Я на полпути! Но теперь я получаю другую ошибку, когда пытаюсь работать с grabRect

grabRect(im2.1)

Ошибка в if (глубине (im)> 1) {: отсутствует значение, где требуется TRUE / FALSE

Мысли?