From 2d4b95e7dc6ff16aa3566ee469017a4667d497dc Mon Sep 17 00:00:00 2001 From: Petr Bouchal Date: Fri, 15 Mar 2024 18:18:25 +0100 Subject: [PATCH] Revert "switch to live open data" This reverts commit 674ff5446e3032050650d32f26bbb84f2b3a5d81. --- esifopendata-evaluace.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/esifopendata-evaluace.R b/esifopendata-evaluace.R index 3e6c125..91b677c 100644 --- a/esifopendata-evaluace.R +++ b/esifopendata-evaluace.R @@ -11,7 +11,7 @@ options(timeout = 300) ciselniky_xml_url <- "https://ms14opendata.mssf.cz/MatDat.xml" ciselniky_xml_file <- file.path("data-input", "MatDat.xml") -download.file(ciselniky_xml_url, ciselniky_xml_file) +# download.file(ciselniky_xml_url, ciselniky_xml_file) ciselniky_xml <- read_xml(ciselniky_xml_file) cis_op_list <- ciselniky_xml |> @@ -29,8 +29,7 @@ cis_op <- tibble(data = cis_op_list) |> select(-data) |> add_row(tibble(op_zkratka = "NOK (MMR)", op_nazev = "Národní orgán pro koordinaci"), op_kod = "NOK") -# download.file("https://www.dropbox.com/s/20ojei6kw681o5m/file.xml?dl=1", "data-input/Evaluace.xml") -download.file("https://ms14opendata.mssf.cz/Evaluace.xml", "data-input/Evaluace.xml") +download.file("https://www.dropbox.com/s/20ojei6kw681o5m/file.xml?dl=1", "data-input/Evaluace.xml") print(file.size("data-input/Evaluace.xml")) print("downloaded")