访问tibble中列表的最后一个元素

# 创建一个包含列表的 tibble
library(tibble)

my_tibble <- tibble(
  id = 1:3,
  data = list(
    list(a = 1, b = 2),
    list(a = 3, b = 4),
    list(a = 5, b = 6)
  )
)

# 访问列表的最后一个元素
last_element <- my_tibble$data[[3]]

print(last_element)

# 错误的索引
invalid_element <- my_tibble$data[[4]]

# 检查列表长度
list_length <- length(my_tibble$data)

if (list_length >= 4) {
  invalid_element <- my_tibble$data[[4]]
} else {
  print("索引超出范围")
}

# 错误的操作
invalid_operation <- my_tibble$id[[1]]

# 检查列类型
if (is.list(my_tibble$data)) {
  last_element <- my_tibble$data[[3]]
} else {
  print("列不是列表类型")
}