一个可能的答案
$ query <- paste0('evalServer(con,"head(iris[iris$Species==\'', value,'\',])")')
$ eval(parse(text=query))
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5.0 3.6 1.4 0.2 setosa
6 5.4 3.9 1.7 0.4 setosa
这做工作,但它是一种拨号的...该代码是非常混乱和难以阅读。
最终的解决方案:
我最终修改/简化evalServer
。此版本只接受一个字符串与表达在服务器
evalServer2 <- function (con, expr)
{
if(!is.character(expr)) stop("expr must be a character string containing the expression to evaluate in the server.")
cat("..Last.value <- try(eval(parse(text = \"", expr, "\"))); .f <- file(); dump(\"..Last.value\", file = .f); flush(.f); seek(.f, 0); cat(\"\\n<<<startflag>>>\", gsub(\"<pointer: [0-9a-fx]+>\", \"NULL\", readLines(.f)), \"<<<endflag>>>\\n\", sep = \"\\n\"); close(.f); rm(.f, ..Last.value); flush.console()\n",
file = con, sep = "")
objdump <- ""
endloc <- NULL
while (!length(endloc)) {
obj <- readLines(con, n = 1000, warn = FALSE)
if (!length(obj)) {
Sys.sleep(0.01)
next
}
endloc <- grep("<<<endflag>>>", obj)
if (length(endloc))
obj <- obj[0:(endloc[length(endloc)] - 1)]
objdump <- c(objdump, obj)
}
startloc <- grep("<<<startflag>>>", objdump)
if (!length(startloc))
stop("Unable to find <<<startflag>>>")
objdump <- objdump[-(1:startloc[length(startloc)])]
nospace <- grep("[^ ]$", objdump)
nospace <- nospace[nospace < length(objdump)]
for (i in rev(nospace)) {
objdump[i] <- paste(objdump[i], objdump[i + 1], sep = "")
objdump[i + 1] <- ""
}
objcon <- textConnection(objdump)
on.exit(close(objcon))
source(objcon, local = TRUE, echo = FALSE, verbose = FALSE)
return(..Last.value)
}
允许评估:
> x <- "5 + 4"
> evalServer2(con, x)
[1] 9
相反,evalServer
将检索一个名为x
变量存储在R服务器
> evalServer(con, x, 23)
[1] TRUE
> evalServer(con, x)
[1] 23
> evalServer2(con, "x")
[1] 23
看看[Rserve](http://www.rforge.net/Rserve/)。还有一个[php库](https://github.com/cturbelin/rserve-php)。我认为它会比'svSocket'更好地为你服务,因为它实际上是作为GUI后端连接的。另外,既然你熟悉R,为什么不使用Shiny? – hrbrmstr
@hrbrmstr我已经有了一个rApache实现。我根本没有时间切换到不同的技术。我之所以选择这个,是因为它让R的行为像PHP和其他人一样,这意味着人们可以开始将R看作是一种通用语言......我真的很希望发生这种事情! – Michele