Handle invalid JSON from API; fixes #52

petrbouchal · Aug 21, 2023 · 2092fde · 2092fde
1 parent e0aa7c1
commit 2092fde
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -32,4 +32,4 @@ RdMacros:
 Encoding: UTF-8
 Language: en
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.1.9000
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # czso (development version)
 
+* fix (hopefully temporary) to handle invalid JSON from e.g. https://vdb.czso.cz/pll/eweb/package_show?id=150196 (newlines, issue reported as #52)
+
 # czso 0.3.10
 
 * update Roxygen2 version and rebuild documentation to handle CRAN validation of HTML manual

diff --git a/R/core.R b/R/core.R
@@ -115,7 +115,8 @@ czso_get_dataset_metadata <- function(dataset_id) {
                       httr::user_agent(ua_string)) %>%
     httr::stop_for_status() %>%
     httr::content(as = "text")
-  mtdt <- jsonlite::fromJSON(mtdt_c)[["result"]]
+  mtdt_clean <- stringi::stri_replace_all_regex(mtdt_c, "\\n", "")
+  mtdt <- jsonlite::fromJSON(mtdt_clean)[["result"]]
   if(is.null(mtdt)) cli::cli_abort("No dataset found with this ID.")
   return(mtdt)
 }