## create a workbook
wb <- wb_workbook()
wb_get_base_font(wb)
## modify base font to size 10 Arial Narrow in red
wb$set_base_font(fontSize = 10, fontColour = "#FF0000", fontName = "Arial Narrow")
wb_get_base_font(wb)
Run the code above in your browser using DataLab