# Take subset of data
df1 <- mtcars[1:5, c("mpg", "cyl") ]
# Print current state
print(df1)
# mpg cyl
# Mazda RX4 21.0 6
# Mazda RX4 Wag 21.0 6
# Datsun 710 22.8 4
# Hornet 4 Drive 21.4 6
# Hornet Sportabout 18.7 8
# Assign widths
widths(df1) <- list(mpg = 12, cyl = 10)
# Display formatted data
fdata(df1)
# mpg cyl
# Mazda RX4 21.0 6
# Mazda RX4 Wag 21.0 6
# Datsun 710 22.8 4
# Hornet 4 Drive 21.4 6
# Hornet Sportabout 18.7 8
# View assigned widths
widths(df1)
# $mpg
# [1] 12
#
# $cyl
# [1] 10
# Clear widths
widths(df1) <- NULL
# Confirm widths are cleared
widths(df1)
# list()
Run the code above in your browser using DataLab