谷歌翻译不在R中翻译

我有这个数据框：

str(revision_vehicular_2017_08_01_)

类“tbl_df”、“tbl”和“data.frame”：1 obs。在17个变量中：

$ X1           : int 1
$ text         : chr "el plan operativo contempla una revision tecnica vehicular por parte de amtquito escuchanos por radio municipal t co ojrdm jo"
$ favorited    : logi FALSE
$ favoriteCount: int 3
$ replyToSN    : chr NA
$ created      : POSIXct, format: "2017-08-10 13:08:14"
$ truncated    : logi FALSE
$ replyToSID   : chr NA
$ id           : num 8.96e+17
$ replyToUID   : chr NA
$ statusSource : chr "<a href=\"http://twitter.com/download/iphone\" rel=\"nofollow\">Twitter for iPhone</a>"
$ screenName   : chr "ObrasQuito"
$ retweetCount : int 3
$ isRetweet    : logi FALSE
$ retweeted    : logi FALSE
$ longitude    : chr NA
$ latitude     : chr NA
- attr(*, "spec")=List of 2
 ..$ cols   :List of 17
 .. ..$ X1           : list()
 .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
 .. ..$ text         : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ favorited    : list()
 .. .. ..- attr(*, "class")= chr  "collector_logical" "collector"
 .. ..$ favoriteCount: list()
 .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
 .. ..$ replyToSN    : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ created      :List of 1
 .. .. ..$ format: chr ""
 .. .. ..- attr(*, "class")= chr  "collector_datetime" "collector"
 .. ..$ truncated    : list()
 .. .. ..- attr(*, "class")= chr  "collector_logical" "collector"
 .. ..$ replyToSID   : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ id           : list()
 .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
 .. ..$ replyToUID   : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ statusSource : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ screenName   : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ retweetCount : list()
 .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
 .. ..$ isRetweet    : list()
 .. .. ..- attr(*, "class")= chr  "collector_logical" "collector"
 .. ..$ retweeted    : list()
 .. .. ..- attr(*, "class")= chr  "collector_logical" "collector"
 .. ..$ longitude    : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 .. ..$ latitude     : list()
 .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
 ..$ default: list()
 .. ..- attr(*, "class")= chr  "collector_guess" "collector"
 ..- attr(*, "class")= chr "col_spec"

$X1:int 1
$text:chr“城市无线电通信有限公司ojrdm jo的车辆部分修订版施工图”
$favorited:logi FALSE
$favoriteCount:int 3
$replyToSN:chr-NA
$created:POSIXct，格式：“2017-08-1013:08:14”
$truncated:logi FALSE
$replyToSID:chr-NA
$id:num 8.96e+17
$replytuid:chr-NA
$statusSource:chr“”
$screenName:chr“ObrasQuito”
$retweetCount:int 3
$isRetweet:logi FALSE
$retweeted:logi FALSE
$longitude:chr-NA
$latitude:chr-NA
-属性（*，“规格”）=2个列表
..$cols:17人名单
.. ..$ X1:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u整数“收集器”
.. ..$ 文本：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ 收藏夹：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u逻辑“收集器”
.. ..$ favoriteCount:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u整数“收集器”
.. ..$ replyToSN:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ 已创建：1个列表
.. .. ..$ 格式：chr“”
.. .. ..- 属性（*，“类”）=chr“收集器”\u datetime“收集器”
.. ..$ 截断：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u逻辑“收集器”
.. ..$ replyToSID:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ id:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u双“收集器”
.. ..$ replytuid:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ statusSource:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ 屏幕名称：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ retweetCount:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u整数“收集器”
.. ..$ isNetweet:list（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u逻辑“收集器”
.. ..$ 转发：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u逻辑“收集器”
.. ..$ 经度：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
.. ..$ 纬度：列表（）
.. .. ..- 属性（*，“类”）=chr“收集器”\u字符“收集器”
..$default:list（）
.. ..- 属性（*，“类”）=chr“收集器”\u猜测“收集器”
..-attr（*，“类”）=chr“col_spec”

我正在尝试将专栏文本从西班牙语翻译成英语。我已经按照这些链接的说明启用了API

google.dataset.out
google.dataset.out <- translate(dataset = df,
                                    content.field = 'text',
                                    google.api.key = "XXX",
                                    source.lang = 'es',
                                    target.lang = 'en')