I am doing an infinity loop to keep gathering data from database db, rework it and send it to another database db1

library(DBI) library(RSQLite)   while(1==1){    db = dbConnect(SQLite(), dbname="Data.sqlite",synchronous = NULL)   db1 = dbConnect(SQLite(), dbname="Data2.sqlite",synchronous = NULL)   db1   db  Column1=dbGetQuery(db,'select * from Table1')    #Here is some calculations#      Result = Column1/10    #Here calculations are finished and ready to be sent to new database#  dbWriteTable(db1, name="Result", value=Result, row.names=TRUE, append=TRUE)    dbDisconnect(db1)    dbDisconnect(db) } 

when I run the code, it executes about 10 loops and then rise the following Error: Error in rsqlite_send_query(conn@ptr, statement) : database is locked

Can someone please help me to solve this problem