1989 (Taylor's Version)

NEWS.md

@@ -4,21 +4,23 @@
 
 * *Speak Now (Taylor's Version)* has replaced *Speak Now* in `taylor_album_songs` (#25).
 
+* *1989 (Taylor's Version)* has replaced *1989* in `taylor_album_songs` (#30).
+
 ## New features
 
 * New function, `translate_bracelet()` can be used to find the song and line from the first letter of each word, as is common on the Eras Tour friendship bracelets.
 
 ## Minor improvements and fixes
 
-* New color palette added to `album_palettes` for *Speak Now (Taylor's Version)*.
+* New color palettes added to `album_palettes` for *Speak Now (Taylor's Version)* and *1989 (Taylor's Version)*.
 
-* New single color added to `album_compare` for *Speak Now (Taylor's Version)*.
+* New single colors added to `album_compare` for *Speak Now (Taylor's Version)* and *1989 (Taylor's Version)*.
 
-* Metacritic score for *Speak Now (Taylor's Version)* has been added to
+* Metacritic scores for *Speak Now (Taylor's Version)* and *1989 (Taylor's Version)* have been added to
   `taylor_albums`.
 
 * Hex logo and pkgdown website have been updated to have a
-  *Speak Now (Taylor's Version)* theme.
+  *1989 (Taylor's Version)* theme.
 
 * Added Spotify data for "Hits Different" after it was released to streaming as part of *Midnights (The Til Dawn Edition)*.
 
@@ -28,6 +30,8 @@
 
 * Added Era's Tour promotional singles "All of the Girls You Loved Before," "If This Was a Movie (Taylor's Version)," "Eyes Open (Taylor's Version)," and "Safe & Sound (Taylor's Version)."
 
+* "This Love (Taylor's Version)" and "Wildest Dreams (Taylor's Version)" have been moved from non-album singles to *1989 (Taylor's Version)*.
+
 * The `type` argument of `color_palette()` has been removed. This argument was previously deprecated with a warning in version 1.0.0.
 
 # taylor 2.0.1

R/taylor-album-palettes.R

@@ -26,6 +26,7 @@ album_palettes <- lapply(list(
   red          = c("#201F39", "#A91E47", "#7E6358", "#B0A49A", "#DDD8C9"),
   red_tv       = c("#400303", "#731803", "#967862", "#B38468", "#C7C5B6"),
   `1989`       = c("#5D4E5D", "#846578", "#92573C", "#C6B69C", "#D8D8CF"),
+  `1989_tv`    = c("#487398", "#659BBB", "#8BB5D2", "#AFC5D4", "#E4DFD3"),
   reputation   = c("#2C2C2C", "#515151", "#5B5B5B", "#6E6E6E", "#B9B9B9"),
   lover        = c("#76BAE0", "#8C4F66", "#B8396B", "#EBBED3", "#FFF5CC"),
   folklore     = c("#3E3E3E", "#545454", "#5C5C5C", "#949494", "#EBEBEB"),
@@ -36,19 +37,20 @@ album_palettes <- lapply(list(
 #' @rdname album_palettes
 #' @export
 album_compare <- color_palette(
-  c(taylor_swift = "#1BAEC6",
+  c(taylor_swift = "#1D4737",
     fearless     = "#CBA863",
     fearless_tv  = "#624324",
     speak_now    = "#833C63",
     speak_now_tv = "#4a2454",
     red          = "#A91E47",
     red_tv       = "#731803",
     `1989`       = "#846578",
+    `1989_tv`    = "#8BB5D2",
     reputation   = "#2C2C2C",
     lover        = "#EBBED3",
     folklore     = "#949494",
     evermore     = "#421E18",
-    midnights    = "#AA9EB6")
+    midnights    = "#5A658B")
 )
 
 
@@ -87,7 +89,7 @@ album_levels <- c("Taylor Swift",
                   "Fearless", "Fearless (Taylor's Version)",
                   "Speak Now", "Speak Now (Taylor's Version)",
                   "Red", "Red (Taylor's Version)",
-                  "1989",
+                  "1989", "1989 (Taylor's Version)",
                   "reputation",
                   "Lover", "folklore", "evermore", "Midnights")
 
@@ -121,6 +123,7 @@ taylor_col <- function(n, alpha = 1, begin = 0, end = 1, direction = 1,
                    red          = taylor::album_palettes[["red"]],
                    red_tv       = taylor::album_palettes[["red_tv"]],
                    `1989`       = taylor::album_palettes[["1989"]],
+                   `1989_tv`    = taylor::album_palettes[["1989_tv"]],
                    reputation   = taylor::album_palettes[["reputation"]],
                    lover        = taylor::album_palettes[["lover"]],
                    folklore     = taylor::album_palettes[["folklore"]],

README.md

@@ -56,7 +56,7 @@ Version)*). We stan artists owning their own songs.
 
 ``` r
 taylor_album_songs
-#> # A tibble: 202 × 29
+#> # A tibble: 209 × 29
 #>    album_name   ep    album_release track_number track_name     artist featuring
 #>    <chr>        <lgl> <date>               <int> <chr>          <chr>  <chr>    
 #>  1 Taylor Swift FALSE 2006-10-24               1 Tim McGraw     Taylo… <NA>     
@@ -69,7 +69,7 @@ taylor_album_songs
 #>  8 Taylor Swift FALSE 2006-10-24               8 Stay Beautiful Taylo… <NA>     
 #>  9 Taylor Swift FALSE 2006-10-24               9 Should've Sai… Taylo… <NA>     
 #> 10 Taylor Swift FALSE 2006-10-24              10 Mary's Song (… Taylo… <NA>     
-#> # ℹ 192 more rows
+#> # ℹ 199 more rows
 #> # ℹ 22 more variables: bonus_track <lgl>, promotional_release <date>,
 #> #   single_release <date>, track_release <date>, danceability <dbl>,
 #> #   energy <dbl>, key <int>, loudness <dbl>, mode <int>, speechiness <dbl>,
@@ -85,7 +85,7 @@ as *Taylor’s Version*.
 
 ``` r
 taylor_all_songs
-#> # A tibble: 304 × 29
+#> # A tibble: 325 × 29
 #>    album_name   ep    album_release track_number track_name     artist featuring
 #>    <chr>        <lgl> <date>               <int> <chr>          <chr>  <chr>    
 #>  1 Taylor Swift FALSE 2006-10-24               1 Tim McGraw     Taylo… <NA>     
@@ -98,7 +98,7 @@ taylor_all_songs
 #>  8 Taylor Swift FALSE 2006-10-24               8 Stay Beautiful Taylo… <NA>     
 #>  9 Taylor Swift FALSE 2006-10-24               9 Should've Sai… Taylo… <NA>     
 #> 10 Taylor Swift FALSE 2006-10-24              10 Mary's Song (… Taylo… <NA>     
-#> # ℹ 294 more rows
+#> # ℹ 315 more rows
 #> # ℹ 22 more variables: bonus_track <lgl>, promotional_release <date>,
 #> #   single_release <date>, track_release <date>, danceability <dbl>,
 #> #   energy <dbl>, key <int>, loudness <dbl>, mode <int>, speechiness <dbl>,
@@ -112,24 +112,25 @@ Taylor’s album release history.
 
 ``` r
 taylor_albums
-#> # A tibble: 15 × 5
+#> # A tibble: 16 × 5
 #>    album_name                    ep    album_release metacritic_score user_score
 #>    <chr>                         <lgl> <date>                   <int>      <dbl>
 #>  1 Taylor Swift                  FALSE 2006-10-24                  67        8.4
 #>  2 The Taylor Swift Holiday Col… TRUE  2007-10-14                  NA       NA  
 #>  3 Beautiful Eyes                TRUE  2008-07-15                  NA       NA  
 #>  4 Fearless                      FALSE 2008-11-11                  73        8.4
 #>  5 Speak Now                     FALSE 2010-10-25                  77        8.6
-#>  6 Red                           FALSE 2012-10-22                  77        8.5
+#>  6 Red                           FALSE 2012-10-22                  77        8.6
 #>  7 1989                          FALSE 2014-10-27                  76        8.3
 #>  8 reputation                    FALSE 2017-11-10                  71        8.3
 #>  9 Lover                         FALSE 2019-08-23                  79        8.4
 #> 10 folklore                      FALSE 2020-07-24                  88        9  
-#> 11 evermore                      FALSE 2020-12-11                  85        9  
+#> 11 evermore                      FALSE 2020-12-11                  85        8.9
 #> 12 Fearless (Taylor's Version)   FALSE 2021-04-09                  82        8.9
-#> 13 Red (Taylor's Version)        FALSE 2021-11-12                  91        9  
+#> 13 Red (Taylor's Version)        FALSE 2021-11-12                  91        8.9
 #> 14 Midnights                     FALSE 2022-10-21                  85        8.3
-#> 15 Speak Now (Taylor's Version)  FALSE 2023-07-07                  81        9.3
+#> 15 Speak Now (Taylor's Version)  FALSE 2023-07-07                  81        9.2
+#> 16 1989 (Taylor's Version)       FALSE 2023-10-27                 100       NA
 ```
 
 ## Code of Conduct

data-raw/_archive/metacritic-scraping.R

@@ -0,0 +1,32 @@
+# Manual metacritic - boo!
+metacritic <- tribble(
+  ~album_name,                           ~metacritic_score, ~user_score,
+  "1989 (Taylor's Version)",             100L,              NA_real_,
+  "Speak Now (Taylor's Version)",        81L,               9.2,
+  "Midnights",                           85L,               8.3,
+  "Red (Taylor's Version)",              91L,               9.0,
+  "Fearless (Taylor's Version)",         82L,               8.9,
+  "evermore",                            85L,               8.9,
+  "folklore",                            88L,               9.0,
+  "Lover",                               79L,               8.4,
+  "reputation",                          71L,               8.3,
+  "1989",                                76L,               8.2,
+  "Red",                                 77L,               8.5,
+  "Speak Now",                           77L,               8.6,
+  "Fearless",                            73L,               8.4,
+  "Taylor Swift",                        67L,               8.5
+)
+
+# Old metacritic website ~ summer 2023
+site <- read_html("https://www.metacritic.com/person/taylor-swift")
+metacritic <- html_table(site) %>%
+  pluck(2) %>%
+  separate_wider_regex(`Title:`,
+                       patterns = c(metacritic_score = "[0-9|tbd]*",
+                                    "\\n\\n[ ]*",
+                                    album_name = ".*")) %>%
+  mutate(metacritic_score = na_if(metacritic_score, "tbd"),
+         metacritic_score = as.integer(metacritic_score),
+         album_name = str_replace_all(album_name, fixed("[Taylor's Version]"),
+                                      "(Taylor's Version)")) %>%
+  select(album_name, metacritic_score, user_score = `User score:`)

data-raw/album-covers.R

@@ -15,6 +15,7 @@ tribble(
   "Red",                          "1EoDsNmgTLtmwe1BDAVxV5",
   "Red (Taylor's Version)",       "6kZ42qRrzov54LcAk4onW9",
   "1989",                         "2QJmrSgbdM35R67eoGQo4j",
+  "1989 (Taylor's Version)",      "64LU4c1nfjz1t4VnGhagcg",
   "reputation",                   "6DEjYFkNZh67HP7R9PSZvv",
   "Lover",                        "1NAmidJlEaVgA3MpcPFYGq",
   "folklore",                     "2fenSS68JI1h4Fo296JfGr",

data-raw/lyrics/05b_1989-taylors-version/01_welcome-to-new-york-tv.txt

@@ -0,0 +1,51 @@
+[Verse 1]
+Walkin' through a crowd, the village is aglow
+Kaleidoscope of loud heartbeats under coats
+Everybody here wanted somethin' more
+Searchin' for a sound we hadn't heard before
+And it said
+
+[Chorus]
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+It's a new soundtrack, I could dance to this beat, beat forevermorе
+The lights are so bright, but they nеver blind me, me
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+
+[Verse 2]
+When we first dropped our bags on apartment floors
+Took our broken hearts, put them in a drawer
+Everybody here was someone else before
+And you can want who you want
+Boys and boys and girls and girls
+
+[Chorus]
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+It's a new soundtrack, I could dance to this beat, beat forevermore
+The lights are so bright, but they never blind me, me
+Welcome to New York (New York), it's been waitin' for you
+Welcome to New York, welcome to New York
+
+[Bridge]
+Like any great love, it keeps you guessing
+Like any real love, it's ever-changing
+Like any true love, it drives you crazy
+But you know you wouldn't change anything, anything, anything
+
+[Chorus]
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+Welcome to New York, it's been waitin' for you
+Welcome to New York, welcome to New York
+It's a new soundtrack, I could dance to this beat
+The lights are so bright, but they never blind me
+Welcome to New York (New soundtrack), it's been waitin' for you
+Welcome to New York, the lights are so bright, but they never blind me
+Welcome to New York, so bright, they never blind me
+Welcome to New York, welcome to New York

data-raw/lyrics/05b_1989-taylors-version/02_blank-space-tv.txt

@@ -0,0 +1,93 @@
+[Verse 1]
+Nice to meet you, where you been?
+I could show you incredible things
+Magic, madness, heaven, sin
+Saw you there and I thought
+"Oh, my God, look at that face
+You look like my next mistake
+Love's a game, wanna play?" Ayy
+New money, suit and tie
+I can read you like a magazine
+Ain't it funny? Rumors fly
+And I know you heard about me
+So, hey, let's be friends
+I'm dyin' to see how this one ends
+Grab your passport and my hand
+I can make the bad guys good for a weekend
+
+[Chorus]
+So it's gonna be forever
+Or it's gonna go down in flames?
+You can tell me when it's over, mm
+If the high was worth thе pain
+Got a long list of ex-lovers
+They'll tеll you I'm insane
+'Cause you know I love the players
+And you love the game
+'Cause we're young and we're reckless
+We'll take this way too far
+It'll leave you breathless, mm
+Or with a nasty scar
+Got a long list of ex-lovers
+They'll tell you I'm insane
+But I've got a blank space, baby
+And I'll write your name
+
+[Verse 2]
+Cherry lips, crystal skies
+I could show you incredible things
+Stolen kisses, pretty lies
+You're the king, baby, I'm your queen
+Find out what you want
+Be that girl for a month
+Wait, the worst is yet to come, oh, no
+Screaming, crying, perfect storms
+I can make all the tables turn
+Rose garden filled with thorns
+Keep you second guessin', like
+"Oh, my God, who is she?"
+I get drunk on jealousy
+But you'll come back each time you leave
+'Cause, darling, I'm a nightmare dressed like a daydream
+
+[Chorus]
+So it's gonna be forever
+Or it's gonna go down in flames?
+You can tell me when it's over, mm
+If the high was worth the pain
+Got a long list of ex-lovers
+They'll tell you I'm insane
+'Cause you know I love the players
+And you love the game
+'Cause we're young and we're reckless (Oh)
+We'll take this way too far
+It'll leave you breathless (Oh-oh), mm
+Or with a nasty scar
+Got a long list of ex-lovers
+They'll tell you I'm insane (Insane)
+But I've got a blank space, baby
+And I'll write your name
+
+[Bridge]
+Boys only want love if it's torture
+Don't say I didn't, say I didn't warn ya
+Boys only want love if it's torture
+Don't say I didn't, say I didn't warn ya
+
+[Chorus]
+So it's gonna be forever
+Or it's gonna go down in flames?
+You can tell me when it's over (Over), mm
+If the high was worth the pain
+Got a long list of ex-lovers
+They'll tell you I'm insane (I'm insane)
+'Cause you know I love the players
+And you love the game (Love the game)
+'Cause we're young and we're reckless (Yeah)
+We'll take this way too far (Ooh)
+It'll leave you breathless, mm
+Or with a nasty scar (Or leave a nasty scar)
+Got a long list of ex-lovers
+They'll tell you I'm insane
+But I've got a blank space, baby
+And I'll write your name

data-raw/lyrics/05b_1989-taylors-version/03_style-tv.txt

@@ -0,0 +1,59 @@
+[Verse 1]
+Midnight
+You come and pick me up, no headlights
+Long drive
+Could end in burnin' flames or paradise
+Fade into view, oh
+It's been a while since I have even heard from you
+(Heard from you)
+
+[Pre-Chorus]
+I should just tell you to leave 'cause I
+Know exactly where it leads, but I
+Watch us go 'round and 'round each time
+
+[Chorus]
+You got that James Dean daydream look in your eye
+And I got that red lip classic thing that you like
+And when we go crashin' down, we come back every time
+'Cause we nеver go out of style, we nеver go out of style
+You got that long hair, slicked back, white t-shirt
+And I got that good girl faith and a tight little skirt
+And when we go crashin' down, we come back every time
+'Cause we never go out of style, we never go out of style
+
+[Verse 2]
+So it goes
+He can't keep his wild eyes on the road, mmm
+Takes me home
+Lights are off, he's taking off his coat, oh, yeah
+I say, "I heard, oh
+That you've been out and about with some other girl"
+Some other girl
+
+[Pre-Chorus]
+He says, "What you heard is true, but I
+Can't stop thinkin' 'bout you" and I
+I said, "I've been there too a few times"
+
+[Chorus]
+'Cause you got that James Dean daydream look in your eye
+And I got that red lip classic thing that you like
+And when we go crashin' down, we come back every time
+'Cause we never go out of style, we never go out of style
+You got that long hair, slicked back, white t-shirt
+And I got that good girl faith and a tight little skirt (A tight little skirt)
+And when we go crashin' down, we come back every time
+'Cause we never go out of style (We never go, we never go), we never go out of style
+
+[Bridge]
+Take me home (Ah)
+Just take me home (Ah)
+Yeah, just take me home (Ah)
+Woah, woah, oh (Out of style)
+
+[Chorus]
+Oh, 'cause you got that James Dean daydream look in your eye
+And I got that red lip classic thing that you like
+And when we go crashin' down (And when we go), we come back every time
+'Cause we never go out of style, we never go out of style