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

3 lines
98 B
R

env_var <- ifelse(.Platform$OS.type == "windows", "COMPUTERNAME", "HOSTNAME")
Sys.getenv(env_var)