Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
eval = FALSE,
comment = "#>"
)
## ---- eval = TRUE, results = "asis", echo=FALSE-------------------------------
migrate_table <- data.frame(
operation = c("Authorization", "Metadata request", "Report request"),
radwords = c("doAuth()", "reports(), metrics()", "statement() + getData()"),
rgoogleads = c("gads_auth_configure() + gads_auth()", "gads_get_metadata(), gads_get_fields()", "gads_get_report()")
)
DT::datatable(
migrate_table,
colnames = c("Operation", "RAdwords", "rgoogleads"),
options = list(pageLength = 5, dom = 'tip'))
## ---- eval = TRUE, results = "asis", echo=FALSE-------------------------------
library(dplyr)
library(rvest)
reports_table <- data.frame(
adwords = c("ACCOUNT_PERFORMANCE_REPORT", "AD_PERFORMANCE_REPORT", "ADGROUP_PERFORMANCE_REPORT", "AGE_RANGE_PERFORMANCE_REPORT",
"AUDIENCE_PERFORMANCE_REPORT", "AUTOMATIC_PLACEMENTS_PERFORMANCE_REPORT", "BID_GOAL_PERFORMANCE_REPORT", "BUDGET_PERFORMANCE_REPORT",
"CALL_METRICS_CALL_DETAILS_REPORT", "CAMPAIGN_AD_SCHEDULE_TARGET_REPORT", "CAMPAIGN_CRITERIA_REPORT", "CAMPAIGN_PERFORMANCE_REPORT",
"CAMPAIGN_SHARED_SET_REPORT", "CAMPAIGN_LOCATION_TARGET_REPORT", "CLICK_PERFORMANCE_REPORT", "DISPLAY_KEYWORD_PERFORMANCE_REPORT"),
ads = c("customer", "ad_group_ad", "ad_group", "age_range_view",
"campaign_audience_view, ad_group_audience_view", "group_placement_view", "bidding_strategy", "campaign_budget",
"call_view", "ad_schedule_view", "campaign_criterion", "campaign",
"campaign_shared_set", "location_view", "click_view", "display_keyword_view"))
# reports <- read_html("https://developers.google.com/google-ads/api/docs/migration/mapping") %>%
# html_element(css = ".responsive") %>%
# html_table(header = TRUE)
DT::datatable(
reports_table,
colnames = c("Тип отчёта в Google AdWords API", "Ресурс в Google Ads API"),
options = list(pageLength = 20)
)
## -----------------------------------------------------------------------------
# library(RAdwords)
#
# # auth
# adwords_auth <- doAuth()
#
# # create request
# query <- statement(
# select = c('CampaignName',
# 'Date',
# 'Clicks'),
# report = 'CAMPAIGN_PERFORMANCE_REPORT',
# start = '2021-06-01',
# end = '2021-06-30'
# )
#
# # data import
# data1 <- getData(
# clientCustomerId = 'xxx-xxx-xxxx',
# statement = query,
# google_auth = adwords_auth
# )
#
## -----------------------------------------------------------------------------
# library(rgoogleads)
#
# # auth
# gads_auth_configure(path = 'D:/ga_auth/app.json')
# gads_auth(email = 'me@gmail.com')
#
# # data import
# data2 <- gads_get_report(
# resource = 'campaign',
# fields = c('campaign.name',
# 'segments.date',
# 'metrics.clicks'),
# date_from = '2021-06-01',
# date_to = '2021-06-30',
# customer_id = 'xxx-xxx-xxxx',
# login_customer_id = 'xxx-xxx-xxxx'
# )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.