oRion: 'oRion' Integrate R and Orion.

In JohnCoene/oRion: Integrate R & Cheetah Mobile Orion

Description

Interact with Cheetah Mobile's Orion Platform from your R console.

Functions

Families.

OAuth

• orionOAuth

Get

• getReport

show family Show items

• showAd

• showAdset

• showAdsetAudience

• showCampaign

• showObject

create family Create items

• createAd

• createAdset

• createCampaign

• createImage

• createObject

delete family Create items

• deleteAd

• deleteAdset

• deleteCampaign

• deleteAudience

• deleteObject

dict family Fetch dictionaries

• dictCity

• dictCountry

• dictDevice

• dictInterest

• dictLanguage

• dictOS

• dictState

update family Update items

• updateAd

• updateAdset

• updateCampaign

• updateObject

list family List items

• listAds

• listAdsets

• listCampaigns

• listImages

• listObjects

helpers List items

• budgetType

• objective

• appType

• webType

• landingPage

• bidType

• appShowType

• deliveryType

• gender

• age

• netType

• buttonText

• switchIt

Author(s)

John Coene [e-mail]

Examples

## Not run: 
# authenticate
orionOAuth(client.id = 0000,
           client.secret = "0x00000000x00x0x000xxx0000x0xx0")

# set body of campaign
camp <- list(name = "test",
             budget_type = "daily",
             budget_daily = "1000", 
             pkg_name = "test",
             objective = objective("installs"), 
             app_type = "2",
             web_type = "1", 
             landing_page = landingPage("googlePlay"))
             
# create campaign
createCampaign(camp)

# list campaigns
campaigns <- listCampaigns(n = 100)

# pick two random countries                       
locations <- paste0(sample(dictCountry()$code, 1), "|", 
                    sample(dictCountry()$code, 1))
                      
# create audience template to use in adset                        
createAudience(body = list(
   audience_template_name = "test",
   audience_template_desc = "test template",
   country = locations, 
   language = sample(dictLanguage()$code, 1),
   net_type = netType("wifi")),
   interest = dictInterst()$pid[1])

# list audience template
audiences <- listAudiences(n = 50)

# create adset
createAdset(body = list(
   name = "testAdset",
   bid_type = appShowType("CPI"),
   unit_price = 1000,
   budget_lifetime = 10000,
   campaign_id = sample(camps$id, 1),
   audience_create_way = 2,
   app_show_type = appShowType("newsfeed"),
   audience_template_id = sample(audiences$id, 1),
   click_url = "http://app.myApp.io"))

# list adsets
adsets <- listAdsets()

# upload image to use in ad
createImage(file = paste0(.libPaths(), "/png/img/Rlogo.png"))

# list images
images <- listImages()

# define ad settings
body <- list(
   adset_id = adsets$id[1],
   name = "testAd",
   icon_url = images$thumb[1],
   title = "Download oRion",
   desc = "Download oRion and interact with Orion from your R console",
   button_text = buttonText("install"),
   image_url = images$local_url[1])
   
# post ad
createAd(body = body)

# list ads
ads <- listAds()

# update ad name
update <- updateAd(ad.id = ad$id[1], body = list(name = "New Ad Name"))
               
# show updated ad
showAd(ad.id = ads$id[1])

# map ads
map <- map(campaigns, adsets, ads, audiences)
g <- igraph::graph.data.frame(network[,3:4], directed = TRUE)
plot(g)

# get data
# get daily campaign impressions and conversions for the past 7 days
dat <- getReport(column = c("impression", "conversion"), 
                 group.by = c("datetime", "campaign"), 
                 start = Sys.Date() - 7)

## End(Not run)

JohnCoene/oRion documentation built on June 13, 2019, 12:44 p.m.