wb <- wb_workbook()$add_worksheet()
# Add a person to the workbook.
wb$add_person(name = "someone who likes to edit workbooks")
pid <- wb$get_person(name = "someone who likes to edit workbooks")$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