read_sf_felt.R

# read_sf_felt(
#   "https://felt.com/embed/map/Example-Greatest-Bowling-Alleys-in-the-US-W9A04huJxTSCxfESYhkY9AOA"
# )

read_sf_felt <- function(url) {
  req <-
    httr2::request(
      url
    )

  resp <-
    httr2::req_perform(
      req
    )

  data <-
    xml2::as_list(
      httr2::resp_body_html(
        resp
      )
    )

  data <-
    jsonlite::parse_json(
      data$html$body$div$div[[1]]
    )
  
  data
}