如何避免R脚本提取FLIR热成像元数据时生成额外数组前缀？

问题根源 #

flirsettings()返回的元数据对象中，部分字段是带自动生成数字索引的向量（例如c("1" = "25.0")），当转换为JSON时，这些数字索引会被保留为键名，导致出现多余的前缀数字。

解决方案 #

修改R脚本，清理带数字索引的向量并使用规范的JSON转换工具输出：

library(Thermimage)
library(jsonlite)

# 接收传入的文件路径
inFile <- inFile
fd <- flirsettings(inFile)

# 递归清理所有带数字前缀索引的元素
clean_metadata <- function(x) {
  if (is.vector(x) && !is.null(names(x)) && all(grepl("^\\d+$", names(x)))) {
    unname(x) # 移除数字索引，仅保留值
  } else if (is.list(x)) {
    lapply(x, clean_metadata) # 递归处理嵌套列表
  } else {
    x
  }
}

clean_fd <- clean_metadata(fd)

# 生成标准JSON，auto_unbox避免单个值被包裹为数组
json_result <- toJSON(clean_fd, auto_unbox = TRUE)
cat(json_result)

关键说明 #

1. 清理数字索引：通过unname()移除向量上自动生成的数字键，确保转换为JSON时只保留元数据值。
2. 递归处理嵌套结构：FLIR元数据可能存在嵌套列表，因此需要递归遍历所有元素进行清理。
3. 使用jsonlite生成JSON：该包生成的JSON格式更符合标准，auto_unbox参数会将长度为1的向量转为JSON标量，避免多余的数组包裹，减少PHP端处理的异常。

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