R/cast-type.R

In QBRC/RODProt: An R Client for Interacting with Data Encoded in one of the 'Open Data Protocols' Standards.

#' Convert data type names
#' 
#' Convert the type names used in JSON Table Schema to their R equivalents.
#' @param type The JSON Table Schema type name.
#' @return The R type name.
#' @author Jeffrey D. Allen \email{Jeffrey.Allen@@UTSouthwestern.edu}
#' @export
cast_type <- function(type){	
	lapply(c(type), cast_single)	
}

cast_single <- function(type){	
	switch(type,
				 "integer" = "integer",
				 "number" = "numeric",
				 "string" = "character",
				 "boolean" = "logical"
	)	
}