0

我正在尝试使用 magick 包自动将我的签名添加到我的照片中 - 但我在保存它们时遇到了问题。

这是我的代码：

file_list <- dir(".", pattern = "*.png")

mySig <- image_read("~/Desktop/sig1.png")
mySig <- mySig %>% image_resize("300x300")

newPhotos <- 
  for (i in 1:length(file_list)) {
    img <- image_read(file_list)
    photoSig <- img %>% 
      image_composite(mySig, gravity = "southeast", offset = "+20+20")
    newName <- as.character(paste0("New_", file_list))
    image_write(photoSig, newName, format = "png")
  }

无论脚本是否进入循环，我都会收到以下错误：

Error in file(con, "wb") : invalid 'description' argument

最重要的是 - 即使我没有自动命名名称并且只是调用输出"test"或其他东西 - 它只保存其中一张照片而不是所有照片。我究竟做错了什么？谢谢！

4

0 回答 0