## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  eval = FALSE,
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
#  # подключаем пакет
#  library(ryandexdirect)
#  
#  # запрашиваем список ключевых слов
#  kw <- yadirGetKeyWords()
#  
#  # запрашиваем ставки
#  bids  <- yadirGetKeyWordsBids(kw$Id)
#  
#  # запрашиваем ставки и данные торго на поиске
#  bids_search <- yadirGetKeyWordsBids(kw$Id,
#                                      AuctionBids = "search")
#  
#  # запрашиваем ставки и данные торго в сетях
#  network_bids <- yadirGetKeyWordsBids(kw$Id,
#                                       AuctionBids = "network")

## -----------------------------------------------------------------------------
#  ## $`2874076041280427473`
#  ## $`2874076041280427473`[[1]]
#  ## $`2874076041280427473`[[1]]$KeywordId
#  ## [1] 6402098519
#  ##
#  ##
#  ## $`2874076041280427473`[[2]]
#  ## $`2874076041280427473`[[2]]$KeywordId
#  ## [1] 6402098520

## -----------------------------------------------------------------------------
#  ## $`2874442110113212447`
#  ## $`2874442110113212447`[[1]]
#  ## $`2874442110113212447`[[1]]$Warnings
#  ## $`2874442110113212447`[[1]]$Warnings[[1]]
#  ## $`2874442110113212447`[[1]]$Warnings[[1]]$Code
#  ## [1] 10160
#  ##
#  ## $`2874442110113212447`[[1]]$Warnings[[1]]$Message
#  ## [1] "Ставка не будет применена"
#  ##
#  ## $`2874442110113212447`[[1]]$Warnings[[1]]$Details
#  ## [1] "Ставки на сети не будут изменены, так как отключены показы на сети"
#  ##
#  ##
#  ##
#  ## $`2874442110113212447`[[1]]$Errors
#  ## $`2874442110113212447`[[1]]$Errors[[1]]
#  ## $`2874442110113212447`[[1]]$Errors[[1]]$Code
#  ## [1] 9600
#  ##
#  ## $`2874442110113212447`[[1]]$Errors[[1]]$Message
#  ## [1] "Поле не соответствует установленной стратегии"
#  ##
#  ## $`2874442110113212447`[[1]]$Errors[[1]]$Details
#  ## [1] "Для стратегии с ручным управлением ставками на поиске поле SearchBid должно быть указано"
#  ##
#  ##
#  ##
#  ##
#  ## $`2874442110113212447`[[2]]
#  ## $`2874442110113212447`[[2]]$Warnings
#  ## $`2874442110113212447`[[2]]$Warnings[[1]]
#  ## $`2874442110113212447`[[2]]$Warnings[[1]]$Code
#  ## [1] 10160
#  ##
#  ## $`2874442110113212447`[[2]]$Warnings[[1]]$Message
#  ## [1] "Ставка не будет применена"
#  ##
#  ## $`2874442110113212447`[[2]]$Warnings[[1]]$Details
#  ## [1] "Ставки на сети не будут изменены, так как отключены показы на сети"
#  ##
#  ##
#  ##
#  ## $`2874442110113212447`[[2]]$Errors
#  ## $`2874442110113212447`[[2]]$Errors[[1]]
#  ## $`2874442110113212447`[[2]]$Errors[[1]]$Code
#  ## [1] 9600
#  ##
#  ## $`2874442110113212447`[[2]]$Errors[[1]]$Message
#  ## [1] "Поле не соответствует установленной стратегии"
#  ##
#  ## $`2874442110113212447`[[2]]$Errors[[1]]$Details
#  ## [1] "Для стратегии с ручным управлением ставками на поиске поле SearchBid должно быть указано"

## -----------------------------------------------------------------------------
#  !..Error: Для стратегии с ручным управлением ставками на поиске поле SearchBid должно быть указано
#  !..Error: Для стратегии с ручным управлением ставками на поиске поле SearchBid должно быть указано
#  ...Warning: Ставки на сети не будут изменены, так как отключены показы на сети
#  ...Warning: Ставки на сети не будут изменены, так как отключены показы на сети

## -----------------------------------------------------------------------------
#  # подключаем пакет
#  library(ryandexdirect)
#  
#  # запрашиваем список рекламных кампаний
#  camp <- yadirGetCampaign()
#  
#  # меняем ставки
#  setbid     <- yadirSetKeyWordsBids(CampaignIds = camp$Id[1],
#                                     SearchBid   = 9)

## -----------------------------------------------------------------------------
#  # подключаем пакет
#  library(ryandexdirect)
#  
#  # запрашиваем список ключевых слов
#  kw <- yadirGetKeyWords()
#  
#  # меняем ставки
#  autosetbids <- yadirSetAutoKeyWordsBids(KeywordIds = kw$Id,
#                                          TargetTrafficVolume = 50)

## -----------------------------------------------------------------------------
#  # подключаем пакет
#  library(ryandexdirect)
#  library(magrittr)
#  
#  # загрузкса скписка ключевых слов и ставок по ним с помощью пайплайна
#  kw_bids <- yadirGetKeyWords() %>%
#             yadirGetyadirGetKeyWordsBids()
#  
#  # загрузкса скписка групп объявлений с типом "TEXT_AD_GROUP" и ставок по ключевым словам входящим в эти группы
#  autosetbids <-  yadirGetAdGroups(Types = "TEXT_AD_GROUP")  %>%
#                  yadirGetyadirGetKeyWordsBids(AdGroupIds = .)