# Store original setting (without messages)
original_person <- getOption("pregnancy.person")
# Check current setting
get_person()
# Set to first person (using string)
set_person("I")
get_person()
# Set to second person (using number)
set_person(2)
get_person()
# Set to a specific name
set_person("Sarah")
get_person()
# Restore original setting (without messages)
options(pregnancy.person = original_person)
Run the code above in your browser using DataLab