data.qmd

---
title: Data
format:
  html:
    page-layout: full
    toc: false
---

## Works

```{r}
#| echo: false
#| message: false
library(gt)
library(dplyr)

sf::sf_use_s2(FALSE)

works <- readr::read_rds(here::here("data", "works.rda"))

works_df <- works |> 
  sf::st_drop_geometry() |> 
  mutate(
    across(
      all_of(c("title", "location", "street_address", "primary_artist", "medium")),
      ~ stringr::str_wrap(.x, width = 35)
    ),
    across(
      all_of(c("primary_artist", "medium")),
      ~ stringr::str_replace_all(.x, ",", ", ")
    )
  )

works_df |> 
  select(
    all_of(c("title", "year", "primary_artist", "medium", "status", "type",  "street_address", "location", "neighborhood"))
  ) |> 
  gt() |> 
  opt_interactive(
    use_search = TRUE,
    use_compact_mode = TRUE,
    use_filters = TRUE,
    use_resizers = TRUE,
    pagination_type = "jump"
  )
```