R调用RYoudaoTranslate足不出户实现英译汉

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1.安装RRYoudaoTranslate翻译包,只需安装一次，不需要每次使用都安装

1. install.packages("RYoudaoTranslate")

复制代码

2.新建一个R脚本，复制如下代码后保存。文件名可以随意，我这边保存为translate.r

1. library(RYoudaoTranslate)
   
2. library(RCurl)
   
3. library(rjson)
   
4. translate=function(word){
   
5.   apikey = "498375134"
   
6.   keyfrom = "JustForTestYouDao"
   
7.   result=youdaoLookUp(word,api=apikey,keyfrom=keyfrom)
   
8.   return(result)
   
9. }

复制代码

3.每次启动后如果需要使用只需要输入如下命令：

1. source("translate.r")

复制代码

4.现在我们调用translate()测试下功能,例如我想把glance翻译成中文，则只需要输入如下命令：

1. translate("glance")

复制代码

返回结果如下：
                                                                   glance
"glance,一瞥扫视匆匆一看; bismuth glance,辉铋矿; atfirst glance,乍看之下"


-------------------------------------------------------------------------------------------------------------------
功能还行，就是返回结果还是有点乱，我现在想办法整理一下，有更好的结果我会再放码上来。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：translate SLATE Trans 足不出户 Late