如何用R的magick包将图片转为JSON并在另一R会话解码？

最佳JSON载荷格式设计 #

JSON需包含图像元信息和一维化图像数据，其中元信息必须保留还原图像的核心参数：

• 图像宽度、高度
• 颜色空间（colorspace）
• 是否带alpha通道（matte）
• 通道数（如RGBA为4通道、RGB为3通道）
• 图像数据：优先用0-255的整数数组存储（比十六进制字符串更高效，JSON体积更小）

编码（发送方R会话） #

library(magick)
library(jsonlite)

# 读取并缩小图片
img <- image_read('https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png') %>% 
  image_scale("10")

# 提取必要元信息
img_meta <- list(
  width = image_info(img)$width,
  height = image_info(img)$height,
  colorspace = image_info(img)$colorspace,
  matte = image_info(img)$matte,
  channels = length(image_data(img, type = "integer")) / (image_info(img)$width * image_info(img)$height)
)

# 将图像数据转为一维整数向量
img_data_vec <- as.integer(image_data(img, type = "integer"))

# 生成JSON载荷
json_payload <- toJSON(
  list(meta = img_meta, data = img_data_vec),
  auto_unbox = TRUE
)

# 可选：美化JSON格式查看
prettify(json_payload)

解码（接收方R会话） #

library(magick)
library(jsonlite)

# 解析传入的JSON字符串
decoded_content <- fromJSON(json_payload)

# 还原图像数据的多维数组结构
img_data_array <- array(
  decoded_content$data,
  dim = c(decoded_content$meta$channels, decoded_content$meta$width, decoded_content$meta$height)
)

# 创建空白图像并填充数据
reconstructed_img <- image_blank(
  width = decoded_content$meta$width,
  height = decoded_content$meta$height,
  colorspace = decoded_content$meta$colorspace,
  matte = decoded_content$meta$matte
)

# 将还原的数据写入空白图像
image_data(reconstructed_img) <- img_data_array

# 查看重建后的图像
print(reconstructed_img)

对原代码的补充说明 #

你原代码将image_data()转为字符串数组，但丢失了多维数据的维度信息，导致还原时无法正确恢复数组结构。如果要沿用原思路，需在JSON中额外存储dim(image_data(img))的结果，再在解码时重新调整数组维度，但整数存储数据的方案更高效可靠。

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