How to keep style format unchanged after writing data using openxlsx in R

I am using openxlsx in order to write the outputs of my data.

I have used the following code to read my data using readxl.

df1=read_excel("C:/my_data.xlsx",skip=2);

Now I want to write the output and keep the original Excel file using any possible package. I have used the following codes, but it does not keep the original Excel file. Can we do it it in R packages?

 write.xlsx(df1, 'C:/mydata.xlsx',skip=2)