Ответ 1
Вы можете использовать httpuv
для запуска базового сервера, а затем обрабатывать запросы GET
/POST
. Следующее не является "REST" как таковое, но оно должно обеспечивать основную структуру:
library(httpuv)
library(RCurl)
library(httr)
app <- list(call=function(req) {
query <- req$QUERY_STRING
qs <- httr:::parse_query(gsub("^\\?", "", query))
status <- 200L
headers <- list('Content-Type' = 'text/html')
if (!is.character(query) || identical(query, "")) {
body <- "\r\n<html><body></body></html>"
} else {
body <- sprintf("\r\n<html><body>a=%s</body></html>", qs$a)
}
ret <- list(status=status,
headers=headers,
body=body)
return(ret)
})
message("Starting server...")
server <- startServer("127.0.0.1", 8000, app=app)
on.exit(stopServer(server))
while(TRUE) {
service()
Sys.sleep(0.001)
}
stopServer(server)
У меня есть пакеты httr
и RCurl
, так как вам, вероятно, придется использовать некоторые биты как для разбора/форматирования/etc запросов и ответов.