R/type_convert.R

In skgrange/threadr: Tools to Thread Pieces Of Data Analysis Together

#' Function to quickly apply \code{type.convert} to objects. 
#' 
#' @author Stuart K. Grange
#' 
#' @param x A vector or data frame. 
#' 
#' @return Vector or data frame, possibly with different data types.
#' 
#' @export
type_convert <- function(x) {
  
  # No longer used
  .Deprecated(msg = "`type_convert` is no longer available, please use `type.convert`.")
  
  # Vector
  if (class(x)[1] == "character") x <- type_converter(x)
  
  # If data frame, vectorise over variables
  if (any(class(x) %in% "data.frame")) {
    
    # Drop tbl_df
    x <- base_df(x)
    
    # Type conversion
    x[] <- lapply(x, type_converter)
    
  }
  
  return(x)
  
}


#' @export
#' 
#' @rdname type_convert
type_converter <- function(x) type.convert(as.character(x), as.is = TRUE)