[education/rkward] scripts: Fix mirror path, add rk.dplyr

[Thomas Friedrichsmeier]

Git commit 012aa2db2e0064251a4805762bd5466223fb3d01 by Thomas Friedrichsmeier.
Committed on 08/10/2025 at 19:35.
Pushed by tfry into branch 'master'.

Fix mirror path, add rk.dplyr

M  +10   -7    scripts/update_files_kde_org_package_repo.R

https://invent.kde.org/education/rkward/-/commit/012aa2db2e0064251a4805762bd5466223fb3d01

diff --git a/scripts/update_files_kde_org_package_repo.R b/scripts/update_files_kde_org_package_repo.R
index 6628b4b6f..7691bb4d9 100644
--- a/scripts/update_files_kde_org_package_repo.R
+++ b/scripts/update_files_kde_org_package_repo.R
@@ -22,17 +22,19 @@ require(roxyPackage)
 require(tools)
 
 local({
+  main.root.packages <- file.path("/home","thomas","develop","rpackages")
+  repo.root <- file.path(main.root.packages,"repo")
+
   # Sync existing repository. Must work with a specific mirror (rather than files.kde.org), for wget to work well
+  # Mirror needs to support ftp, but specify without protocol, here
   repo_mirror <- "ftp.gwdg.de/pub/linux/kde/extrafiles/rkward/R/"
-  repo.root <- file.path(tempdir(),"repo_rkward")
-  system(paste0("cd ", repo.root, "; wget --mirror ", repo_mirror, " -nH --cut-dirs=", length(strsplit(repo_mirror, "/")[[1]])))
+  dir.create(repo.root)
+  system(paste0("cd ", repo.root, "; wget --mirror ftp://", repo_mirror, " -nH --cut-dirs=", length(strsplit(repo_mirror, "/")[[1]])-1))
   repo.copy <- file.path(tempdir(),"repo_rkward_copy")
   unlink(repo.copy, recursive=TRUE)
   dir.create(repo.copy)
   file.copy(list.files(repo.root, full.names=TRUE), repo.copy, recursive=TRUE, copy.date=TRUE)
 
-  main.root.packages <- file.path("/home","thomas","develop","rpackages")
-
     actions <- c(
         "html",           # update HTML index files
         "package"#,         # build & install plugin package
@@ -52,13 +54,14 @@ local({
 #     "rk.MPT", # documented as broken
 
      # https://github.com/AlfCano
-     "rk.transpose.df",
      "rk.cSplit",
-     "rk.gsub.sub",
+     "rk.dplyr",
      "rk.forcats",
-     "rk.pivot.reshape",
+     "rk.gsub.sub",
      "rk.gtsummary",
+     "rk.pivot.reshape",
      "rk.survey.design",
+     "rk.transpose.df",
      NULL
   )){
     pck.name <- this.plugin