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.