Exercise 4-9

whatever <- readRDS(file = "data/whatever.RDS")
attributes(whatever)

## $names
##  [1] "whatever" NA         NA         NA         NA         NA        
##  [7] NA         NA         NA         NA        
## 
## $value
## [1] "none"