# NOT RUN {
x <- c("a", "b", "c")
as.empty(x)
class(as.empty(x)) # still a character
x <- factor(LETTERS)
as.empty(x) # levels are kept
class(as.empty(x)) # still a factor
x <- data.frame(x = 1:3, y = 2:4)
as.empty(x)
# }
Run the code above in your browser using DataLab