RでユーザーのホームディレクトリをOS非依存に取得する方法

Rでユーザーのホームディレクトリを取得する方法。
Mac, Linux, Windowsに対応。
MacとLinuxの両方に同じ解析用のデータをホームディレクトリの下の階層に保存していて、
MacとLinux両方でデータを解析する際に使ってます。
例えば、リモートのLinuxのサーバーで重めの計算をして、手元のPCでデータをまとめたり、可視化する場合とか。

RScript

> homeDir <- switch(Sys.info()[["sysname"]],
                    "Linux"   = paste0("/home/",    Sys.info()[["user"]]),
                    "Darwin"  = paste0("/Users/",   Sys.info()[["user"]]),
                    "Windows" = paste0("C:/Users/", Sys.info()[["user"]]) )
> homeDir
[1] "/Users/JeJeNeNo"
> setwd(paste(homeDir, "Directory", "For", "Analysis", sep="/"))