if (FALSE) {
token <- "YOURTOKEN"
account_id <- "act_20846447"
# BASIC 1: Create and return data for a new prediction
basic1 <- fb_rf(token, account_id, destination_ids = 187071108930, countries = "AR")
# BASIC 2: Fetch data for an existing prediction ID
basic2 <- fb_rf(token, account_id, prediction = 6317720998974)
# ADVANCED (Fully custom prediction)
advanced <- fb_rf(token, account_id,
objective = "REACH",
days = 28,
budget = 2000000,
destination_ids = c(187071108930, 1142958119078556),
age_min = 15,
age_max = 65,
genders = 2,
countries = "MX",
publisher_platforms = c(
"facebook",
"instagram",
#' audience_network',
"messenger"
),
# interests_ids = NA,
facebook_positions = c(
"feed",
#' instant_article',
"marketplace",
"video_feeds",
"story",
"search",
"instream_video"
),
instagram_positions = c(
"stream",
"story",
"explore"
),
# audience_network_positions = c(
# 'classic',
# 'instream_video')
messenger_positions = c(
"messenger_home",
"sponsored_messages",
"story"
),
device_platforms = c(
"mobile",
"desktop"
)
)
}
Run the code above in your browser using DataLab