# Take subset of data
df1 <- mtcars[1:10, c("mpg", "cyl") ]
# Print current state
print(df1)
# Assign descriptions
descriptions(df1) <- list(mpg = "Miles per Gallon", cyl = "Cylinders")
# Display descriptions
descriptions(df1)
# Clear descriptions
descriptions(df1) <- NULL
# Confirm descriptions are cleared
descriptions(df1)
Run the code above in your browser using DataLab