prototype GH action to collect RSS feed posts - to be extended (#1479)

.github/workflows/actions.yml

@@ -0,0 +1,42 @@
+name: curatinator
+
+on:
+  workflow_dispatch:
+    inputs:
+      logLevel:
+        description: 'Log level'     
+        required: true
+        default: 'warning'
+      tags:
+        description: 'Manual trigger'  
+  schedule:
+    - cron: '0 9 * * 6' # At 09:00 on Saturday UTC
+
+jobs:
+  import-data:
+    runs-on: ubuntu-latest
+    steps:
+      - name: Set up R
+        uses: r-lib/actions/setup-r@v2
+
+      - name: Install packages
+        uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          packages: |
+            any::tidyverse 
+            any::tidyRSS
+            any::urltools
+
+      - name: Check out repository
+        uses: actions/checkout@v3
+
+      - name: Collect content
+        run: Rscript -e 'source("scripts/curatinator.R")'
+
+      - name: Commit results
+        run: |
+          git config --local user.email "[email protected]"
+          git config --local user.name "GitHub Actions"
+          git add curatinator_latest.md
+          git commit -m 'Auto-collected data updated' || echo "No changes to commit"
+          git push origin || echo "No changes to commit"

scripts/curatinator.R

@@ -0,0 +1,7 @@
+source("scripts/get_rss.R")
+f <- read.csv("rss_feeds.csv")
+f <- f[f$ENABLE == 1, , drop = FALSE]
+x <- get_rss_posts(f$URL)
+
+cat(x, file = "curatinator_latest.md")
+