有没有一种快速的方法来修改R中嵌套列表的一致部分？

modify_nested_list <- function(lst, target_key, new_value) {
  if (is.list(lst)) {
    for (key in names(lst)) {
      lst[[key]] <- modify_nested_list(lst[[key]], target_key, new_value)
    }
  } else {
    if (target_key %in% names(lst)) {
      lst[[target_key]] <- new_value
    }
  }
  return(lst)
}

# 示例数据
nested_list <- list(
  a = list(
    b = list(
      c = 1,
      d = 2
    ),
    e = 3
  ),
  f = list(
    g = list(
      c = 4,
      h = 5
    ),
    i = 6
  )
)

# 修改嵌套列表中的一致部分
modified_list <- modify_nested_list(nested_list, "c", 10)

# 打印修改后的嵌套列表
print(modified_list)