如何存储 sql 查询数据框？

Question

我迭代了一个日期数组，用于创建 sql 查询。

日期

fn1 <- function (N) 
{
    queryStart <- "SELECT something FROM somethingelse WHERE table.date ='"
    queryEnd <- "'AND table.something = 'foo'"
    for(i in 1:length(N)) {
        query1 <- paste(queryStart,N[i],queryEnd)
        result <- sqlQuery(con, query1)  //print(sqlQuery(con,query1) works as intended
    }
    return (result)
}

fn1（日期）

如何将所有内容放入一个数据框中？有人可以帮帮我吗？

Answer 1

试试这个，不过我还没有测试过...

fn1 <- function (N) 
{
    queryStart <- "SELECT something FROM somethingelse WHERE table.date ='"
    queryEnd <- "'AND table.something = 'foo'"
    allQueries<-data.frame(matrix(nrow=0,ncol=0));
    for(i in 1:length(N)) {
        query1 <- paste(queryStart,N[i],queryEnd)
        result <- sqlQuery(con, query1)  //print(sqlQuery(con,query1) works as intended
        if (nrow(allQueries) == 0){
            allQueries<-result;
        } 
        else{
            allQueries<-rbind(allQueries,result);
        }
    }
    return (allQueries);
}