Nothing
googleTranslate <-
function(x, api.key, source.lang, target.lang){
base <- 'https://www.googleapis.com/language/translate/v2?'
key.str <- paste('key=', api.key, sep = '')
query <- paste('&q=', curlEscape(x), sep = '')
source.str <- paste('&source=', source.lang, sep = '')
target.str <- paste('&target=', target.lang, sep = '')
api.url <- paste(base, key.str, query, source.str, target.str, sep = '')
translated <- fromJSON(getURL(api.url))$data$translations[[1]]
return(translated)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.