context("OAS Update")
roas_setup <- readRDS("roas_setup.rds")
options(roas.account = roas_setup$account)
options(roas.username = roas_setup$username)
options(roas.password = roas_setup$password)
credentials <- oas_build_credentials()
test_that("oas_update", {
advertiser_list <- oas_list(credentials=credentials,
search_criteria_attributes = c(pageIndex="1", pageSize="10"),
request_type='Advertiser')
expect_error(oas_update(credentials=credentials,
request_type='Advertiser',
update_data=list(addChildren(
newXMLNode('Advertiser'),
list(newXMLNode('Id', advertiser_list$Id[10]),
newXMLNode('ContactTitle', 'new Title'))))),
'errorCode 408: You do not have enough permission for this action.')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.