Как рассчитать объекты изображения в списке URL-адресов изображений?

Question

Я пытаюсь использовать пакет EBImage для вычисления объектов в изображениях. Следующий код работает. Однако, поскольку у меня относительно большой набор данных (около 1000 изображений), повторение этого кода 1000 раз может быть действительно утомительным. Мне нужно сделать код более эффективным (минимизируя рабочую нагрузку), и мне интересно, могли бы вы помочь мне упростить этот процесс. Мой конкретный вопрос: могу ли я обработать все изображения с помощью команд только один раз (для всех изображений) и получить список чисел, которые показывают результаты для "max" для каждого изображения?

#

 library(EBImage)

#Reading Images 
a <- readImage("https://scontent.cdninstagram.com/vp/8b4999eb71b5381b5b68d4bef635630e/5B735DE7/t51.2885-15/sh0.08/e35/p640x640/29415832_1622274641183922_9158751921719214080_n.jpg")
b <- readImage("https://scontent.cdninstagram.com/vp/2aa22b810fabd2478065503c9a921daf/5B64459B/t51.2885-15/e35/29739757_359646237856246_7485780478239178752_n.jpg")
c <- readImage("https://scontent.cdninstagram.com/vp/796f4ee2e02b012969d778f5fda4510e/5B569B51/t51.2885-15/s640x640/sh0.08/e35/29416798_1877911555555364_9109288458408427520_n.jpg")
d <- readImage("https://scontent.cdninstagram.com/vp/ae53b00be6dd5babfc1c02322d3be640/5B4EC8A5/t51.2885-15/s640x640/sh0.08/e35/29739069_266004773938331_5594342353562238976_n.jpg")

a = channel(a, "gray")
at = a > 0.55
labelsat = bwlabel(at)
max(labelsat) 

b = channel(b, "gray")
bt = b > 0.55
labelsbt = bwlabel(bt)
max(labelsbt)

c = channel(c, "gray")
ct = c > 0.55
labelsct = bwlabel(ct)
max(labelsct)

d = channel(d, "gray")
dt = d > 0.55
labelsdt = bwlabel(dt)
max(labelsdt)
############################

заранее спасибо

Чамиль Ратнаяк

Answer 1

urls <- c(
  "https://scontent.cdninstagram.com/vp/8b4999eb71b5381b5b68d4bef635630e/5B735DE7/t51.2885-15/sh0.08/e35/p640x640/29415832_1622274641183922_9158751921719214080_n.jpg",
  "https://scontent.cdninstagram.com/vp/2aa22b810fabd2478065503c9a921daf/5B64459B/t51.2885-15/e35/29739757_359646237856246_7485780478239178752_n.jpg",
  "https://scontent.cdninstagram.com/vp/796f4ee2e02b012969d778f5fda4510e/5B569B51/t51.2885-15/s640x640/sh0.08/e35/29416798_1877911555555364_9109288458408427520_n.jpg",
  "https://scontent.cdninstagram.com/vp/ae53b00be6dd5babfc1c02322d3be640/5B4EC8A5/t51.2885-15/s640x640/sh0.08/e35/29739069_266004773938331_5594342353562238976_n.jpg"
)

# load the images once and save them
images <- lapply(urls, readImage)
# if there are a lot, consider save(images, file="images.rda") or something similar

myfunc <- function(img) {
    a = channel(img, "gray")
    at = a > 0.55
    labelsat = bwlabel(at)
    return(max(labelsat))
}
sapply(images, myfunc)