documentation

.github/workflows/pkgdown.yaml

@@ -1,8 +1,10 @@
-# Workflow derived from https://github.com/r-lib/actions/tree/master/examples
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
     branches: [main, master]
+  pull_request:
+    branches: [main, master]
   release:
     types: [published]
   workflow_dispatch:
@@ -12,8 +14,13 @@ name: pkgdown
 jobs:
   pkgdown:
     runs-on: ubuntu-latest
+    # Only restrict concurrency for non-PR jobs
+    concurrency:
+      group: pkgdown-${{ github.event_name != 'pull_request' || github.run_id }}
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+    permissions:
+      contents: write
     steps:
       - uses: actions/checkout@v3
 
@@ -25,11 +32,17 @@ jobs:
 
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
-          extra-packages: pkgdown
+          extra-packages: any::pkgdown, local::.
           needs: website
 
-      - name: Deploy package
-        run: |
-          git config --local user.name "$GITHUB_ACTOR"
-          git config --local user.email "[email protected]"
-          Rscript -e 'pkgdown::deploy_to_branch(new_process = FALSE)'
+      - name: Build site
+        run: pkgdown::build_site_github_pages(new_process = FALSE, install = FALSE)
+        shell: Rscript {0}
+
+      - name: Deploy to GitHub pages
+        if: github.event_name != 'pull_request'
+        uses: JamesIves/[email protected]
+        with:
+          clean: false
+          branch: gh-pages
+          folder: docs

doc/eurlexpkg.R

@@ -97,8 +97,9 @@ rec_eurovoc %>%
 # we can use purrr::map() to play that role
 library(purrr)
 
-# wrapping in possibly() catches errors in case there is a server issue
+# wrapping in possibly() would catch errors in case there is a server issue
 dir_titles <- results[1:5,] %>% # take the first 5 directives only to save time
+  mutate(work = paste("http://publications.europa.eu/resource/cellar/", work, sep = "")) |> 
   mutate(title = map_chr(work, possibly(elx_fetch_data, otherwise = NA_character_),
                          "title")) %>% 
   as_tibble() %>% 
@@ -133,6 +134,7 @@ dirs %>%
 dirs_1970_title <- dirs %>% 
   filter(between(as.Date(date), as.Date("1970-01-01"), as.Date("1973-01-01")),
          force == "true") %>% 
+  mutate(work = paste("http://publications.europa.eu/resource/cellar/", work, sep = "")) |> 
   mutate(title = map_chr(work, possibly(elx_fetch_data, otherwise = NA_character_),
                          "title")) %>%  
   as_tibble()

doc/eurlexpkg.Rmd

@@ -185,8 +185,9 @@ One of the most sought-after data in the Eur-Lex dataverse is the text. It is po
 # we can use purrr::map() to play that role
 library(purrr)
 
-# wrapping in possibly() catches errors in case there is a server issue
+# wrapping in possibly() would catch errors in case there is a server issue
 dir_titles <- results[1:5,] %>% # take the first 5 directives only to save time
+  mutate(work = paste("http://publications.europa.eu/resource/cellar/", work, sep = "")) |> 
   mutate(title = map_chr(work, possibly(elx_fetch_data, otherwise = NA_character_),
                          "title")) %>% 
   as_tibble() %>% 
@@ -237,6 +238,7 @@ We want to know a bit more about some directives from the early 1970s that are s
 dirs_1970_title <- dirs %>% 
   filter(between(as.Date(date), as.Date("1970-01-01"), as.Date("1973-01-01")),
          force == "true") %>% 
+  mutate(work = paste("http://publications.europa.eu/resource/cellar/", work, sep = "")) |> 
   mutate(title = map_chr(work, possibly(elx_fetch_data, otherwise = NA_character_),
                          "title")) %>%  
   as_tibble()

docs/pkgdown.yml

@@ -1,7 +1,7 @@
-pandoc: 2.19.2
+pandoc: 3.1.1
 pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   eurlexpkg: eurlexpkg.html
-last_built: 2023-04-12T21:54Z
+last_built: 2023-08-09T11:02Z