inst/doc/rectangle.R

## ---- 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------------------------------------------------------------
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)

Try the tidyr package in your browser

Any scripts or data that you put into this service are public.

tidyr documentation built on Feb. 16, 2023, 7:40 p.m.