将嵌套字符列表修改为R中的数字

convert_nested_list_to_numeric <- function(nested_list) {
  # 检查嵌套列表是否为空
  if (length(nested_list) == 0) {
    return(NULL)
  }
  
  # 创建一个空的数字列表
  numeric_list <- list()
  
  # 遍历嵌套列表中的每个元素
  for (i in 1:length(nested_list)) {
    element <- nested_list[[i]]
    
    # 检查元素的类型，如果是字符向量则将字符转换为数字
    if (is.character(element)) {
      numeric_element <- as.numeric(element)
      numeric_list[[i]] <- numeric_element
    }
    
    # 如果元素是列表，则递归调用自身处理嵌套列表
    if (is.list(element)) {
      nested_numeric_list <- convert_nested_list_to_numeric(element)
      numeric_list[[i]] <- nested_numeric_list
    }
  }
  
  return(numeric_list)
}

# 示例数据
nested_list <- list(c("1", "2", "3"), c("4", "5", "6"), c("7", "8", "9"))

# 转换为数字列表
numeric_list <- convert_nested_list_to_numeric(nested_list)

# 打印结果
print(numeric_list)