R管道image_annotate无法正常工作

Question

我找不到错误的原因（下图） - 不确定它是管道符号，地图功能还是其他。

library(purrr)
library(magick)

#set working directory with a couple of png's
#This works:
image_read("image1.png") %>% image_annotate("Text")    

#and this works too:
list.files(path = "", pattern = "*.png", full.names = T) %>% 
      map(image_read) %>%
      image_join() %>% 
      image_animate(fps=1) %>% 
      image_write("animated.gif")

#but this doesn't:
list.files(path = "", pattern = "*.png", full.names = T) %>% 
      map(image_read) %>%
      map(image_annotate("Text")) %>%
      image_join() %>% 
      image_animate(fps=1) %>% 
      image_write("animated.gif")

我得到这个错误：

Error in inherits(image, "magick-image") : 
  argument "image" is missing, with no default

在我看来，错误可能是在筑巢的地图上。 

由于您在

Answer 1

期间已经绘制过映射，因此不必再次这样做。

eDit

因此，我们需要将函数

image_annotate

应用于映射

image_annotate

返回的列表中的每个元素。尝试替换：

：

image_read

or

map(image_annotate("Text") %>%

lapply（）的参考