Cloned worksheet with note throws error on wb_save

[DavZim]

I have a worksheet with a note (not comment).
When I clone the worksheet, the wb_save() command throws an error.

I use this test-file test.xlsx.

library(openxlsx2)
wb <- wb_load("https://github.com/JanMarvin/openxlsx2/files/11833189/test.xlsx")
wb$clone_worksheet(1, "ASD")
wb$save("test2.xlsx")
#> Error in FUN(X[[i]], ...) : subscript out of bounds
traceback()
#> 5: lapply(X = X, FUN = FUN, ...)
#> 4: sapply(comment_list, "[[", "author")
#> 3: unique(sapply(comment_list, "[[", "author"))
#> 2: write_comment_xml(comment_list = self$comments[[i]], file_name = file.path(tmpDir, 
#>        "xl", fn))
#> 1: wb$save("test2.xlsx")

[JanMarvin]

Thanks (once again) for reporting! A fix is in main.

[DavZim]

Thank you for the quick fixes! <3