skoly.R

library(dplyr)
library(rvest)

html <- read_xml("https://rejstriky.msmt.cz/opendata/vrejcelk.xml", as_html = TRUE)

subjekty <- html %>% 
  html_nodes("pravnisubjekt")

parse_skola <- function(subjekt){
  tibble(
    nazev = subjekt %>% 
      html_node("redplnynazev") %>% 
      html_text(),
    zrizovatel_ico = subjekt %>% 
      html_node("zrizico") %>% 
      html_text()
  )
}
 
parse_skola(subjekty[[1]])

purrr::map_dfr(subjekty, parse_skola)