2 Comments
访客 *wangjh1984* @ 2008-09-30 09:15:45 写道:
程序很不完整,myPageTmp需要处理一下,可惜正则表达式很烂。。
程序调用的是用system调用curl命令,需要下载安装在path下。
另外不知道为什么不能提交Rcode=plot(1);plot(rnorm(100));plot(rnorm(100))这样的格式,Rweb把第一个";"后的内容全给截掉了。
mylist <- paste("curl",
"-A "Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.0.2) Gecko/2008091620 Firefox/3.0.2"",
"-d ",
""Rcode=plot(1)
plot(rnorm(100))
plot(rnorm(100))&Submit=Submit"",
"http://rweb.stat.umn.edu/cgi-bin/Rweb.cgi")
pageTmp <- system(mylist,intern=TRUE)
myPageTmp <- pageTmp[grep(".gif",pageTmp)]
谢谢!不过我的意思是直接在网页中实现,不调用R。写这个网页的目的就是为了让人不用安装R也可以获得图片(提交给Rweb去做),所以需要用HTML结合JavaScript或Ajax或DOM来做。
——原帖发布于 2008-09-30 12:01:26
访客 *wangjh1984* @ 2008-09-30 09:18:42 写道:
? 🙄 怎么程序里的"变成"了。。。
Sign in to join the discussion
Sign in with GitHub