Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(ryandexdirect)
- library(foreach)
- library(iterators)
- library(tidyr)
- library(dplyr)
- my_token <- "******************************"
- my_login <- "login_1"
- campList <- yadirGetCampaignList(Logins = my_login, Token = my_token)
- FullStat <- yadirGetReport(ReportType = "CUSTOM_REPORT",
- DateRangeType = "ALL_TIME",
- #DateFrom = NULL,
- #DateTo = NULL,
- FieldNames = c("Date","AdNetworkType","CampaignId","TargetingLocationId","TargetingLocationName","AdId","CampaignName","AdGroupId","Placement","Ctr","AdGroupName","Criteria","Bounces","BounceRate","AvgCpc","Clicks","Cost"),
- FilterList = c("Clicks GREATER_THAN 0"),
- IncludeVAT = "NO",
- IncludeDiscount = "NO",
- Login = my_login,
- Token = my_token)
- AdClicks <- yadirGetReport(ReportType = "CUSTOM_REPORT",
- DateRangeType = "ALL_TIME",
- #DateFrom = NULL,
- #DateTo = NULL,
- FieldNames = c("Date","AdId","Clicks"),
- FilterList = c("Clicks GREATER_THAN 0"),
- IncludeVAT = "NO",
- IncludeDiscount = "NO",
- Login = my_login,
- Token = my_token)
- my_ads <- yadirGetAds(CampaignIds = campList$Id,
- Login = my_login,
- Token = my_token)
- my_login <- "login_2"
- campList <- yadirGetCampaignList(Logins = my_login, Token = my_token)
- FullStat2 <- yadirGetReport(ReportType = "CUSTOM_REPORT",
- DateRangeType = "ALL_TIME",
- #DateFrom = NULL,
- #DateTo = NULL,
- FieldNames = c("Date","AdNetworkType","CampaignId","TargetingLocationId","TargetingLocationName","AdId","CampaignName","AdGroupId","Placement","Ctr","AdGroupName","Criteria","Bounces","BounceRate","AvgCpc","Clicks","Cost"),
- FilterList = c("Clicks GREATER_THAN 0"),
- IncludeVAT = "NO",
- IncludeDiscount = "NO",
- Login = my_login,
- Token = my_token)
- my_login <- "login_3"
- campList <- yadirGetCampaignList(Logins = my_login, Token = my_token)
- FullStat3 <- yadirGetReport(ReportType = "CUSTOM_REPORT",
- DateRangeType = "ALL_TIME",
- #DateFrom = NULL,
- #DateTo = NULL,
- FieldNames = c("Date","AdNetworkType","CampaignId","TargetingLocationId","TargetingLocationName","AdId","CampaignName","AdGroupId","Placement","Ctr","AdGroupName","Criteria","Bounces","BounceRate","AvgCpc","Clicks","Cost"),
- FilterList = c("Clicks GREATER_THAN 0"),
- IncludeVAT = "NO",
- IncludeDiscount = "NO",
- Login = my_login,
- Token = my_token)
- my_login <- "login_4"
- campList <- yadirGetCampaignList(Logins = my_login, Token = my_token)
- FullStat4 <- yadirGetReport(ReportType = "CUSTOM_REPORT",
- DateRangeType = "ALL_TIME",
- #DateFrom = NULL,
- #DateTo = NULL,
- FieldNames = c("Date","AdNetworkType","CampaignId","TargetingLocationId","TargetingLocationName","AdId","CampaignName","AdGroupId","Placement","Ctr","AdGroupName","Criteria","Bounces","BounceRate","AvgCpc","Clicks","Cost"),
- FilterList = c("Clicks GREATER_THAN 0"),
- IncludeVAT = "NO",
- IncludeDiscount = "NO",
- Login = my_login,
- Token = my_token)
Add Comment
Please, Sign In to add comment