Everyman - Premier Tickets (will need Selenium)

everyman.R

t <- "https://www.everymancinema.com/bristol"

today <- "2021-07-21"

tmp <- read_html(t) %>%
  html_nodes(
    xpath = glue::glue(
      '//div[@data-film-session="{today}"] //*[contains(concat( " ", @class, " " ), concat( " ", "filmTimeItem", " " ))]',
      today = today
    )
  ) %>%
  rvest::html_attr("href") %>%
  data.frame(temp = .) %>%
  mutate(temp = last(unlist(stringr::str_split(temp, "/"))))

t2 <-
  paste0("https://www.everymancinema.com/booking/Bristol/",
         tmp$temp[1])

tmp2 <- read_html(t2, ) %>%
  html_nodes(".book-tickets") %>%
  html_text() %>%
  as.data.frame()