A better solution nowadays is to use saveRDS to save and readRDS to read:
saveRDS(model, "model.rds")
my_model <- readRDS("model.rds")
This lets you to choose a new name for the object (you don't need to remember the name you used when you saved it)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…