-
Notifications
You must be signed in to change notification settings - Fork 11
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merged origin/main into speak-now-tv
- Loading branch information
Showing
19 changed files
with
448 additions
and
54 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,74 @@ | ||
#' Translate a friendship bracelet | ||
#' | ||
#' Receive a friendship bracelet at the Eras Tour but can't figure out what | ||
#' lyrics the bracelet has abbreviated? Now you can find out! | ||
#' | ||
#' @param abbr The abbreviated lyrics (i.e., the first letter of each word). | ||
#' | ||
#' @return A character vector with the name of the song and the abbreviated | ||
#' line. | ||
#' @export | ||
#' | ||
#' @examples | ||
#' translate_bracelet("bykmosftvfw") | ||
#' | ||
#' translate_bracelet("kimbkiagkitbimhotw") | ||
translate_bracelet <- function(abbr) { | ||
abbr <- check_character(abbr, name = "abbr") | ||
|
||
lyric_abbr <- vapply(taylor::taylor_all_songs$lyrics, | ||
function(.x) { | ||
lines <- | ||
vapply(.x$lyric, | ||
function(.y) { | ||
clean <- gsub("[^a-z ]", "", tolower(.y)) | ||
words <- strsplit(clean, split = " ") | ||
letters <- strsplit(words[[1]], split = "") | ||
start <- vapply(letters, | ||
function(.z) { | ||
.z[1] | ||
}, | ||
character(1)) | ||
paste(start, collapse = "") | ||
}, | ||
character(1)) | ||
paste(lines, collapse = "") | ||
}, | ||
character(1)) | ||
|
||
songs <- taylor::taylor_all_songs[grep(abbr, lyric_abbr), | ||
c("album_name", "track_name", "lyrics")] | ||
|
||
songs$line <- vapply(songs$lyrics, | ||
function(.x, abbr) { | ||
words <- strsplit(paste(.x$lyric, collapse = " "), | ||
" ")[[1]] | ||
letters <- vapply(words, | ||
function(.y) { | ||
clean <- gsub("[^a-z ]", "", | ||
tolower(.y)) | ||
word_letters <- strsplit(clean, "") | ||
start <- vapply(word_letters, | ||
function(.z) { | ||
.z[1] | ||
}, | ||
character(1)) | ||
return(start) | ||
}, | ||
character(1)) | ||
full_string <- paste(letters, collapse = "") | ||
position <- regexpr(abbr, full_string) | ||
|
||
paste(words[position:(position + nchar(abbr) - 1)], | ||
collapse = " ") | ||
}, | ||
character(1), | ||
abbr = abbr) | ||
|
||
if (any(grepl("Taylor's Version", songs$track_name))) { | ||
songs <- songs[grepl("Taylor's Version", songs$track_name), ] | ||
} | ||
|
||
glue::glue_data(songs, | ||
"{track_name}: {line}\n\n") | ||
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
82 changes: 82 additions & 0 deletions
82
data-raw/lyrics/10c_midnights-til-dawn-edition/22_snow-on-the-beach-mldr.txt
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,82 @@ | ||
[Verse 1: Taylor Swift] | ||
One night, a few moons ago | ||
I saw flecks of what could've been lights | ||
But it might just have been you | ||
Passing by unbeknownst to me | ||
Life is emotionally abusive | ||
And time can't stop me quite like you did | ||
And my flight was awful, thanks for asking | ||
I'm unglued, thanks to you | ||
|
||
[Chorus: Taylor Swift, Taylor Swift & Lana Del Rey] | ||
And it's like snow at the beach | ||
Weird, but fuckin' beautiful | ||
Flying in a dream | ||
Stars by the pocketful | ||
You wanting me | ||
Tonight feels impossible | ||
But it's comin' down | ||
No sound, it's all around | ||
|
||
[Post-Chorus: Taylor Swift & Lana Del Rey, Lana Del Rey] | ||
Like snow on the beach | ||
Like snow on the beach | ||
Like snow on the beach | ||
Like snow, ah, ah | ||
|
||
[Verse 2: Lana Del Rey, Taylor Swift & Lana Del Rey] | ||
This scene feels like what I once saw on a screen | ||
I searched "aurora borealis green" | ||
I've never seen someone lit from within | ||
Blurring out my periphery | ||
My smile is like I won a contest | ||
And to hide that would be so dishonest | ||
And it's fine to fake it 'til you make it | ||
'Til you do, 'til it's true | ||
|
||
[Chorus: Taylor Swift, Taylor Swift & Lana Del Rey] | ||
Now, it's like snow at the beach | ||
Weird, but fuckin' beautiful | ||
Flying in a dream | ||
Stars by the pocketful | ||
You wanting me | ||
Tonight feels impossible | ||
But it's comin' down | ||
No sound, it's all around | ||
|
||
[Post-Chorus: Taylor Swift & Lana Del Rey, Lana Del Rey] | ||
Like snow on the beach (Mmm) | ||
Like snow on the beach | ||
Like snow on the beach (Mmm) | ||
Like snow, ah, ah | ||
|
||
[Bridge: Taylor Swift, Lana Del Rey, Taylor Swift & Lana Del Rey] | ||
I (I) can't (Can't) speak, afraid to jinx it | ||
I (I) don't (Don't) even dare to wish it | ||
But your eyes are flying saucers from another planet | ||
Now, I'm all for you like Janet | ||
Can this be a real thing? Can it? | ||
|
||
[Chorus: Taylor Swift & Lana Del Rey, Taylor Swift] | ||
Are we falling like snow at the beach? (Snow at the beach) | ||
Weird, but fuckin' beautiful | ||
Flying in a dream (Flying in a dream) | ||
Stars by the pocketful | ||
You wanting me | ||
Tonight feels impossible (Tonight) | ||
But it's comin' down | ||
No sound, it's all around | ||
|
||
[Post-Chorus: Taylor Swift & Lana Del Rey, Lana Del Rey, Taylor Swift] | ||
Like snow on the beach | ||
(Mmm; Snow on the beach) | ||
Like snow on the beach | ||
(Snow on the beach) | ||
Like snow on the beach | ||
(Mmm; Snow on the beach) | ||
Like snow, ah | ||
But it's comin' down | ||
No sound, it's all around | ||
[Outro: Lana Del Rey] | ||
Like snow on the beach | ||
Like snow, like snow, uh-huh, yeah |
84 changes: 84 additions & 0 deletions
84
data-raw/lyrics/10c_midnights-til-dawn-edition/23_karma-rmx.txt
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,84 @@ | ||
[Intro: Ice Spice] | ||
Karma is that girl, like (Grrah) | ||
|
||
[Verse 1: Taylor Swift] | ||
You're talking shit for the hell of it | ||
Addicted to betrayal, but you're relevant | ||
You're terrified to look down | ||
'Cause if you dare, you'll see the glare | ||
Of everyone you burned just to get there | ||
It's comin' back around | ||
|
||
[Pre-Chorus: Taylor Swift] | ||
And I keep my side of the street clean | ||
You wouldn't know what I mean | ||
|
||
[Chorus: Taylor Swift] | ||
'Cause karma is my boyfriend | ||
Karma is a god | ||
Karma is the breeze in my hair on the weekend | ||
Karma's a relaxing thought | ||
Aren't you envious that for you it's not? | ||
Sweet like honey, karma is a cat | ||
Purring in my lap 'cause it loves me | ||
Flexing likе a goddamn acrobat | ||
Me and karma vibe like that | ||
|
||
[Verse 2: Ice Spice, Ice Spice & Taylor Swift] | ||
Karma is your chеck's 'boutta bounce (Damn) | ||
Karma is the fire in your house (Grrah) | ||
And she 'boutta pop up unannounced (Like) | ||
And she never leavin' you alone (Damn) | ||
Watch her put ya opps on a throne (Damn) | ||
Got you wavin' pretty white flags, feenin' for that cash | ||
Thinkin' it'll save ya, now you switchin' up your behavior | ||
It's okay, baby, you ain't gotta worry, karma never gets lazy | ||
So, I keep my head up, my bread up, I won't let up (Never) | ||
Promise that you'll never endeavor with none lesser (Ever, ever) | ||
I be draggin' that wagon, karma is a beauty winning that pageant, grrah | ||
|
||
[Chorus: Taylor Swift, Ice Spice, Taylor Swift & Ice Spice] | ||
'Cause karma is my boyfriend (Damn) | ||
Karma is a god | ||
Karma is the breeze in my hair on the weekend | ||
Karma's a relaxing thought | ||
Aren't you envious that for you it's not? | ||
Sweet like honey, karma is a cat | ||
Purring in my lap 'cause it loves me | ||
Flexing like a goddamn acrobat | ||
Me and karma vibe like that (Grrah) | ||
|
||
[Bridge: Taylor Swift] | ||
Ask me what I learned from all those years | ||
Ask me what I earned from all those tears | ||
Ask me why so many fade, but I'm still here | ||
(I'm still here, I'm still here) | ||
|
||
[Breakdown: Taylor Swift, Ice Spice, Taylor Swift & Ice Spice] | ||
'Cause karma is the thunder | ||
Rattlin' your ground | ||
Karma's on your scent like a bounty hunter | ||
And karma's gonna track you down | ||
Step by step, from town to town | ||
Sweet like justice, karma is a queen | ||
Karma takes all my friends to the summit (Facts) | ||
Karma is the guy on the screen | ||
Coming straight home to me | ||
|
||
[Chorus: Taylor Swift, Ice Spice, Taylor Swift & Ice Spice] | ||
'Cause karma is my boyfriend (Karma is my boyfriend) | ||
Karma is a god (Damn) | ||
Karma is the breeze in my hair on the weekend (Weekend) | ||
Karma's a relaxing thought | ||
Aren't you envious that for you it's not? | ||
Sweet like honey, karma is a cat | ||
Purring in my lap 'cause it loves me | ||
Flexing like a goddamn acrobat | ||
Me and karma vibe like that | ||
|
||
[Outro: Taylor Swift, Ice Spice] | ||
Karma is my boyfriend | ||
Karma is a god (Ah) | ||
Karma is my bestie (Mmm) | ||
Karma's a relaxing thought | ||
Karma's gonna hold you down |
Oops, something went wrong.