ДВ
Size: a a a
ДВ
R
ДВ
IS
ГД
R
ГД
chunksize = 20000
chunk_ind = seq_len(nrow(GAaud_h)) %/% chunksize
for(each_chunk in unique(chunk_ind)){
chunk = GAaud_h[chunk_ind == each_chunk, ]
dbWriteTable(con, "GAaud_hist", chunk, append=TRUE , row.names = TRUE)
}
R
ГД
R
ГД
chunksize = 20000
chunk_ind = seq_len(nrow(GAaud_h)) %/% chunksize
for(each_chunk in unique(chunk_ind)){
chunk = GAaud_h[chunk_ind == each_chunk, ]
curr = tempfile()
fwrite(chunk, file = curr, quote = TRUE, eol = "\n", qmethod = "escape", col.names = FALSE)
chunk = readLines(curr, encoding = "UTF-8")
chunk = paste(chunk, collapse = "\n")
dbSendQuery(con, paste0("INSERT INTO GAaud_hist (", chunk, ") FORMAT CSV"))
}
ДВ
ГД
chunksize = 20000
chunk_ind = seq_len(nrow(GAaud_h)) %/% chunksize
for(each_chunk in unique(chunk_ind)){
chunk = GAaud_h[chunk_ind == each_chunk, ]
curr = tempfile()
fwrite(chunk, file = curr, quote = TRUE, eol = "\n", qmethod = "escape", col.names = FALSE)
chunk = readLines(curr, encoding = "UTF-8")
chunk = gsub('"', "'", chunk, fixed = TRUE)
chunk = paste(chunk, collapse = "\n")
dbSendQuery(con, paste0("INSERT INTO GAaud_hist (", chunk, ") FORMAT CSV"))
}
R
ГД
R
ГД
GAaud_hist = data.table(GAaud_hist, keep.rownames = "index")
R