In maraevdima/rmytarget: Load Data from 'MyTarget API v2'

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

rmytarget - R ïàêåò äëÿ ðàáîòû ñ API MyTarget v2

Ïîäðîáíàÿ ðóññêîÿçû÷íàÿ äîêóìåíòàöèÿ íàõîäèòñÿ ïî ññûëêå.

Âèíüåòêè

Ïîìèìî îñíîâíîé äîêóìåíòàöèè ïàêåò ñîäåðæèò 2 âèíüåòêè:

rmytarget-auth - Àâòîîðèçàöèÿ â API MyTarget
rmytarget-intro - Ââåäåíèå â ðàáîòó ñ ïàêåòîì rmytarget

Äëÿ ïðîñìîòðà âèíüåòîê çàïóñòèòå â R îäíó èç ñëåäóþùèõ êîìàíä:

vignette('rmytarget-auth', package = 'rmytarget')

vignette('rmytarget-intro', package = 'rmytarget')

Ôóíêöèè ïàêåòà rmytarget

Íà äàííûé ìîìåíò â ïàêåòå rmytarget äîñòóïíî 5 ôóíêöèé:

myTarAuth - Àâòîðèçàöèÿ
myTarGetCampaignList - Çàãðóçêà ñïèñêà êàìïàíèé
myTarGetAdList - Çàãðóçêà ñïèñêà îáúÿâëåíèé
myTarGetClientList - Çàãðóçêà ñïèñêà êëèåíòîâ èç àãåíòñêîãî àêêàóíòà
myTarGetStats - Çàãðóçêà ñòàòèñòèêè ïî îáúÿâåíèÿì, ðåêëàìíûì êàìïàíèÿì èëè êëèåíòàì

Ïðèìåð ðàáîòû ñ ïàêåòîì rmytarget

# work with simple client account
# authorize by ad account
myTarAuth(login = "client_login")

# get campaing list
campaing <- myTarGetCampaignList(login = "client_login")

# get ads list
ads      <- myTarGetAdList(login = "client_login")

# load statistic
# load base stat by ads
old_data    <- myTarGetStats(date_from   = Sys.Date() - 7,
                             date_to     = Sys.Date(),
                             object_type = "banners",
                             object_id   = campaing$id,
                             login       = "client_login")

# load base, tps, and viral metrics by campaings
custom_data <- myTarGetStats(date_from   = Sys.Date() - 7,
                             date_to     = Sys.Date(),
                             object_type = "campaigns",
                             metrics     = c("base", "tps", "viral"),
                             stat_type   = "day",
                             login       = "client_login")

# load all metrics by campaigns
all_data <- myTarGetStats(date_from   = Sys.Date() - 7,
                          date_to     = Sys.Date(),
                          object_type = "campaigns",
                          metrics     = "all",
                          login       = "client_login")

# ========================
# work with agency account
# authorize by agency account
myTarAuth(login = "agency_login")

# load client list from agency account 
clients <- myTarGetClientList(login = "agency_login")

# load statistic by agency clients
client_stat <-  myTarGetStats(date_from   = Sys.Date() - 7,
                              date_to     = Sys.Date(),
                              object_id   = clients$id,
                              object_type = "users",
                              metrics     = "all",
                              login       = "agency_login")