创建一个函数来迭代R中大型列表中的tibble元素

# 定义一个函数来迭代列表中的tibble元素
iterate_tibbles <- function(lst) {
  for (i in seq_along(lst)) {
    if (is.data.frame(lst[[i]])) {
      print(lst[[i]])
      # 在这里可以进行一些对tibble元素的操作
    }
  }
}

# 示例列表
my_list <- list(tibble(a = 1:3, b = c("x", "y", "z")),
                tibble(x = 4:6, y = c("a", "b", "c")),
                "not a tibble",
                tibble(foo = c("apple", "banana", "orange"), bar = 7:9))

# 调用函数来迭代tibble元素
iterate_tibbles(my_list)