make a nested list in r

main.r
# create a nested list
my_list <- list(
  item1 = list(
    subitem1 = "apple",
    subitem2 = "banana"
  ),
  item2 = list(
    subitem1 = "cat",
    subitem2 = "dog"
  )
)

# print the nested list
print(my_list)
214 chars
15 lines

main.r
# access the first item
print(my_list[[1]])

# access the subitem1 of the first item
print(my_list[[1]]$subitem1)

# access the second subitem of the second item
print(my_list[[2]][[2]])
187 chars
9 lines