SpotifyAPIによるスクレイピングのコードレビュー

Question

下記のリンク先に示されていたスクリプトを参考に、ジャンル(genre)ごとに50曲ずつ曲名を取得してジャンル名とともにデータフレームにまとめようとしたところ、以下のエラーメッセージが発生しました。ご一考頂けますと幸いです。
（引用元：リンク内容）

エラーメッセージ

Error : object 'res' not found

該当のソースコード

  genres <- RETRY('GET', url = 'https://api.spotify.com/v1/recommendations/available-genre-seeds', query = list(access_token = get_spotify_access_token(), limit=150), quiet = TRUE) %>% content()
  
  m <- do.call(rbind,lapply(genres$genre, function(x) if(is.null(x)) NA else c(x)))
  genres_df <- as.data.frame(m)
  
  colnames(genres_df) <- c("genre")
  
　get_genre_track <- function(genre){ 
    track_check <- RETRY('GET', url = paste0("https://api.spotify.com/v1/search?query=genre%3A",genre),  query = list(type="track",limit = 50, offset = 0, access_token = get_spotify_access_token()), quiet = TRUE) %>% content()
  
    track_count <- 50

    df <- map_df(1:length(res$tracks$items), function(this_row) {
        tryCatch({
        this_track <- res$tracks$items[[this_row]]
        name <- this_track$name
        genre <- genre
        list(name = name, genre = genre)
      }, error = function(e){
          NULL
      })
    })
  }
  tracks_df <- lapply(genres_df$genre, get_genre_track) %>% bind_rows()
  tracks_df
}

試したこと

ソースコード中のresを消去したところ、unexpected '$'と表示されました。さらに$を消すと、今度はobject 'tracks' not foundと表示されました。

補足情報（FW/ツールのバージョンなど）

必要なライブラリのインストールやユーザー情報は省略しています。
環境：Exploratory Public，言語：R

Answer 1

定義されてないオブジェクトresをいきなり使おうとするからエラーが出ていますね。お手本にしたはずのサイトに提示されているスクリプトと見比べてみればわかるはずです。

Comments

[pierra]

回答ありがとうございます。引用元のスクリプトには繰り返し処理があったため、その部分を除きたいのですが、どの部分を書き換えれば良いのでしょうか？