# NOT RUN {
# Take subset of data
df1 <- mtcars[1:10, c("mpg", "cyl") ]
# Print current state
print(df1)
# Assign justification
justification(df1) <- list(mpg = "left", cyl = "center")
widths(df1) <- list(mpg = 12, cyl = 10)
format(df1)
# Display justification
justification(df1)
widths(df1)
# }
Run the code above in your browser using DataLab