我需要对图像文件夹进行灰度处理，但是此文件夹中包含很多图像

Question

我需要对图像文件夹进行灰度处理，但是此文件夹中包含很多图像。我到目前为止发现的唯一方法是一步一步地做。我正在尝试这段代码：

FILES <- list.files(files, pattern=".jpg",all.files =TRUE, full.names=TRUE, no.. = TRUE)
im<- list(FILES)
for (i in 1:length(FILES))
{
  im[[i]] <- load.image(FILES[i])
}

#list the images
print(im[[i]])

#Processing the image 

gray.im<-grayscale(im[[7]])

plot(im[[7]])%>%
  plot(gray.im)%>%
  par(mfrow=c(1,2))

par(mfrow=c(1,2))

threshold(gray.im,"60%") %>% plot
threshold(gray.im,"65%") %>% plot
a<-threshold(gray.im,"78%") %>% plot

但是此代码无法正常工作，因此我尝试创建一个函数来执行相同的操作，但是也没有正常工作。

grayimage <- function(gray) {

  for (j in 1:length(im) )

    gray.im[[j]] <- grayscale(im)

  print (gray.im[j])
  plot(gray.im[j])
}