vignettes/colclasses.R

In bfatemi/easydata: Utility functions for easy data wrangling

## ------------------------------------------------------------------------
library(data.table)
library(easydata)

# Create example data
dt <- data.table(A = as.factor(c(1:2, "-", 4:5)),
                 B = rep(2.0, 5),
                 C = as.factor(c(1, "garbage", 2, "", 3)),
                 D = as.factor(rep(999, 5)),
                 E = letters[1:5],
                 F = rep("2020-01-22", 5))
dt

# print column classes
pcc(dt) 

## ---- error=TRUE---------------------------------------------------------
ClassMorph(dt, "factor", "integer") #results in ERROR

## ------------------------------------------------------------------------
ClassMorph(dt, "factor", "integer", force = TRUE) # no error
pcc(dt)

## ---- results='hold'-----------------------------------------------------
newdt <- ClassMorph(dt, "numeric", "factor", copy = TRUE)

identical(pcc(dt), pcc(newdt))    # classes are not equal
pcc(dt)                      # confirm correct conversion
pcc(newdt)

## ---- results='hold'-----------------------------------------------------
pcc(dt)
newdt <- ClassMorph(dt, "numeric", "factor")

identical(pcc(dt), pcc(newdt))
identical(dt, newdt)