R语言模型打包及基于Opencpu搭建restful api

setwd('C:\\打包')

library(devtools)

print(has_devel())

# 创建包的文件夹
create('./xulingyan')
# dir.create('./ment')

# 删除文件，当recursive为FALSE时只能删除空文件夹，为TRUE可以删除非空文件夹
unlink('./package', recursive = TRUE)

# 重设路径至新文件夹下
setwd('./xulingyan')

# 在文件夹下的R文件夹内添加完成的R文件

# 修改R包的描述性文件
file.edit('DESCRIPTION')

# 准备打包过程
# 每一次运行load_all()，都会载入BigFaceTools/R内最新的所有.r文件内容
load_all()

# 测试写入的R文件是否能够使用

# 接着用document()将BigFaceTools/R内的所有.r文件
# 生成为BigFaceTools/man文件夹内的.Rd文件
document()

# 打包
build()

# 包的安装与调用
install('xulingyan')

library(xulingyan)

xulingyan::predfunc(1,2,3)
#安装opencpu
library(opencpu)

#打开服务器
opencpu::ocpu_start_server()

#调用
#curl http://localhost:5656/ocpu/library/xulingyan/R/predfunc/json -H
#"Content-Type: application/json" -d '{"input" :[ {"Sepal.Length":1.1, "Sepal.Width" : 2.5, "Petal.Length":0.4, "Petal.Width":0.9}]}'