在R Shiny中使用magick包绘制图片图形遇类型转换错误求助

问题根源 #

在R脚本里，image_draw()会打开临时绘图设备，后续rect()这类绘图操作直接作用于该设备，操作完成后设备自动关闭，原magick图像对象会被更新。但在Shiny的管道串联写法中，rect()返回的是绘图设备的外部指针（externalptr），并非magick图像对象，导致后续image_write()无法处理，触发错误Error: cannot coerce type 'externalptr' to vector of type 'list'。

解决步骤 #

1. 拆分管道操作，用代码块完成绘图流程：先打开绘图设备，执行绘图操作，再关闭设备，确保原magick图像对象被正确更新。
2. 关闭绘图设备后，直接使用更新后的图像对象进行保存和输出。

修正后的Shiny代码 #

library(magick)
library(shiny)

ui <- fluidPage(
    mainPanel(
      imageOutput("img")
    )
)

server <- function(input, output, session) {
  # 提前读取背景图，避免每次渲染重复读取
  bg_image <- image_read("https://illustoon.com/photo/dl/7252.png")
  
  output$img <- renderImage({
    # 复制图像对象，避免修改原始对象
    modified_img <- bg_image
    
    # 打开绘图设备，执行绘图操作
    image_draw(modified_img)
    rect(313, 354, 341, 382, col = "red")
    # 必须关闭绘图设备，完成图像更新
    dev.off()
    
    # 保存修改后的图像到临时文件
    tmpfile <- tempfile(fileext = 'jpg')
    image_write(modified_img, tmpfile, format = 'jpg')
    
    list(src = tmpfile, contentType = "image/jpeg")
  }, deleteFile = TRUE)
}

shinyApp(ui, server)

针对最终需求的优化建议 #

你需要在背景图上按坐标叠加多个小精灵图，无需使用绘图函数，magick的image_composite()更适配这个场景：

1. 读取小精灵图像文件
2. 使用offset参数指定叠加坐标（格式为"X+Y"）
3. 多次调用image_composite()完成多个精灵图的叠加

示例代码片段：

# 读取小精灵图
sprite1 <- image_read("小精灵1图片路径.png")
sprite2 <- image_read("小精灵2图片路径.png")

# 叠加第一个精灵图到背景图的(313,354)位置
modified_img <- image_composite(bg_image, sprite1, offset = "+313+354")
# 叠加第二个精灵图到其他坐标
modified_img <- image_composite(modified_img, sprite2, offset = "+400+200")

内容的提问来源于stack exchange，提问作者maximus