RosettaCodeData/Task/Hostname/R/hostname-3.r

3 lines
98 B
R
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
env_var <- ifelse(.Platform$OS.type == "windows", "COMPUTERNAME", "HOSTNAME")
Sys.getenv(env_var)