我如何使用一个函数来分析所有tibbles中的所有行，将我的数据放在一个tibbles列表中？

analyze_tibbles <- function(tibbles) {
  result <- list()  # 创建一个空的tibbles列表
  
  for (i in 1:length(tibbles)) {
    tibble <- tibbles[[i]]  # 获取当前的tibble
    
    # 在这里进行数据分析，可以根据需求使用不同的函数或方法
    # 这里以计算每个tibble的行数和列数为例
    rows <- nrow(tibble)
    cols <- ncol(tibble)
    
    # 创建一个新的tibble来存储分析结果
    analysis <- tibble(
      rows = rows,
      cols = cols
    )
    
    result[[i]] <- analysis  # 将分析结果添加到tibbles列表中
  }
  
  return(result)  # 返回tibbles列表作为最终结果
}