fetch_translate = function(text) {
  gsub('"', '"', text) %>%
    paste0('nodejs translate.js "', ., '"') %>% system(TRUE)
}

build_translate = function(resp) {
  resp[-length(resp)] %>% paste(collapse = ' ') %>%
    cbind(en_trans = ., lang = resp[length(resp)])
}

translate = function(df) {
  df_trans = subset(df, !duplicated(text))

  m_resp = df_trans$text %>% setNames(., .) %>%
    lapply(fetch_translate) %>%
    lapply(build_translate) %>% {
      cbind(text = names(.), do.call(rbind, .))
    }

  merge(m_resp, df, by = 'text', sort = FALSE)
}