0

我有以下 MySQL 查询，使用RMySQL. 之前设置了所有数据库参数，并且查询运行良好。是否有可能将其置于循环中以从多个 dpname 获取多个动物园对象？谢谢！

dpname.df<-"%Name%"

paste.query.df<-paste("select handle from db.connect  where dpname like '",dpname.df,"'",sep='')
handle.df<-dbGetQuery(dbLT,paste.query.df)

paste.query2.df<-paste("select time,value from db.data where handle='",handle.df,"' and time between '",x,"' and '",y,"'",sep='')
df <- dbGetQuery(dbLT,paste.query2.df)


df$time<-as.POSIXct(df$time,format="%Y-%m-%d %H:%M:%S")
df.zoo<-zoo(df[,-1],df[,1])

我试图用mapply设置一个函数：

query<-function(x,y,dpname.df)
{

    paste.query.df<-paste("select handle from db.connect  where dpname like '",dpname.df,"'",sep='')
    handle.df<-dbGetQuery(dbLT,paste.query.df)

    paste.query2.df<-paste("select time,value from db.data where handle='",handle.df,"' and time between '",x,"' and '",y,"'",sep='')
        dbGetQuery(dbLT,paste.query2.df)

}

我可以运行：与mapply(query,x,y,dpname.df)

但是我不能为每个获得多个输出！询问。是否可以使用输出名称设置另一个列表？所以我也可以把 zoo 和 POSIXct 的东西放在我的函数中。谢谢！

4

0 回答 0