Nothing
#' Get campaigns
#'
#' @param account_id your Linkedin Ad Account ID
#' @param test Searches for campaigns based on test or non-test status:
#' * True: for test campaigns
#' * False: for non-test campaigns If not specified, searches for both test and non-test campaigns.
#' @inheritParams lkd_get_accounts
#'
#' @return tibble with campaign metadata
#' @export
#'
lkd_get_campaigns <- function(
account_id = lkd_get_account_id(),
test = FALSE,
start = 0,
count = 1000
) {
resp <- lkd_make_request(
str_glue('adAccounts/{account_id}'),
path_append = 'adCampaigns',
params = list(
q = 'search',
search.test = test,
start = start,
count = count
)
) %>%
resp_body_json()
if (length(resp$elements) == 0) {
cli::cli_alert_warning("You don't have campaigns")
return(NULL)
}
resp_data <- tibble(camp = resp$elements) %>%
unnest_wider('camp') %>%
unnest_wider('dailyBudget', names_sep = '_') %>%
unnest_wider('unitCost', names_sep = '_')
resp_data
}
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.