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

## ----eval=FALSE---------------------------------------------------------------
# # данные для загрузки
# expense <- data.frame(Date        = c("2020-06-01",
#                                       "2020-06-02"),
#                       UTMSource   = c("test_s_1",
#                                       "test_s_2"),
#                       Expenses    = c(88.12,
#                                       92.11),
#                       UTMMedium   = c("cpc",
#                                       "cpm"),
#                       UTMCampaign = c("camp1",
#                                       "camp2"),
#                       UTMTerm     = c("term1",
#                                       "term2"),
#                       UTMContent  = c("cont1",
#                                       "cont2"),
#                       Currency    = c("RUB",
#                                       "RUB"),
#                       Clicks      = c(11, 15))
# 
# # отправка данных в Яндекс.Метрику
# rym_upload_expense(counter = 11111,
#                    data    = expense,
#                    login   = 'yandex_login',
#                    token.path = "D:/packlab/rym")
# 
# # Удаление данных из Яндекс.Метрики
# rym_delete_uploaded_expense(counter = 11111,
#                             data    = expense,
#                             login   = 'yandex_login',
#                             token.path = "D:/packlab/rym")
# 
# # получение списка загрузок
# loaded <- rym_get_uploadings_expense(counter = 11111,
#                                      login   = 'yandex_login',
#                                      token.path = "D:/packlab/rym")
#