wb <- wb_workbook()$add_worksheet()$
add_person(name = "openxlsx2")
pid <- wb$get_person(name = "openxlsx")$id
# write a comment to a thread, reply to one and solve some
wb <- wb %>%
wb_add_thread(dims = "A1", comment = "wow it works!", person_id = pid) %>%
wb_add_thread(dims = "A2", comment = "indeed", person_id = pid, resolve = TRUE) %>%
wb_add_thread(dims = "A1", comment = "so cool", person_id = pid, reply = TRUE)
Run the code above in your browser using DataLab