# Create a temporary list for demonstration
modelOption <- list(model1 = "model_1", model2 = "model_2", model3 = "model_3")
# Set the option
setOption(modelOption$model1)
# Retrieve the option
getOption("modelOption") # Returns "model_1"
# Clean up
options(modelOption = NULL)
Run the code above in your browser using DataLab