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

## ----setup--------------------------------------------------------------------
#  library(ryandexdirect)

## -----------------------------------------------------------------------------
#  s_ws_rep <- yadirGetWordStatReport(c('купить смартфон',
#                                       'купить сотовый телефон',
#                                       'купить мобильный',
#                                       'samsung -(серого цвета)'),
#                                     Login = "selesnow")

## -----------------------------------------------------------------------------
#  # Что искали с заданными ключевыми словами
#  s_ws_rep$SearchedWith
#  s_ws_rep[['SearchedWith']]
#  
#  # Запросы, похожие на заданные ключевые слова
#  s_ws_rep$SearchedAlso
#  s_ws_rep[['SearchedAlso']]
#  

## -----------------------------------------------------------------------------
#  library(dplyr)
#  
#  # запрашиваем справочник регионов
#  regions <- yadirGetDictionary(Login = "selesnow")
#  
#  # оставляем толлько нужные регионы
#  rep_regions <- regions %>%
#                    filter(GeoRegionName %in% c("Москва",
#                                                "Санкт-Петербург",
#                                                "Екатеринбург",
#                                                "Владивосток"))
#  
#  # запрашиваем отчёт
#  reg_ws <- yadirGetWordStatReport(Phrases = c('купить смартфон -xiaomi',
#                                               'купить xiaomi'),
#                                   GeoID   = rep_regions$GeoRegionId,
#                                   Login   = "selesnow")

## -----------------------------------------------------------------------------
#  library(dplyr)
#  
#  # запрашиваем справочник регионов
#  regions <- yadirGetDictionary(Login = "selesnow")
#  
#  # получаем идентификатор России
#  regions <- regions %>%
#    filter(GeoRegionName %in% c("Россия"))
#  
#  # получаем идентификатор минус регионов и помечаем их минусом
#  minus_regions <- regions %>%
#    filter(GeoRegionName %in% c("Москва",
#                                "Санкт-Петербург",
#                                "Екатеринбург",
#                                "Владивосток")) %>%
#    mutate(GeoRegionId = paste0("-", GeoRegionId))
#  
#  # запрашиваем прогноз с результататми торгов
#  forecast <- yadirGetForecast2(Phrases = c('купить смартфон -xiaomi',
#                                           'купить xiaomi',
#                                           'самсунг -(серого цвета)'),
#                               GeoID   = c(regions$GeoRegionId, minus_regions$GeoRegionId),
#                               AuctionBids = 'Yes',
#                               Login   = "selesnow")