From ec6cf93c6f99a6921587d7dfe17d3c3605ad4f2c Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Tue, 7 Feb 2023 10:58:33 -0600
Subject: [PATCH] Remove another rectangling example

---
 rectangling.qmd | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/rectangling.qmd b/rectangling.qmd
index 9a2fa92..75edd61 100644
--- a/rectangling.qmd
+++ b/rectangling.qmd
@@ -469,17 +469,6 @@ titles <- chars |>
 titles
 ```
 
-Now, for example, we could use this table to find all the characters that are captains and see all their titles:
-
-```{r}
-captains <- titles |> filter(str_detect(title, "Captain"))
-captains
-
-characters |> 
-  select(id, name) |> 
-  inner_join(titles, by = "id", multiple = "all")
-```
-
 You could imagine creating a table like this for each of the list-columns, then using joins to combine them with the character data as you need it.
 
 ### Deeply nested