R/fb_ads_ga_upload.R

In neugelb/neugelbtools: Various small Neugelb tools

#' fb_ads_ga_upload
#'
#' Upload your data to GA
#' @param fb_df The formatted data frame of advertisting data from Facebook, ready to upload
#' @param ga_property_id Your web property ID from Facebook; it should be formatted something like 'UA-'
#' @param dataset_id The custom data set ID
#' @param account_id The overall account ID (optional)
#' @param dataset_name The name of your dataset (optional)
#' @export

fb_ads_ga_upload <- function(fb_df,ga_property_id,dataset_id,account_id=NULL,dataset_name=NULL) {

  require(googleAnalyticsR)
  require(tidyverse)
  require(purrr)

  ga_auth()

  if (is_empty(account_id)==FALSE) {

    account <- ga_account_list() %>%
      tidycols() %>%
      filter(web_property_id == ga_property_id)

    account_id <- account %>%
      pull(account_id)

  }

  if (is_empty(dataset_id) == TRUE) {

    dataset_id <- ga_custom_datasource(account_id,ga_property_id) %>%
      filter(name == dataset_name) %>%
      pull(id)

  }

  message <- ga_custom_upload_file(account_id,ga_property_id,dataset_id,fb_df)

  print(message)

}