echo %username%
system("echo %username%")
tools::toTitleCase(sub('\\.', ' ', unlist(strsplit(system("whoami", intern=TRUE), '\\\\'))[[2]]))