Как сделать POST-вызов с помощью Google Translate API с помощью R - PullRequest
Новая
       21

Как сделать POST-вызов с помощью Google Translate API с помощью R

0 голосов
/ 10 июня 2018 
if (!require("httr")) {
  install.packages("httr", repos="http://cran.rstudio.com/")
  library("httr")
}

if (!require("jsonlite")) {
  install.packages("jsonlite", repos="http://cran.rstudio.com/")
  library("jsonlite")
}

My Get работает нормально ... 

api <- "xxxxxxxxxxxxxxxx"
url <-paste0(
   "https://translation.googleapis.com/language/translate/v2/languages/? 
   key=",api
 )
data3 <- GET(url)
data3 <- content(data3)
data3 <- as.data.frame(data3)
data3 <- as.data.frame(t(data3))

Мой POST не работает 

url <- paste0(
   "https://translation.googleapis.com/language/translate/v2/detect/?key=",api
 )
request_body <- data.frame(message = "hello")
request_body_json <- toJSON(list(documents = request_body), auto_unbox = TRUE)
result <- POST(url, body = request_body_json)

Я пытаюсь заставить язык работать, мое пониманиечто нам нужно опубликовать в файле JSON в Google API, однако я получаю сообщение об ошибке "код": 400, # "сообщение": "необходимый текст"

Я надеялся, что кто-то может указать мне вя понимаю, что существует пакет R, но я пытаюсь узнать, как это сделать без пакета, потому что иногда Google или Microsoft обновляют свой API, а пакет # не обновляется (пример: TranslateR никогда не поддерживает Microsoftначиная с обновления API, поэтому я хочу узнать, как сделать это вручную как можно больше # 1010 *https://cloud.google.com/translate/docs/quickstart?csw=1 https://translation.googleapis.com/$discovery/rest?version=v2

1 Ответ

0 голосов
/ 11 июня 2018

не бери в голову ... я понял это после нескольких часов хакинг вокруг .. =) 

TEXT1 = "Testate con lo smartphone si sente decisamente bene"
TEXT1 <- str_replace_all(TEXT1, " ", "%20")
test1 <- paste0("https://translation.googleapis.com/language/translate/v2?target=en&key=xxxxxxxxx&q=", TEXT1)
result2 <- POST(test1)
result2 <- content(result2)
result2 <- as.data.frame(result2)
...