R/unformat.R

In wilsonfreitas/transmute: Trasnform data in a bunch using a rule based framework

Defines functions unfactor unformat .unformat

#' @export
.unformat <- function(x, f) {
	x <- lapply(x, f)
	as.data.frame(x, stringsAsFactors=FALSE)
}

#' @export
unformat <- function(x) .unformat(x, as.character)

#' @export
unfactor <- function(x) .unformat(x, function(x) {
	if (is.factor(x))
		as.character(x)
	else
		x
})