R help - Feb 2015 - retrieving protein for swissport‏

I Try to run this script on order to get all the protein named Delta 9 acyl
CoA desaturase.

library(seqinr)
choosebank("swissprot")
D9aCd <- query("Delta 9 acyl-CoA desaturase","KD=Delta 9
acyl-CoA
desaturase")

Nothing happen....

i be glad to know what i do wrong...

Thnks

	[[alternative HTML version deleted]]