मेरे पीएचडी पर्यवेक्षक ने मुझे यह पता लगाने में मदद की कि यह कैसे करना है। मूल रूप से उन्होंने लिखा:
for ID_loop in info$ID {
print(ID_loop)
whattoinsert <- info %>% select(ID) %>% distinct()
query = paste("USE schemas.info",
ID_loop,
sep = " ")
print(query)
results <- DBI:dbGetQuery(con,query)
dbWriteTable(con, "info",whattoinsert,overwrite = TRUE)
}
उन्हें बधाई :)