context("CustomTargetingService")
rdfp_options <- readRDS("rdfp_options.rds")
options(rdfp.network_code = rdfp_options$network_code)
options(rdfp.httr_oauth_cache = FALSE)
options(rdfp.application_name = rdfp_options$application_name)
options(rdfp.client_id = rdfp_options$client_id)
options(rdfp.client_secret = rdfp_options$client_secret)
dfp_auth(token = "rdfp_token.rds")
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- list(keys=list(name='Test1',
displayName='TestKey1',
type='FREEFORM'))
dfp_createCustomTargetingKeys_result <- dfp_createCustomTargetingKeys(request_data)
request_data <- data.frame(customTargetingKeyId=rep(dfp_createCustomTargetingKeys_result$id,2),
name=c('TestValue1','TestValue2'),
displayName=c('TestValue1','TestValue2'),
matchType=rep('EXACT', 2))
dfp_createCustomTargetingValues_result <- dfp_createCustomTargetingValues(request_data)
options(rdfp.network_code = rdfp_options$network_code)
test_that("dfp_createCustomTargetingKeys", {
expect_is(dfp_createCustomTargetingKeys_result, "data.frame")
expect_true(all(c('id', 'name', 'displayName', 'type', 'status') %in%
names(dfp_createCustomTargetingKeys_result)))
})
test_that("dfp_createCustomTargetingValues", {
expect_is(dfp_createCustomTargetingValues_result, "data.frame")
expect_true(all(c('customTargetingKeyId', 'id', 'name', 'displayName', 'matchType', 'status') %in%
names(dfp_createCustomTargetingValues_result)))
})
test_that("dfp_getCustomTargetingKeysByStatement", {
request_data <- list('filterStatement'=list('query'="WHERE name like 'Test%'"))
dfp_getCustomTargetingKeysByStatement_result <- dfp_getCustomTargetingKeysByStatement(request_data)
expect_is(dfp_getCustomTargetingKeysByStatement_result, "data.frame")
})
test_that("dfp_getCustomTargetingValuesByStatement", {
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- list('filterStatement'=list('query'=paste0("WHERE customTargetingKeyId='",
dfp_createCustomTargetingKeys_result$id,
"' AND name like 'TestValue%'")))
dfp_getCustomTargetingValuesByStatement_result <- dfp_getCustomTargetingValuesByStatement(request_data)
expect_is(dfp_getCustomTargetingValuesByStatement_result, "data.frame")
options(rdfp.network_code = rdfp_options$network_code)
})
test_that("dfp_updateCustomTargetingKeys", {
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- list(keys=list(id=dfp_createCustomTargetingKeys_result$id,
name='Test1',
displayName='TestKey1A',
type='FREEFORM'))
dfp_updateCustomTargetingKeys_result <- dfp_updateCustomTargetingKeys(request_data)
expect_is(dfp_updateCustomTargetingKeys_result, "data.frame")
options(rdfp.network_code = rdfp_options$network_code)
})
test_that("dfp_updateCustomTargetingValues", {
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- data.frame(customTargetingKeyId=dfp_createCustomTargetingKeys_result$id,
id=dfp_createCustomTargetingValues_result$id[1],
name='TestValue1',
displayName='TestValue1A',
matchType='EXACT')
dfp_updateCustomTargetingValues_result <- dfp_updateCustomTargetingValues(request_data)
expect_is(dfp_updateCustomTargetingValues_result, "data.frame")
options(rdfp.network_code = rdfp_options$network_code)
})
test_that("dfp_performCustomTargetingValueAction", {
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- list(customTargetingValueAction='DeleteCustomTargetingValues',
filterStatement=list('query'=paste0("WHERE name like 'Test%'")))
dfp_performCustomTargetingValueAction_result <- dfp_performCustomTargetingValueAction(request_data, as_df=FALSE)
expect_is(dfp_performCustomTargetingValueAction_result, "list")
expect_named(dfp_performCustomTargetingValueAction_result, "numChanges")
expect_equal(as.integer(dfp_performCustomTargetingValueAction_result$numChanges), 2)
options(rdfp.network_code = rdfp_options$network_code)
})
test_that("dfp_performCustomTargetingKeyAction", {
options(rdfp.network_code = rdfp_options$test_network_code)
request_data <- list(customTargetingKeyAction='DeleteCustomTargetingKeys',
filterStatement=list('query'=paste0("WHERE name like 'Test%'")))
dfp_performCustomTargetingKeyAction_result <- dfp_performCustomTargetingKeyAction(request_data, as_df=FALSE)
expect_is(dfp_performCustomTargetingKeyAction_result, "list")
expect_named(dfp_performCustomTargetingKeyAction_result, "numChanges")
expect_equal(as.integer(dfp_performCustomTargetingKeyAction_result$numChanges), 1)
options(rdfp.network_code = rdfp_options$network_code)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.