R/fb_activate_campaign.R

In essentialols/fbsamplR: fbsamplR

# Activate (unpause) campaign

fb_activate_campaign <- function(access_token,
                              campaign_id){
  url <- paste0("https://graph.facebook.com/v12.0/", campaign_id)
  form_content <- list(status = "ACTIVE",
                       access_token = access_token)
  response <- POST(url, body = form_content)
  return(response)
}