In AndreaSanchezTapia/sambaR: Killing saudade by translating Brazilian music

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

sambaR

Download and translate songs from the Genius database and the google translate API. This package was created out of saudade to explain some samba lyrics to our friends in the US, but can be used to translate any lyrics available in the Genius database. Say you like Turkish music but don't understand 99.7% of the lyrics (random example).

This is basically package genius meets package googleLanguageR and I thank everybody involved.

The API for google translate must be configured, first in the cloud, then downloading the secret key in JSON format and saving it somewhere, then configuring .Renviron (usually in ~/.Renviron) with

GL_AUTH=path_to_that_json_file.json

The package with autenthicate automatically when loading.

I'll try to detail this step better in the future but everything is in the googleLanguageR package documentation.

Installation

You can install the released version of sambaR from CRAN with:

install.packages("sambaR")

And the development version from GitHub with:

# install.packages("remotes")
remotes::install_github("AndreaSanchezTapia/sambaR")

Example

There's only one function in the package, translate_lyrics()

devtools::load_all()
#library(sambaR)
library(googleLanguageR)

## basic example code
hoje <- sambaR::translate_lyrics(
  artist = "caetano veloso",
  song = "é hoje",
  target = "es",
  destdir = "inst/shiny-examples/sambaR"
)

The function will return a two-column tibble with the lyrics and the translated lyrics.

hoje

I should add some error checks in case Genius doesn't find the lyrics. Bear in mind that Genius doesn't care about capitalization but it does about spelling but it does not work well with some non-ascii characters, so avoid accents and ç.

Lastly, the search will automatically create a subfolder with the artist's name and the lyrics, inside destdir (default: current wd). This is not optional for now and intends to avoid repeated queries to both Genius and google translate.