## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup, message = FALSE---------------------------------------------------
library(tidyr)
library(dplyr)
library(repurrrsive)

## -----------------------------------------------------------------------------
users <- tibble(user = gh_users)

## -----------------------------------------------------------------------------
names(users$user[[1]])

## -----------------------------------------------------------------------------
users |> unnest_wider(user)

## -----------------------------------------------------------------------------
users |> hoist(user,
  followers = "followers",
  login = "login",
  url = "html_url"
)

## -----------------------------------------------------------------------------
repos <- tibble(repo = gh_repos)
repos

## -----------------------------------------------------------------------------
repos <- repos |> unnest_longer(repo)
repos

## -----------------------------------------------------------------------------
repos |> hoist(repo,
  login = c("owner", "login"),
  name = "name",
  homepage = "homepage",
  watchers = "watchers_count"
)

## -----------------------------------------------------------------------------
repos |>
  hoist(repo, owner = "owner") |>
  unnest_wider(owner)

## -----------------------------------------------------------------------------
chars <- tibble(char = got_chars)
chars

chars2 <- chars |> unnest_wider(char)
chars2

## -----------------------------------------------------------------------------
chars2 |> select_if(is.list)

## -----------------------------------------------------------------------------
chars2 |>
  select(name, books, tvSeries) |>
  pivot_longer(c(books, tvSeries), names_to = "media", values_to = "value") |>
  unnest_longer(value)

## -----------------------------------------------------------------------------
chars2 |>
  select(name, title = titles) |>
  unnest_longer(title)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json) |>
  unnest_longer(results)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json) |>
  unnest_longer(results) |>
  unnest_wider(results)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json) |>
  unnest_longer(results) |>
  unnest_wider(results) |>
  unnest_wider(geometry)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json) |>
  unnest_longer(results) |>
  unnest_wider(results) |>
  unnest_wider(geometry) |>
  unnest_wider(location)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  unnest_wider(json) |>
  hoist(results, first_result = 1) |>
  unnest_wider(first_result) |>
  unnest_wider(geometry) |>
  unnest_wider(location)

## -----------------------------------------------------------------------------
repurrrsive::gmaps_cities |>
  hoist(json,
    lat = list("results", 1, "geometry", "location", "lat"),
    lng = list("results", 1, "geometry", "location", "lng")
  )

## -----------------------------------------------------------------------------
discs <- tibble(disc = discog) |>
  unnest_wider(disc) |>
  mutate(date_added = as.POSIXct(strptime(date_added, "%Y-%m-%dT%H:%M:%S")))
discs

## ----error = TRUE-------------------------------------------------------------
try({
discs |> unnest_wider(basic_information)
})

## -----------------------------------------------------------------------------
discs |> unnest_wider(basic_information, names_repair = "unique")

## -----------------------------------------------------------------------------
discs |>
  select(!id) |>
  unnest_wider(basic_information)

## -----------------------------------------------------------------------------
discs |>
  hoist(basic_information,
    title = "title",
    year = "year",
    label = list("labels", 1, "name"),
    artist = list("artists", 1, "name")
  )

## -----------------------------------------------------------------------------
discs |>
  hoist(basic_information, artist = "artists") |>
  select(disc_id = id, artist) |>
  unnest_longer(artist) |>
  unnest_wider(artist)

discs |>
  hoist(basic_information, format = "formats") |>
  select(disc_id = id, format) |>
  unnest_longer(format) |>
  unnest_wider(format) |>
  unnest_longer(descriptions)