
middle_name(x)
middle_name(x) <- value
salutation
, first_name
, last_name
and suffix
for other accessors.
#Get a middle name
example_name <- "Mr Jim Toby Jeffries"
middle_name(example_name)
#Set a middle name
middle_name(example_name) <- "Richard"
Run the code above in your browser using DataLab