Is it possible in R to obtain the contrast vector from the design matrix?

Question

Say I was given two factors:

species <- factor(c("A","A","B","B"))
condition <- factor(c("control",&qu