# NOT RUN {
df <- data.frame(letter = letters[1:5],
number = runif(5),
stringsAsFactors = FALSE)
toLatex(df,
col.handlers = list(letter = toupper),
class.handlers = list(numeric = function(x) format(x, digits = 4)),
eol = "\\[1ex]")
cat(toLatex(df,
col.handlers = list(letter = toupper),
class.handlers = list(numeric = function(x) format(x, digits = 4)),
eol = "\\[1ex]"), sep = "\n")
# }
Run the code above in your browser using DataLab