如下代码的执行是错误的，但我想实现下面代码的结果，该怎么修改？

library(RODBC)
channel <- odbcConnect("RtoSQL", uid="Yuhao", pwd="")
ggg<-c('yyyyyyy','possible','rrrrr','liquid')
dd<-NULL
for (i in 1:4)
  #就是下面这步，要怎么把ggg的4个值赋值给数据库的查询条件@hi呢？？不知道下面的dd为什么不能输入方括号
                               dd((i))<-sqlQuery(channel,   "  declare @hi nvarchar(20)
                                set @hi=ggg(i)
                               select * from  gg where uuu=@hi    ")
dd