rselenium-rsdriver.R

library(RSelenium)

selenium_driver <- rsDriver(browser = "firefox")

selenium_driver$client$navigate("https://impffrei.work/wp-sitemap-posts-job_listing-1.xml") # :facepalm:

Sys.sleep(12)

page_source <- selenium_driver$client$getPageSource()

selenium_driver$server$stop()

html <- xml2::read_html(page_source[[1]])

library(rvest)

urls <- html |>
  html_elements("#sitemap__table a") |>
  html_attr("href")