radwords-migration-guide.R
In r4googleads: 'Google Ads API' Interface

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

## ----eval=FALSE,message=FALSE, warning=FALSE----------------------------------
#  install.packages("r4googleads")

## ----eval=FALSE---------------------------------------------------------------
#  remotes::install_github("banboo-data/r4googleads")

## ----eval=FALSE---------------------------------------------------------------
#  google_auth <- doAuth()

## ---- eval=FALSE--------------------------------------------------------------
#  library(r4googleads)
#  google_auth <- authenticate()

## ----eval=FALSE---------------------------------------------------------------
#  body <- statement(select = c('CampaignName', 'Clicks', 'Cost'),
#                    report = "CAMPAIGN_PERFORMANCE_REPORT",
#                    start = "2022-01-01",
#                    end = "2022-01-10")
#  
#  data <- getData(clientCustomerId = 'XXX-XXX-XXXX', #use Adwords Account Id (MCC Id will not work)
#                  google_auth = google_auth,
#                  statement = body)
#  

## ----eval=FALSE---------------------------------------------------------------
#  sql_query <- "SELECT campaign.name, metrics.clicks, metrics.cost_micros
#                FROM campaign
#                WHERE segments.date BETWEEN '2022-01-01' AND '2022-01-10'
#                AND metrics.impressions > 0
#                PARAMETERS include_drafts=true"
#  
#  query_service <- googleAdsSearch(
#    aid = 'XXX-XXX-XXXX', # Google Ads Accountr ID
#    query = sql_query,
#    api_version = 'v9'
#  )
#  
#  data <- query_google_ads(
#    mcc_id = 'XXX-XXX-XXX', # Google Ads My Client Center ID
#    google_auth = google_auth,
#    service = query_service,
#    raw_data = F
#  )
#  

## ----eval=FALSE---------------------------------------------------------------
#  tbl_schema_service = googleAdsFields(tbl = "campaign", api_version = 'v9')
#  
#  tbl_schema <- query_google_ads(
#    mcc_id = 'XXX-XXX-XXXX',
#    google_auth = tbl_schema_service,
#    service = my_service_2,
#    raw_data = F
#  )
#