In jemus42/poddr: Collect Metadata for Selected Podcasts

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

poddr

The goal of poddr is to collect podcast data so I can display it at podcasts.jemu.name. It's not intended to be a real package for real people.

Installation

You can install the released version of poddr from here with:

remotes::install_github("jemus42/poddr")

Example

Here's the bulk of what's inside the tin:

library(dplyr, warn.conflicts = FALSE)
library(poddr)

The Incomparable

The basic workflow is simple:

1. Get a list of all the shows on the network, including the relevant URLs for further parsing.
2. Get all the episodes of the shows selected. To not bother the webserver too much, I'm limiting the selection to a single show.

incomparable_shows <- incomparable_get_shows()
incomparable_shows

incomparable_episodes <- incomparable_shows |>
  filter(show == "Unjustly Maligned") |>
  incomparable_get_episodes()

incomparable_episodes

Relay.fm

Same procedure as before, also with one show.

relay_shows <- relay_get_shows()
relay_shows

relay_episodes <- relay_shows |>
  filter(show == "Connected") |>
  relay_get_episodes()

relay_episodes

ATP

Since there's only one show, there's no reason to select one specifically, obviously. However, the website doesn't show a list of all episodes on one page, so we'll have to either parse all pages (there's currently 10 total as of December 2020), or select a limit, like 1, to only get episodes from the first page. The first page shows the 5 most recent episodes, and subsequent pages show 50 episodes each.

atp <- atp_get_episodes(page_limit = 1)
atp

# Looking at the links
atp |>
  tidyr::unnest(links) |>
  select(number, title, link_text, link_url, link_type)

For all the nice people

The regular episode data contains one row per episode, with associated people in a single cell with names separated by ;. In some cases we're interested in per-person data, for example the total number of appearances of a person on The Incomparable mothership, so we'll longify the data with a helper function that performs the tidyr::pivot_longer() and tidyr::separate_rows() steps consistently.

Note that relay.fm data only includes "hosts", as there's no separate guest information, so the host/guest distinction is redundant in that case.

incomparable_episodes |>
  gather_people() |>
  select(show, number, person, role)

relay_episodes |>
  gather_people() |>
  select(show, number, person, role)

jemus42/poddr documentation built on April 5, 2025, 2:57 a.m.