¿Dónde están nuestros invitados?

library(leaflet)
library(rjson)
library(tidyverse)
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.3          ✔ readr     2.1.4     
✔ forcats   1.0.0          ✔ stringr   1.5.0     
✔ ggplot2   3.5.0.9000     ✔ tibble    3.2.1     
✔ lubridate 1.9.2          ✔ tidyr     1.3.0     
✔ purrr     1.0.2          
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
episodes <- fromJSON(file = "episodes.json") |>
    pluck('items') |>
    magrittr::extract(-1) |>
    pluck('author')
    
episodes |>
    map_dfr(
    \(x) {
      tibble(
        "id" = x |> pluck('id'),
        "author" = x |> pluck('author')
      )
    }
  )
# A tibble: 0 × 0
ven_rhi %>% 
  left_join(coords) %>% 
  leaflet() %>% 
  addTiles() %>%
  fitBounds(~min(longitude), ~min(latitude), 
            ~max(longitude), ~max(latitude)) %>% 
  addCircleMarkers(color = rhi_col,
                   fillOpacity = 1)