R/unformat.R

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
})
wilsonfreitas/transmute documentation built on June 23, 2020, 12:03 p.m.