[R] how to make this get command work?

[ce]

Dear all,

If I have a list like this how I can get an object of it  with a variable :

foo<-list(A = c(1,3), B =c(1, 2), C = c(3, 1))
var <- "A"

get(paste("foo$",'A',sep=''))
Error in get(paste("foo$", "A", sep = "")) : object 'foo$A' not found