Strikethrough font decoration not recognized

[Havimo]

Expected Behavior

When looking at the list of Styles, I would expect 'STRIKEOUT' to appear in the fontDecoration field of a style object for cells that have been formatted with a strikethrough

Actual Behavior

the 'STRIKEOUT' never appears, but BOLD, ITALIC and UNDERLINE work.

Steps to Reproduce the Problem

(please attach an example xlsx file if possible)

1. load the attached workbook test font.xlsx

2. run the following piece of code

wb <- loadWorkbook(file.name)
style.list <- wb$styleObjects
fontdecoration <- c()
for(i in 1:length(style.list)){
  fontdecoration <- c(fontdecoration,paste(style.list[[i]]$style$fontDecoration,collapse = ','))
}
fontdecoration <- unique(fontdecoration)
fontdecoration

sessionInfo()

• Version of openxlsx: openxlsx_4.0.17
• Version of R: R version 3.5.0 (2018-04-23) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows >= 8 x64 (build 9200)

[neros]

I'd like to confirm the issue: creating a style using: createStyle(textDecoration = "strikeout") does not contain a "strikeout" value textDecoration strikewb$styleObjects[[x]]$style$fontDecoration = character(0)