rのgetURL関数でエラーが発生しました

Question

異なる言語のテキストを英語に自動的に翻訳しようとしています。

私は通路をやっているが、この他の質問に次のように説明しGoogle translate via web scraping r

が、私はこのエラーを取得：

Error in function (type, msg, asError = TRUE) : Illegal characters found in URL 

私のコード

getParam <- as.character(db$text) 
translateFrom <- as.character(db$language) 

translateTo <- "en" 
search <- gsub(" ", "%20", getParam) 
URL <- paste("https://translate.google.pl/m?hl=",translateFrom,"&sl=",translateFrom,"&tl=",translateTo,"&ie=UTF-8&prev=_m&q=",search,sep="", ssl.verifypeer = FALSE) 

page <- getURL(URL) 

tree <- htmlTreeParse(page) 

body <- tree$children$html$children$body 

Answer 1

library(XML) 
library(RCurl) 

db=data.frame(text = c("traduire", "tradurre"), langage=c("fr", "it")) 

ls = unlist(apply(db, 1, list), recursive = FALSE) 

lapply(unlist(apply(db, 1, list), recursive = FALSE), function(x){ 

    getParam <- as.character(x[1]) 
    translateFrom <- as.character(x[2]) 

    translateTo <- "en" 
    search <- gsub(" ", "%20", getParam) 
    URL <- paste("https://translate.google.pl/m?hl=",translateFrom,"&sl=",translateFrom,"&tl=",translateTo,"&ie=UTF-8&prev=_m&q=",search,sep="") 
    page <- getURL(URL) 
    tree <-htmlTreeParse(page) 
    body <- tree$children$html$children$body 
    body_text <- body$children[[5]]$children[[1]] 
    body_text 

})