R/triggers.R

In IronistM/googleTagManageR: Interact with the Google Tag Manager API

#' Get triggers list
#'
#' @details
#' @param accountId accountId to request
#' @param containerId containerId to request
#' @return a list of triggers
#' @importFrom googleAuthR gar_api_generator
#' @family get functions
#' @export
#'
gtm_triggers_list <- function(accountId, containerId) {
  url <-
    paste0(
      "https://www.googleapis.com/tagmanager/v1/accounts/",
      accountId,
      "/containers/",
      containerId,
      "/triggers"
    )
  # tagmanager.triggers.list
  f <-
    googleAuthR::gar_api_generator(
      url,
      "GET",
      data_parse_function = function(x)
        x
    )
  f()
}
#' Get a triggers details
#'
#' @details
#' @param accountId accountId to request
#' @param containerId containerId to request
#' @param triggerId triggerId to request
#' @return a daa frame of trigger detials
#' @importFrom googleAuthR gar_api_generator
#' @family get functions
#' @export
#'
gtm_trigger <- function(accountId, containerId, triggerId) {
  url <-
    paste0(
      "https://www.googleapis.com/tagmanager/v1/accounts/",
      accountId,
      "/containers/",
      containerId,
      "/triggers/",
      triggerId
    )
  # tagmanager.triggers.get
  f <-
    googleAuthR::gar_api_generator(
      url,
      "GET",
      data_parse_function = function(x)
        x
    )
  f()
}