Nothing
yadirStopAds <- function(Login = getOption("ryandexdirect.user"),
Ids = NULL,
Token = NULL,
AgencyAccount = getOption("ryandexdirect.agency_account"),
TokenPath = yadirTokenPath()){
# auth
Token <- tech_auth(login = Login, token = Token, AgencyAccount = AgencyAccount, TokenPath = TokenPath)
if(length(Ids) > 10000){
stop(paste0("In the parameter Ids transferred numbers ",length(Ids), " of ads, the maximum number of ads per request is 10000."))
}
if(is.null(Ids)){
stop("In the Ids argument, you must pass the vector containing the Id ads for which you want to stop the display. You have not transferred any Id.")
}
# error counter
CounErr <- 0
# error vector
errors_id <- vector()
# start time vector
start_time <- Sys.time()
# start message
packageStartupMessage("Processing", appendLF = T)
IdsPast <- paste0(Ids, collapse = ",")
# request body
queryBody <- paste0("{
\"method\": \"suspend\",
\"params\": {
\"SelectionCriteria\": {
\"Ids\": [",IdsPast,"]}
}
}")
# send request
answer <- POST("https://api.direct.yandex.com/json/v5/ads",
body = queryBody,
add_headers(Authorization = paste0("Bearer ",Token),
'Accept-Language' = "ru",
'Client-Login' = Login))
# parse answer
ans_pars <- content(answer)
# check for error
if(!is.null(ans_pars$error)){
stop(paste0("Error: ", ans_pars$error$error_string,". Message: ",ans_pars$error$error_detail, ". Request ID: ",ans_pars$error$request_id))
}
# check for missed ads
for(error_search in 1:length(ans_pars$result$SuspendResults)){
if(!is.null(ans_pars$result$SuspendResults[[error_search]]$Errors)){
CounErr <- CounErr + 1
errors_id <- c(errors_id, Ids[error_search])
packageStartupMessage(paste0(" AdId: ",Ids[error_search]," - ", ans_pars$result$SuspendResults[[error_search]]$Errors[[1]]$Details))
}
}
# prepare message
out_message <- ""
TotalCampStoped <- length(Ids) - CounErr
if(TotalCampStoped %in% c(2,3,4) & !(TotalCampStoped %% 100 %in% c(12,13,14))){
out_message <- "ads stoped"
} else if(TotalCampStoped %% 10 == 1 & TotalCampStoped %% 100 != 11){
out_message <- "ads stoped"
} else {
out_message <- "ads stoped"
}
# out message
packageStartupMessage(paste0(TotalCampStoped, " ", out_message))
packageStartupMessage(paste0("Total time: ", as.integer(round(difftime(Sys.time(), start_time , units ="secs"),0)), " sec."))
return(errors_id)}
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.