了解列表结构

Question

我有连接到我的 PostgresDB 的 R 代码。

它为每张表提供了准确的一行和一列布尔类型的列

res <- lapply(all_tables,
              function(table){
                sqlStatement <- 
                  paste("SELECT CASE WHEN MAX(date) = current_date-1 then TRUE else FALSE end as x from "
                        ,table)
                dbGetQuery(con, sqlStatement)
              })
names(res) <- all_tables
res

结果有些令人满意：

datawarehouse.table1
     x
1 TRUE

datawarehouse.table2
      x
1 FALSE

datawarehouse.table3
      x
1 FALSE

我真正需要的是这样的数据框：

table                  valid
datawarehouse.table1   TRUE
....

我不明白的是那些 x 和那些 1。

Answer 1

正如slackline 指出的那样，1 是行号。 x 是因为你执行了这个 SQL 语句：

SELECT CASE WHEN MAX(date) = current_date-1 then TRUE else FALSE end as x from table

你看到那里的as x了吗？这就是您要查找的x。

您可以将结果（数据帧列表）转换为一个数据帧，如下所示：

# this is the `res` from your example, with some example data
res <- list("datawarehouse.table1" = data.frame("x" = c(TRUE)),
            "datawarehouse.table2" = data.frame("x" = c(FALSE)),
            "datawarehouse.table3" = data.frame("x" = c(TRUE)))

# the names of the list items should be the values in the new column
table_names <- list("table" = names(res))

res <- do.call(rbind, res)
# get rid of the row names, will have integer indexes instead
rownames(res) <- NULL

# add a new column with the table names
# you could use stringr::str_extract to only pull out the portion you need
res<- cbind(res, table_names)