data <- data.frame(x = c("1", "2", "3"),
y = c("foo", "bar", "foo"),
z = 4:6)
# ERROR
# data + 1
numData <- char2num.data.frame(data)
numData + 1
if(interactive()) {
s <- l_serialaxes(iris)
data <- s["data"]
# it is a character data frame
data[1,1]
numData <- char2num.data.frame(data)
numData[1,1]
}
Run the code above in your browser using DataLab