Write a large dataframe to csv in chunks

Large dataframe to csv in chunks in R

df = read.csv("your-df.csv")

# Number of items in each chunk
elements_per_chunk = 100000

# List of vectors [1] 1:100000, [2] 100001:200000, ...
l = split(1:nrow(df), ceiling(seq_along(1:nrow(df))/elements_per_chunk))

# Write large data frame to csv in chunks
fname = "inventory-cleaned.csv"
count = 1
for(i in l){
  print(count)
  write.table(inventory[i,],
              file=fname, 
              sep = ",",
              row.names = FALSE,
              append = TRUE,
              col.names=!file.exists(fname)) # dont append column names 
  count = count + 1
}