# NOT RUN {
login <- docu_login(demo = TRUE)
envelopes <- docu_list_envelopes(base_url = login$baseUrl[1], from_date = "2017/1/1")
envelope_id <- envelopes[envelopes$status == "completed","envelopeId"][1]
status <- docu_envelope_status(base_url = login[1, 3],
envelope_id = envelope_id)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab