R/locations.R

In justinjm/googleCloudAutoMLTablesR: Google Cloud AutoML Tables API Into R

#' Lists information about the supported locations
#'
#' @param projectId GCP project Id to fetch a list of locations from
#'
#' @export
#'
#' @family loctions functions
gcat_list_locations <- function(projectId = gcat_project_get()) {

    url <- sprintf("https://automl.googleapis.com/v1beta1/projects/%s/locations",
                   projectId)

    f <- googleAuthR::gar_api_generator(url,
                                        "GET",
                                        # pars_args = rmNullObs(pars),
                                        data_parse_function = function(x) x)
    response <- f()

    out <- response$locations

    out

}

#' Get information about a location
#'
#' @param projectId GCP project id
#' @param locationId location of GCP resources, retrieved by
#' \link{gcat_list_locations}
#'
#' @export
#'
#' @family loctions functions
gcat_get_location <- function(projectId = gcat_project_get(),
                              locationId = gcat_region_get()) {

    locations <- gcat_list_locations(projectId = projectId)

    # change since subset doesn't like input same as column name?
    location_id <- locationId

    name <- subset(locations,
                   locationId == location_id,
                   select = c(name))

    url <- sprintf("https://automl.googleapis.com/v1beta1/%s",
                   name)

    f <- googleAuthR::gar_api_generator(url,
                                        "GET",
                                        data_parse_function = function(x) x)

    response <- f()

    out <- response

    structure(out, class = "gcat_location")

}