len <- 100 # number elements in list
lis <- lapply(1:len, function(l) list(x = (-l), y = l^2)) # create list
get_list_element(lis, "x")[1] # should be equal to -1
get_list_element(lis, 1)[1] # should be equal to -1
Run the code above in your browser using DataLab