## Not run:
# wb <- createWorkbook("Edgar Anderson")
# addWorksheet(wb, "S1")
# writeDataTable(wb, "S1", x = iris[1:30,], xy = c("C", 5))
#
# ## set all headers
# setHeader(wb, "This is a header", position="center")
# setHeader(wb, "To the left", position="left")
# setHeader(wb, "On the right", position="right")
#
# ## set all footers
# setFooter(wb, "Center Footer Here", position="center")
# setFooter(wb, "Bottom left", position="left")
# setFooter(wb, Sys.Date(), position="right")
#
# saveWorkbook(wb, "headerHeaderExample.xlsx", overwrite = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab