## create a workbook
wb <- wb_workbook(theme = "Office 2013 - 2022 Theme")
wb$add_worksheet("S1")
## modify base font to size 10 Aptos Narrow in red
wb$set_base_font(font_size = 10, font_color = wb_color("red"), font_name = "Aptos Narrow")
wb$add_data(x = iris)
## font color does not affect tables
wb$add_data_table(x = iris, dims = wb_dims(from_col = 10))
## get the base font
wb_get_base_font(wb)
Run the code above in your browser using DataLab