{"action":"opened","issue":{"url":"https://api.github.com/repos/awalker89/openxlsx/issues/401","repository_url":"https://api.github.com/repos/awalker89/openxlsx","labels_url":"https://api.github.com/repos/awalker89/openxlsx/issues/401/labels{/name}","comments_url":"https://api.github.com/repos/awalker89/openxlsx/issues/401/comments","events_url":"https://api.github.com/repos/awalker89/openxlsx/issues/401/events","html_url":"https://github.com/awalker89/openxlsx/issues/401","id":343572294,"node_id":"MDU6SXNzdWUzNDM1NzIyOTQ=","number":401,"title":"loadWorkbook() creates empty comments behind visible comments","user":{"login":"mikmart","id":13412395,"node_id":"MDQ6VXNlcjEzNDEyMzk1","avatar_url":"https://avatars3.githubusercontent.com/u/13412395?v=4","gravatar_id":"","url":"https://api.github.com/users/mikmart","html_url":"https://github.com/mikmart","followers_url":"https://api.github.com/users/mikmart/followers","following_url":"https://api.github.com/users/mikmart/following{/other_user}","gists_url":"https://api.github.com/users/mikmart/gists{/gist_id}","starred_url":"https://api.github.com/users/mikmart/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/mikmart/subscriptions","organizations_url":"https://api.github.com/users/mikmart/orgs","repos_url":"https://api.github.com/users/mikmart/repos","events_url":"https://api.github.com/users/mikmart/events{/privacy}","received_events_url":"https://api.github.com/users/mikmart/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":0,"created_at":"2018-07-23T10:17:37Z","updated_at":"2018-07-23T10:17:37Z","closed_at":null,"author_association":"NONE","body":"When reading a workbook with visible comments, `loadWorkbook()` adds an empty comment-like text box behind any comments that were toggled visible in the Excel file.\r\n\r\n![](https://i.imgur.com/3kI3fCm.png)\r\n\r\n## Steps to Reproduce the Problem \r\n\r\n```r\r\nlibrary(openxlsx)\r\n\r\nwb <- createWorkbook()\r\naddWorksheet(wb, \"Sheet 1\")\r\n\r\ndf <- data.frame(a = 1:3, b = 4:6, c = 7:9)\r\nwriteData(wb, 1, df)\r\n\r\ncomment1 <- createComment(\"Random comment\", visible = FALSE)\r\nwriteComment(wb, 1, 1, 1, comment1)\r\n\r\ncomment2 <- createComment(\"Another comment\", visible = TRUE)\r\nwriteComment(wb, 1, 2, 1, comment2)\r\n\r\ntf <- tempfile(fileext = \".xlsx\")\r\nsaveWorkbook(wb, tf)\r\n\r\nwb_loaded <- loadWorkbook(tf)\r\nopenXL(wb_loaded)\r\n\r\nunlink(tf)\r\n```\r\n\r\n## sessionInfo()\r\n\r\n  - Version of openxlsx: 4.1.1\r\n  - Version of R: 3.5.1\r\n"}}
{"actor":{"display_login":"mikmart"}}