Nothing
context("Test docuSign envelope and URL for sending")
test_that("Retrieve envelope without error for signing", {
skip_on_cran()
skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
login <<- docu_login(demo = TRUE)
template_id <<- docu_templates(base_url = login[1, 3])$templateId
expect_silent(envelope <<- docu_envelope(
account_id = login[1, 2],
base_url = login[1, 3],
status = "created",
template_id = template_id,
template_roles = list(
email = "carl@cannadatasolutions.com",
name = "R-Test",
roleName = "Patient"
),
email_subject = "R-Test",
email_blurb = "R-Test"
))
})
test_that("uri is returned", {
skip_on_cran()
skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
expect_true(!is.null(envelope$uri))
})
test_that("Embed doesn't error", {
skip_on_cran()
skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
expect_silent(URL <<- docu_embedded_send(
base_url = login[1, 3],
return_url = "https://www.google.com",
uri = envelope$uri,
signer_name = "R-Test",
signer_email = "carl@cannadatasolutions.com",
client_user_id = "1"
))
})
test_that("URL is legit", {
skip_on_cran()
skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
expect_true(!httr::http_error(URL))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.