R语言：嵌套列表中查找更新指定名称及值格式的自动化实现

我有一个嵌套列表对象cc，需要完成两个操作：

• 查找所有名为"StartDate"的项，将其名称修改为"OccurrenceStartDate"
• 同时更新该项下Value字段的日期格式为%m-%d-%Y

目前只能通过手动定位路径修改，想实现自动化处理。当前手动实现代码如下：

cc <- list(ConceptSets = list(list(id = 0L, name = "test cs", expression = list(
        items = list(list(concept = list(CONCEPT_ID = 1569193L, CONCEPT_NAME = "Cerebral infarction", 
                                         STANDARD_CONCEPT = "", STANDARD_CONCEPT_CAPTION = "", 
                                         INVALID_REASON = "V", INVALID_REASON_CAPTION = "Valid", 
                                         CONCEPT_CODE = "I63", DOMAIN_ID = "Condition", VOCABULARY_ID = "ICD10CM", 
                                         CONCEPT_CLASS_ID = "3-char nonbill code"), isExcluded = FALSE, 
                          includeDescendants = TRUE, includeMapped = FALSE))))), 
        PrimaryCriteria = list(CriteriaList = list(list(ConditionOccurrence = list(
            CodesetId = 0L, Age = list(Op = "eq", Value = 15L), StartDate = list(
                Op = "bt", Value = structure(17532, class = "Date"), 
                Extent = structure(18628, class = "Date"))))), ObservationWindow = list(
                    PriorDays = 0L, PostDays = 0L), PrimaryCriteriaLimit = list(
                        Type = "First")), QualifiedLimit = list(Type = "First"), 
        ExpressionLimit = list(Type = "First"), InclusionRules = list(), 
        CensoringCriteria = list(), CollapseSettings = list(CollapseType = "ERA", 
                                                            EraPad = 0L), CensorWindow = structure(list(), names = character(0)), 
        cdmVersionRange = ">=5.0.0")

# 手动修改名称
names(cc$PrimaryCriteria$CriteriaList[[1]]$ConditionOccurrence)[3] <- "OccurrenceStartDate"

# 手动更新日期格式
cc$PrimaryCriteria$CriteriaList[[1]]$ConditionOccurrence$OccurrenceStartDate$Value <- format(cc$PrimaryCriteria$CriteriaList[[1]]$ConditionOccurrence$OccurrenceStartDate$Value, "%m-%d-%Y")

之前尝试的批量替换代码仅修改了名称的副本，无法实际改动原列表：

names(rapply(cc, function(x) head(x))) %>% str_replace_all(pattern = "StartDate","OccurrenceStartDate")

自动化解决方案 #

编写递归函数遍历嵌套列表，直接修改目标项的名称和值格式：

# 定义递归处理函数
modify_start_date <- function(x) {
  if (is.list(x)) {
    # 定位名为"StartDate"的元素
    start_date_pos <- which(names(x) == "StartDate")
    if (length(start_date_pos) > 0) {
      # 修改元素名称
      names(x)[start_date_pos] <- "OccurrenceStartDate"
      # 格式化日期值
      x$OccurrenceStartDate$Value <- format(x$OccurrenceStartDate$Value, "%m-%d-%Y")
    }
    # 递归处理所有子列表
    lapply(x, modify_start_date)
  } else {
    # 非列表元素直接返回
    x
  }
}

# 应用函数处理原列表
cc_modified <- modify_start_date(cc)

验证修改结果 #

# 查看修改后的元素名称
names(cc_modified$PrimaryCriteria$CriteriaList[[1]]$ConditionOccurrence)
# 输出: [1] "CodesetId"           "Age"                 "OccurrenceStartDate"

# 查看格式化后的日期值
cc_modified$PrimaryCriteria$CriteriaList[[1]]$ConditionOccurrence$OccurrenceStartDate$Value
# 输出: [1] "01-01-2018"

这个函数会遍历列表的所有嵌套层级，自动处理所有符合条件的"StartDate"项，无需手动定位路径。

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