context("OAS List")
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()
site <- roas_setup$site
test_that("oas_list", {
site_list <- oas_list(credentials=credentials, request_type='Site')
expect_true(is.data.frame(site_list))
expect_true(all(c('Id', 'Name', 'Domain') %in% names(site_list)))
campaign_list <- oas_list(credentials=credentials, request_type='Campaign',
search_criteria = list(newXMLNode("Status", "L"),
newXMLNode("EndDate",
attrs = c(condition = "GT"),
format(Sys.Date() + 30,
'%Y-%m-%d'))),
search_criteria_attributes = c(pageIndex="1", pageSize="10"))
expected_names <- c('Type', 'CampaignKey', 'Id', 'Status', 'StartDate', 'EndDate',
'ImpDelivered', 'ClicksDelivered', 'WhenModified')
expect_true(is.data.frame(campaign_list))
expect_true(all(expected_names %in% names(campaign_list)))
expect_true(all(as.character(campaign_list$Status) == 'L'))
expect_true(nrow(campaign_list) <= 10)
})
test_that("oas_list_code", {
dma_code_list <- oas_list_code(credentials=credentials, code_type='DMA')
expect_true(is.data.frame(dma_code_list))
expect_true(all(c('Code', 'Name') %in% names(dma_code_list)))
expect_true(nrow(dma_code_list)>200)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.