if(!file.exists("saved.RData"){
    savethis <- c(1,2,3,4)
    save(savethis, file="saved.RData")
}
if(file.exists("saved.RData"){
    load("saved.RData")
}