R/types.castGeojson.R

In tableschema.r: Table Schema 'Frictionless Data'

#' @title Cast JSON object according to GeoJSON or TopoJSON spec
#' @description Cast JSON object according to GeoJSON or TopoJSON spec
#' @param format default is a geojson object as per the \href{https://geojson.org/}{GeoJSON spec} or
#'  topojson object as per the \href{https://github.com/topojson/topojson-specification/blob/master/README.md}{TopoJSON spec}
#' @param value GeoJSON to cast
#' @rdname types.castGeojson
#' @export
#' 
#' 
#' @seealso \href{https://specs.frictionlessdata.io//table-schema/#geojson}{Types and formats specifications}
#' 
types.castGeojson <- function(format, value) {
  
  if (!is.object(value)) {
    
    if (!is.character(value)) return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))
    
    value <- tryCatch( {
      
      value <- jsonlite::fromJSON(value)
    },
    
    warning = function(w) {
      
      return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))
      
    },
    
    error = function(e) {
      
      return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))
      
    },
    
    finally = {
      
    })
    
  }
  
  # if(value == config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r"))){
  #   return(value)
  # }
  
  if (format == "default") {
    
    value <- tryCatch( {
      
      path_geojson <- system.file("profiles/geojson.json", package = "tableschema.r")
      
      v <- jsonvalidate::json_validator(path_geojson)
      
      valid <- v(value,verbose = TRUE, greedy = TRUE, error = FALSE) # ./inst/profiles/geojson.json
      
      if (!isTRUE(valid)) return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))
      
      else return(value)
      
    },
    
    error = function(e) {
      
      return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))
      
    },
    
    finally = {
      
    })
    
  } else if (format == "topojson") {
    
    
    if ( !is_object(value) ) return(config::get("ERROR", file = system.file("config/config.yml", package = "tableschema.r")))  #!isPlainObject(value)
    
  }
  
  return(value)
}

# path_geojson <- system.file("profiles/geojson.json", package = "tableschema.r")
# path_table_schema <- system.file("profiles/table-schema.json", package = "tableschema.r")