xl_merge("A1:C1", "Quarterly results",
format = xl_align(horizontal = "center") + xl_font(bold = TRUE))
df <- data.frame(a = 1:3, b = 4:6)
sheet <- xl_sheet(df, merge = xl_merge("A5:B5", "Total",
format = xl_font(bold = TRUE)))
tmp <- write_xlsx(list(Data = sheet))
Run the code above in your browser using DataLab