我正在本地计算机上开发一个R脚本,并打算将来在服务器上使用。根据所使用的机器,脚本部分的初始设置略有不同,我想要实现的是使用R中的一些控制序列来评估一个或另一个init序列,这取决于某些环境度量而不是每次都改变剧本,比如说:
if( isServer() ) {
resultsDir <- "U:\\Share\\Results\\"
maxIterations <- 1000
} else {
resultsDir <- "D:\\Temp\\"
maxIterations <- 50
}
我在本地使用Win7,另一台机器是Win 2008 Server。
答案 0 :(得分:1)
您可以使用Sys.info
。在我的系统上:
Sys.info()
# sysname release version nodename machine </snip>
#"Windows" "7 x64" "build 7601, Service Pack 1" "***" "x86-64" </snip>
答案 1 :(得分:1)
get_hostname <- function(){
return(as.character(Sys.info()["nodename"]))
}
print(get_hostname()) #prints this computer's hostname