1

嗨,我正在使用 opencpu 将 R 程序作为 Web 服务调用。当我调用程序或传递参数时,它显示超时异常。这是我的程序。

test <- function(data)
{
setwd("/home/ec2-user")
args <- commandArgs(trailing = TRUE)
delhi <- read.delim("delhi.tsv", na.strings = "")
delhi$lnprice <- log(delhi$price)
delhi$furn.f = factor(delhi$furnished)
delhi <- delhi [(delhi$facing %in% c ("East", "West", "North", "South",  "South - East",  "South -West", "North - East", "North - West", NA)),]
delhi$fac.f = factor(delhi$facing)
delhi$age.f = factor(delhi$age)
delhi$own.f = factor (delhi$ownership)
delhi <- delhi[!table(delhi$locality)[delhi$locality]<20,]
delhi$loc.f = factor(delhi$locality)
delhi$address.f = factor(delhi$propertyaddress)
delhi <- delhi [!(delhi$locality %in% c ("Sector-1")),]
model <- lm(lnprice ~ bedrooms+ address.f,data = delhi)
address <- args[1]
result <- predict (model,address)
result
}

我正在 r 中创建一个新包

package.skeleton(list = c("test"),environment = .GlobalEnv,code_files = character(),name="addresstest")

我通过 curl 传递论点

http://52.25.248.111:5888/ocpu/library/addresstest/R/test/ -d "argument"

它不起作用。我是 r 和 opencpu 的新手。任何帮助将不胜感激。

4

1 回答 1

0

你可以尝试这样的事情:

curl http://52.25.248.111:5888/ocpu/library/addresstest/R/test/json -H "Content-Type: application/json" -d '{"data":"argumentValue"}'

它以这条消息结束: R call did not return within 90 seconds. Terminating process.

您确定测试方法中描述的功能本身在不到 90 秒内完成吗?另外我看不到您在方法中在哪里使用参数数据?

于 2015-09-16T14:22:02.207 回答