R/gft_describe.R

In jpshanno/gft: Access Google Fusion Tables API (v2)

#' Return Description Information For Fusion Table
#'
#' Retreive desciptive information on a specific Fusion Table.
#'
#' @param table.id A string represnting a Google Fustion Table ID
#' @param ... Named arguments specifying path and file to direct
#'   \link{gft_get_token} to the cached OAuth token or a token object
#'
#' @return A named list containing table and column information
#' @export
#'
gft_describe <-
  function(table.id,
           ...){

    if(is.null(table.id) || !is.character(table.id)){
      stop("table.id must be NULL or a character vector representing a fusion table ID. Run gft_tables() to find table IDs")}

    token <- gft_get_token(...)

    url <- paste0("https://www.googleapis.com/fusiontables/v2/tables/", table.id)

    response <-
      httr::GET(url,
                httr::config(token = token))

    if(httr::status_code(response) == 200){
      table_info <-
        jsonlite::fromJSON(httr::content(response,
                                         type = "text",
                                         encoding = "UTF-8"))
      return(table_info)
    } else {
      stop("Something went wrong and the table was returned.")
    }
  }