R中的getURL函数出错

Question

I am trying to automatically translate a text from different language to English.

i am doing the passages explained on this other question: Google translate via web scraping r

but I obtain this error:

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

my code is

 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

})