Copied from Hadley Wickham's rappdir package at his suggestion. The rappdir package currently does not export this function
get_os()
Operating system name (character string).