R中如何实现自动弹出选择窗口？

zwdbordeaux

在和同事合作分析同一个数据的时候，因为系统不同，生成的csv文件一个为逗号","分割符，一个为分号“；”分割符，所以每次在共享同一个程序的时候都要手动更改 read.csv(xx.csv, sep=";") 或者read.csv(xx.csv, sep=",").

此外我们的工作目录也不一样，

WD1 <- setwd('Y:/1-PM/1-Manip/2009/QualitNble/RESULTS') # user1

WD2 <- setwd('D:/EXPdata/RESULTS/') # user2

现在就想在每次运行程序的时候自动弹出一个选择窗口，询问用户名称（user1 或者user2），然后在窗口中填入相应的user名称后，就可以自动选择是,还是；，是工作目录1还是工作目录2。

提前感谢！

皮皮米菲兔

只知道a=file.choose()可以用来交互式选择文件。

话说如果差异的来源是可以确定的话，那也可以在程序里面通过Sys.info()之类的来判断吧？

zwdbordeaux

回复第2楼的波波头一头：我也只是知道file.choose()!

不过你提到的Sys.info()确实可以解决部分问题。

<br />
user=Sys.info()["user"]<br />
if (user=="user1")<br />
{wd<-setwd('Y:/1-PM/1-Manip/2009/QualitNble/RESULTS') # user1<br />
don<-read.csv(xx.csv,sep=";")} else if (user=="user2"){</p>
<p>WD <- setwd('D:/EXPdata/RESULTS/') # user2<br />
don<-read.csv(xx.csv,sep=";")}<br />

</p>