## Create a new workbook
wb <- wb_workbook()
## Add a worksheet
wb$add_worksheet("Sheet 1")
## set row heights
wb <- wb_set_row_heights(
wb, 1,
rows = c(1, 4, 22, 2, 19),
heights = c(24, 28, 32, 42, 33)
)
## overwrite row 1 height
wb <- wb_set_row_heights(wb, 1, rows = 1, heights = 40)
## remove any custom row heights in row 1
wb$remove_row_heights(sheet = 1, rows = 1)
Run the code above in your browser using DataLab