# Store original setting (without messages)
original_due_date <- getOption("pregnancy.due_date")
# Check current setting
get_due_date()
# Set due date and check again
set_due_date("2025-09-15")
get_due_date()
# Restore original setting (without messages)
options(pregnancy.due_date = original_due_date)
Run the code above in your browser using DataLab