R Windows directory stuff

windows_dir

> path.expand('~')
[1] "C:/Users/shawntaylor/Documents"
> normalizePath(path.expand('~'))
[1] "C:\\Users\\shawntaylor\\Documents"
> wd = getwd()
> wd
[1] "C:/Users/shawntaylor/Documents/portalPredictions"
> path.expand(wd)
[1] "C:/Users/shawntaylor/Documents/portalPredictions"
> normalizePath(path.expand(wd))
[1] "C:\\Users\\shawntaylor\\Documents\\portalPredictions"
> normalizePath('.')
[1] "C:\\Users\\shawntaylor\\Documents\\portalPredictions"
>