xlsx_cells(include_blank_cells = FALSE) fails on blank cells with comments

[Bisaloo]

Probably related to #10.

Test file: test_failing.xlsx

Reprex:

tf <- tempfile()

download.file(
  "https://github.com/nacnudus/tidyxl/files/12765374/test_failing.xlsx",
  tf
)

tidyxl::xlsx_cells(tf)
#>    sheet address row col is_blank content data_type error logical numeric date
#> 1 Sheet1      A1   1   1     TRUE    <NA>     blank  <NA>      NA      NA <NA>
#>   character character_formatted formula is_array formula_ref formula_group
#> 1      <NA>                NULL    <NA>    FALSE        <NA>            NA
#>   comment height width row_outline_level col_outline_level style_format
#> 1    test  15.75 11.52                 1                 1       Normal
#>   local_format_id
#> 1               2

tidyxl::xlsx_cells(tf, include_blank_cells = FALSE)
#> Error in xlsx_cells_(path, sheets$sheet_path, sheets$name, sheets$comments_path, : attempt to set index 0/0 in SET_STRING_ELT

^{Created on 2023-09-29 with reprex v2.0.2}