Recover R Script

A script named 'train.R' was running . Sudden of pc restart , I reopened RStudio and I saw that tab 'train.R' was closed. I saw in the 'Files' tab named 'train.R' file showing with 32kb in size, I opened it and it's completely blank so I closed the 'train.R' tab. Then 'train.R' in 'Files' window, showing 0KB. Again I opened it and it's still blank.

I followed a second method; going to 'History' tab, and it has codes showing when I moved at the top of codes, it asked to load 299 more lines of previous codes, I did click it and the code isn only half of full codes.

Going to directory > finding '.Rhistory' > Opening it with 'NotePad' still has same codes as 'History' tab has !

Tried Recuva to recover files but it failed to recover previous version of 'train.R' .

I need a serious help. I have lost my whole work of several days. Please Help !!