Package 'poddr'

Description

Retrieve ATP episodes

Usage

atp_get_episodes(page_limit = NULL, cache = TRUE)

Arguments

Value

A tibble.

Examples

## Not run: 
# Only the first page with the newest 5 episodes
atp_new <- atp_get_episodes(page_limit = 1)

# The latest and then 50 more
atp_latest <- atp_get_episodes(page_limit = 2)

# Get all episodes (use wisely)
atp_full <- atp_get_episodes()

## End(Not run)

Description

Parse a single ATP page

Usage

atp_parse_page(page)

Arguments

Value

A tibble.

Examples

## Not run: 
session <- polite::bow(url = "https://atp.fm")
page <- polite::scrape(session, query = list(page = 1))
atp_parse_page(page)

## End(Not run)

Description

Cache episode data

Usage

cache_podcast_data(x, dir = "data_cache", filename = NULL, csv = TRUE)

Arguments

Value

Nothing

Examples

## Not run: 
atp_new <- atp_get_episodes(page_limit = 1)
cache_podcast_data(atp_new, csv = FALSE)

## End(Not run)

Description

A thin wrapper around tidyr::pivot_longer() and tidyr::separate_rows().

Usage

gather_people(episodes)

Arguments

Value

A tibble with new columns "role" and "person", one row per person.

Examples

## Not run: 
incomparable <- incomparable_get_episodes(incomparable_get_shows())
incomparable_wide <- gather_people(incomparable)

## End(Not run)

Description

This combines incomparable_parse_stats() and incomparable_parse_archive() to retrieve full episode information including host/guest, durations including seconds, podcast subcategories and topics. Use sparingly to limit unnecessarily hammering the poor webserver!

Usage

incomparable_get_episodes(incomparable_shows, cache = TRUE)

Arguments

Value

A tibble with one row per episode.

Examples

## Not run: 
incomparable_shows <- incomparable_get_shows()
incomparable <- incomparable_get_episodes(incomparable_shows)

## End(Not run)

Description

Parses the show overview page and returns a tibble of show names with corresponding URLs, which in turn can then be passed to incomparable_parse_archive() and incomparable_parse_stats() individually.

Usage

incomparable_get_shows(cache = TRUE)

Arguments

Value

A tibble with following columns:

Columns: 4
$ show        <chr>
$ stats_url   <glue>
$ archive_url <glue>
$ status      <chr>

Examples

## Not run: 
incomparable_get_shows()

## End(Not run)

Description

Not actively used in other functions but could come in handy.

Usage

incomparable_get_subcategories(
  archive_url = "https://www.theincomparable.com/gameshow/archive/"
)

Arguments

Value

A tibble with subcategory links link and category name category

Examples

## Not run: 
incomparable_get_subcategories("https://www.theincomparable.com/gameshow/archive/")

## End(Not run)

Description

Retrieves all episodes for one or more shows passed as a tibble. The archive page does not include full duration information, as it is limited to hours and minutes. Use incomparable_parse_stats() for accurate episode durations.

Usage

incomparable_parse_archive(archive_url)

Arguments

Value

A tibble, with following format:

#> dplyr::glimpse(incomparable_parse_archive(archive_url))
 Columns: 12
 $ number   <chr>
 $ title    <chr>
 $ date     <date>
 $ year     <dbl>
 $ month    <ord>
 $ weekday  <ord>
 $ host     <chr>
 $ guest    <chr>
 $ category <chr>
 $ topic    <chr>
 $ summary  <chr>
 $ network  <chr>

Examples

## Not run: 
archive_url <- "https://www.theincomparable.com/gameshow/archive/"
incomparable_parse_archive(archive_url)

## End(Not run)

Description

The stats.txt files have a slightly different format, especially the host/guest information may differ from what is returned by incomparable_parse_archive(), which implicitly assumes the first person mentioned to be the host of the episode. However, this data source does not include podcast subcategories (e.g. "Old Movie Club") or topic information, which is only available on the archive page.

Usage

incomparable_parse_stats(stats_url)

Arguments

Value

A tibble.

Examples

## Not run: 
incomparable_parse_stats("https://www.theincomparable.com/salvage/stats.txt")

## End(Not run)

Description

Convenience function to display N

Usage

label_n(x, brackets = FALSE)

Arguments

Value

A character of length 1.

Examples

label_n(100)
label_n(tibble::tibble(x = 1:10, y = 1:10), brackets = TRUE)

Description

Converting HH:MM:SS or MM:SS to hms

Usage

parse_duration(x)

Arguments

Value

A numeric of durations in hms::hms().

Note

Only needed to parse durations in The Incomparable stats.txt files.

Examples

parse_duration("32:12")
parse_duration("32:12:04")

Description

Retrieves all episodes for one or more shows passed as a tibble.

Usage

relay_get_episodes(relay_shows, cache = TRUE)

Arguments

Value

A tibble.

Examples

## Not run: 
relay_shows <- relay_get_shows()
relay <- relay_get_episodes(relay_shows)

## End(Not run)

Description

Parses the show overview page and returns a tibble of show names with corresponding feed URLs, which in turn can then be passed to relay_parse_feed() individually.

Usage

relay_get_shows(cache = TRUE)

Arguments

Value

A tibble with one row for each show

Examples

## Not run: 
relay_get_shows()

## End(Not run)

Description

Parses a single feed and returns its content as a tibble.

Usage

relay_parse_feed(url)

Arguments

Value

A tibble.

Examples

## Not run: 
relay_parse_feed(url = "https://www.relay.fm/ungeniused/feed")

## End(Not run)

Description

Update and cache data locally

Usage

update_cached_data(dir = "data_cache")

Arguments

Value

Nothing

Examples

## Not run: 
update_cached_data()

## End(Not run)