source R dumpfile in win R session

forRprofile.R

rs <- function() { 
    dumpfile <- "~/.rdump"
    dump <- readLines(dumpfile)
    cat(paste0("---> ", dump[1], " ... ", tail(dump, 1), "\n"))
    source(dumpfile, echo = TRUE)
    system("rtobottom")
}