1 
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")
}

私の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)

言語検出を機能させようとしていますが、Google API に JSON ファイルを投稿する必要があることを理解していますが、エラー #"code": 400, #"message": "Required Text" が発生します

Rパッケージがあることは理解していますが、パッケージなしでそれを行う方法を学ぼうとしています.GoogleまたはMicrosoftがAPIを更新し、#パッケージが更新されないことがあるためです(例: TranslateR は API の更新以来 Microsoft をサポートしていないので、できるだけ手動で行う方法を学びたい # https://cloud.google.com/translate/docs/quickstart?csw=1 https: //translation.googleapis.com/ $discovery/rest?version=v2

4

1 に答える 1

1

気にしないで...数時間ハッキングした後、私はそれを理解しました.. =)

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)
于 2018-06-11T16:39:41.387 に答える