044

michalovadek · Nov 20, 2022 · 5a516f4 · 5a516f4
1 parent d3aa217
commit 5a516f4
Show file tree

Hide file tree

Showing 27 changed files with 1,144 additions and 533 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -7,7 +7,7 @@ Authors@R: c(person(given = "Michal",
              role = c("aut", "cre", "cph"),
              email = "[email protected]",
              comment = c(ORCID = "0000-0002-2552-2580")))
-Description: Access to data on European Union laws and court decisions made easy with pre-defined 'SPARQL' queries and 'GET' requests.
+Description: Access to data on European Union laws and court decisions made easy with pre-defined 'SPARQL' queries and 'GET' requests. See Ovadek (2021) <doi:10.1080/2474736X.2020.1870150> .
 License: GPL-3
 Encoding: UTF-8
 Language: en-US

diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,8 @@
 ## Minor changes
 
 - minor changes to vignettes and examples to reduce build time
+- more stable connection through `elx_curia_list()`
+- fun CRAN policy compliance stuff
 
 # eurlex 0.4.3
 

diff --git a/R/elx_curia_list.R b/R/elx_curia_list.R
@@ -13,8 +13,8 @@
 #' @importFrom rlang .data
 #' @export
 #' @examples
-#' \dontrun{
-#' elx_curia_list(data = "cst_all")
+#' \donttest{
+#' elx_curia_list(data = "cst_all", parse = FALSE)
 #' }
 
 elx_curia_list <- function(data = c("all","ecj_old","ecj_new","gc_all","cst_all"),
@@ -101,7 +101,7 @@ elx_curia_list <- function(data = c("all","ecj_old","ecj_new","gc_all","cst_all"
 
 elx_curia_scraper <- function(url, ...){
 
-  page <- xml2::read_html(url)
+  page <- xml2::read_html(url(url, open = "rb"))
 
   tab <- page %>%
     rvest::html_node("table") %>%

diff --git a/R/elx_download_xml.R b/R/elx_download_xml.R
@@ -15,8 +15,10 @@
 #' Path of downloaded file (invisibly) if server validates request (http status code has to be 200). For more information about notices, see Cellar documentation.
 #' @export
 #' @examples
-#' \dontrun{
-#' elx_download_xml(url = "http://publications.europa.eu/resource/celex/32014R0001", notice = "object")
+#' \donttest{
+#' temploc <- paste(tempdir(), "elxnotice.xml", sep = "\\")
+#' elx_download_xml(url = "http://publications.europa.eu/resource/celex/32022D0154",
+#'  file = temploc, notice = "object")
 #' }
 
 elx_download_xml <- function(url, file = paste(basename(url), ".xml", sep = ""),

diff --git a/R/elx_fetch_data.R b/R/elx_fetch_data.R
@@ -13,7 +13,7 @@
 #' A character vector of length one containing the result. When `type = "text"`, named character vector where the name contains the source of the text.
 #' @export
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' elx_fetch_data(url = "http://publications.europa.eu/resource/celex/32014R0001", type = "title")
 #' }
 

diff --git a/R/elx_label_eurovoc.R b/R/elx_label_eurovoc.R
@@ -9,9 +9,8 @@
 #' A `tibble` containing EuroVoc unique concept identifiers and labels.
 #' @export
 #' @examples
-#' \dontrun{
-#' elx_label_eurovoc(uri_eurovoc = "http://eurovoc.europa.eu/5760", alt_labels = TRUE, language = "fr")
-#' elx_label_eurovoc(uri_eurovoc = c("http://eurovoc.europa.eu/5760","http://eurovoc.europa.eu/576"))
+#' \donttest{
+#' elx_label_eurovoc(uri_eurovoc = "http://eurovoc.europa.eu/5760", language = "fr")
 #' }
 
 

diff --git a/doc/eurlexpkg.html b/doc/eurlexpkg.html
diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/articles/eurlexpkg.html b/docs/articles/eurlexpkg.html
diff --git a/docs/articles/eurlexpkg_files/figure-html/wordcloud-1.png b/docs/articles/eurlexpkg_files/figure-html/wordcloud-1.png
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,7 +1,7 @@
-pandoc: 2.14.0.3
-pkgdown: 2.0.2
+pandoc: '2.18'
+pkgdown: 2.0.6
 pkgdown_sha: ~
 articles:
   eurlexpkg: eurlexpkg.html
-last_built: 2022-11-17T00:04Z
+last_built: 2022-11-20T11:43Z
 
diff --git a/docs/reference/elx_council_votes.html b/docs/reference/elx_council_votes.html
diff --git a/docs/reference/elx_curia_list.html b/docs/reference/elx_curia_list.html