代码仅存储向量中的最后一个元素,而不存储我想要的完整向量。
试图打印并退出打印存储。
conn <- dbConnect(RSQLite::SQLite(), "data.db")
newvector = c()
for(i in my_vector) {
x <- dbGetQuery(conn, paste('SELECT * FROM table WHERE Person = ', i, ';'))
info = fromJSON(x$info)
indx <- as.data.frame(info$dx)
inrx <- as.data.frame(info$rx)
agestart <- inrx[,5][1]
print(agestart)
newvector<- capture.output(agestart)
}
输出应该是一个向量,每个ID都要经过每个循环的所有迭代。