嗨,我正在使用 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 的新手。任何帮助将不胜感激。