Using Google Cloud Translation in R for translating data dictionaries

dataframe_translation.R

library(tidyverse)
library(googleLanguageR)

# STEP1: Generate access key for google cloud 
# read more: https://cloud.google.com/translate/docs/basic/setup-basic

gl_auth('auth_key.json') # access Google Cloud Translation API with your credentials

df <- read.csv('german_data_dictionary.csv') # read data

# translate 'Content' and store in a new column 'Content_EN'
df <- df %>% mutate(Content_EN = gl_translate(Content, source='de', target = 'en')$translatedText) 
df <- df %>% relocate(Content_EN, .after=Label)

# save to external file
write.csv(df_en, "english_data_dictionary.csv")