In petrbouchal/statnipokladna: Use Data from the Czech Public Finance Database

http://monitor.statnipokladna.cz/xsd/monitorTypes.xsd http://monitor.statnipokladna.cz/2019/monitorws/ http://monitor.statnipokladna.cz/xsd/monitorFin204U.xsd monitor.statnipokladna.cz/xsd/monitor.wsdl

library(httr)
# library(htmltidy)

read_xml("http://monitor.statnipokladna.cz/xsd/monitor.wsdl") %>% 
  xml_view()

rqst_body <- readLines("../request.xml") %>%
  paste0(collapse = "\n")

rqst_body

url = "http://monitor.statnipokladna.cz/2019/monitorws/"

rspns <- POST(url, body = rqst_body) %>%
  content()

rspns %>% xml_child(search = "soap:Body") %>%
  xml_find_first("soap:Fault") %>%
  xml_children() %>% .[3] %>% xml_text()

petrbouchal/statnipokladna documentation built on Aug. 23, 2024, 12:48 a.m.