Port script to package

Author: jeroen

.Rbuildignore

@@ -0,0 +1,6 @@
+^.*\.Rproj$
+^\.Rproj\.user$
+^action.yml$
+^Dockerfile$
+^entrypoint.sh$
+

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

DESCRIPTION

@@ -0,0 +1,18 @@
+Package: rforgemirror
+Type: Package
+Title: R-forge Mirror Tools
+Version: 0.1.0
+Authors@R: person("Jeroen", "Ooms", ,"jeroen@berkeley.edu", 
+    role = c("aut", "cre"), comment = c(ORCID = "0000-0002-4035-0289"))
+Description: Mirrors SVN repositories to https://github.com/rforge.
+License: Apache License (>= 2)
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 7.1.1
+Imports:
+    curl,
+    gert,
+    gh,
+    xml2,
+    rvest,
+    sys

Dockerfile

@@ -0,0 +1,17 @@
+FROM ubuntu:focal
+
+ENV DEBIAN_FRONTEND noninteractive
+
+COPY . /pkg
+COPY entrypoint.sh /entrypoint.sh
+
+RUN \
+	apt-get update && \
+	apt-get -y dist-upgrade && \
+	apt-get install -y r-base-core git gcc libcurl4-openssl-dev libssl-dev libgit2-dev libxml2-dev subversion git-svn curl
+
+RUN \
+	R -e 'install.packages("remotes"); remotes::install_local("/pkg")'
+
+ENTRYPOINT ["/entrypoint.sh"]
+

LICENSE.md

@@ -0,0 +1,194 @@
+Apache License
+==============
+
+_Version 2.0, January 2004_
+_&lt;<http://www.apache.org/licenses/>&gt;_
+
+### Terms and Conditions for use, reproduction, and distribution
+
+#### 1. Definitions
+
+“License” shall mean the terms and conditions for use, reproduction, and
+distribution as defined by Sections 1 through 9 of this document.
+
+“Licensor” shall mean the copyright owner or entity authorized by the copyright
+owner that is granting the License.
+
+“Legal Entity” shall mean the union of the acting entity and all other entities
+that control, are controlled by, or are under common control with that entity.
+For the purposes of this definition, “control” means **(i)** the power, direct or
+indirect, to cause the direction or management of such entity, whether by
+contract or otherwise, or **(ii)** ownership of fifty percent (50%) or more of the
+outstanding shares, or **(iii)** beneficial ownership of such entity.
+
+“You” (or “Your”) shall mean an individual or Legal Entity exercising
+permissions granted by this License.
+
+“Source” form shall mean the preferred form for making modifications, including
+but not limited to software source code, documentation source, and configuration
+files.
+
+“Object” form shall mean any form resulting from mechanical transformation or
+translation of a Source form, including but not limited to compiled object code,
+generated documentation, and conversions to other media types.
+
+“Work” shall mean the work of authorship, whether in Source or Object form, made
+available under the License, as indicated by a copyright notice that is included
+in or attached to the work (an example is provided in the Appendix below).
+
+“Derivative Works” shall mean any work, whether in Source or Object form, that
+is based on (or derived from) the Work and for which the editorial revisions,
+annotations, elaborations, or other modifications represent, as a whole, an
+original work of authorship. For the purposes of this License, Derivative Works
+shall not include works that remain separable from, or merely link (or bind by
+name) to the interfaces of, the Work and Derivative Works thereof.
+
+“Contribution” shall mean any work of authorship, including the original version
+of the Work and any modifications or additions to that Work or Derivative Works
+thereof, that is intentionally submitted to Licensor for inclusion in the Work
+by the copyright owner or by an individual or Legal Entity authorized to submit
+on behalf of the copyright owner. For the purposes of this definition,
+“submitted” means any form of electronic, verbal, or written communication sent
+to the Licensor or its representatives, including but not limited to
+communication on electronic mailing lists, source code control systems, and
+issue tracking systems that are managed by, or on behalf of, the Licensor for
+the purpose of discussing and improving the Work, but excluding communication
+that is conspicuously marked or otherwise designated in writing by the copyright
+owner as “Not a Contribution.”
+
+“Contributor” shall mean Licensor and any individual or Legal Entity on behalf
+of whom a Contribution has been received by Licensor and subsequently
+incorporated within the Work.
+
+#### 2. Grant of Copyright License
+
+Subject to the terms and conditions of this License, each Contributor hereby
+grants to You a perpetual, worldwide, non-exclusive, no-charge, royalty-free,
+irrevocable copyright license to reproduce, prepare Derivative Works of,
+publicly display, publicly perform, sublicense, and distribute the Work and such
+Derivative Works in Source or Object form.
+
+#### 3. Grant of Patent License
+
+Subject to the terms and conditions of this License, each Contributor hereby
+grants to You a perpetual, worldwide, non-exclusive, no-charge, royalty-free,
+irrevocable (except as stated in this section) patent license to make, have
+made, use, offer to sell, sell, import, and otherwise transfer the Work, where
+such license applies only to those patent claims licensable by such Contributor
+that are necessarily infringed by their Contribution(s) alone or by combination
+of their Contribution(s) with the Work to which such Contribution(s) was
+submitted. If You institute patent litigation against any entity (including a
+cross-claim or counterclaim in a lawsuit) alleging that the Work or a
+Contribution incorporated within the Work constitutes direct or contributory
+patent infringement, then any patent licenses granted to You under this License
+for that Work shall terminate as of the date such litigation is filed.
+
+#### 4. Redistribution
+
+You may reproduce and distribute copies of the Work or Derivative Works thereof
+in any medium, with or without modifications, and in Source or Object form,
+provided that You meet the following conditions:
+
+* **(a)** You must give any other recipients of the Work or Derivative Works a copy of
+this License; and
+* **(b)** You must cause any modified files to carry prominent notices stating that You
+changed the files; and
+* **(c)** You must retain, in the Source form of any Derivative Works that You distribute,
+all copyright, patent, trademark, and attribution notices from the Source form
+of the Work, excluding those notices that do not pertain to any part of the
+Derivative Works; and
+* **(d)** If the Work includes a “NOTICE” text file as part of its distribution, then any
+Derivative Works that You distribute must include a readable copy of the
+attribution notices contained within such NOTICE file, excluding those notices
+that do not pertain to any part of the Derivative Works, in at least one of the
+following places: within a NOTICE text file distributed as part of the
+Derivative Works; within the Source form or documentation, if provided along
+with the Derivative Works; or, within a display generated by the Derivative
+Works, if and wherever such third-party notices normally appear. The contents of
+the NOTICE file are for informational purposes only and do not modify the
+License. You may add Your own attribution notices within Derivative Works that
+You distribute, alongside or as an addendum to the NOTICE text from the Work,
+provided that such additional attribution notices cannot be construed as
+modifying the License.
+
+You may add Your own copyright statement to Your modifications and may provide
+additional or different license terms and conditions for use, reproduction, or
+distribution of Your modifications, or for any such Derivative Works as a whole,
+provided Your use, reproduction, and distribution of the Work otherwise complies
+with the conditions stated in this License.
+
+#### 5. Submission of Contributions
+
+Unless You explicitly state otherwise, any Contribution intentionally submitted
+for inclusion in the Work by You to the Licensor shall be under the terms and
+conditions of this License, without any additional terms or conditions.
+Notwithstanding the above, nothing herein shall supersede or modify the terms of
+any separate license agreement you may have executed with Licensor regarding
+such Contributions.
+
+#### 6. Trademarks
+
+This License does not grant permission to use the trade names, trademarks,
+service marks, or product names of the Licensor, except as required for
+reasonable and customary use in describing the origin of the Work and
+reproducing the content of the NOTICE file.
+
+#### 7. Disclaimer of Warranty
+
+Unless required by applicable law or agreed to in writing, Licensor provides the
+Work (and each Contributor provides its Contributions) on an “AS IS” BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied,
+including, without limitation, any warranties or conditions of TITLE,
+NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A PARTICULAR PURPOSE. You are
+solely responsible for determining the appropriateness of using or
+redistributing the Work and assume any risks associated with Your exercise of
+permissions under this License.
+
+#### 8. Limitation of Liability
+
+In no event and under no legal theory, whether in tort (including negligence),
+contract, or otherwise, unless required by applicable law (such as deliberate
+and grossly negligent acts) or agreed to in writing, shall any Contributor be
+liable to You for damages, including any direct, indirect, special, incidental,
+or consequential damages of any character arising as a result of this License or
+out of the use or inability to use the Work (including but not limited to
+damages for loss of goodwill, work stoppage, computer failure or malfunction, or
+any and all other commercial damages or losses), even if such Contributor has
+been advised of the possibility of such damages.
+
+#### 9. Accepting Warranty or Additional Liability
+
+While redistributing the Work or Derivative Works thereof, You may choose to
+offer, and charge a fee for, acceptance of support, warranty, indemnity, or
+other liability obligations and/or rights consistent with this License. However,
+in accepting such obligations, You may act only on Your own behalf and on Your
+sole responsibility, not on behalf of any other Contributor, and only if You
+agree to indemnify, defend, and hold each Contributor harmless for any liability
+incurred by, or claims asserted against, such Contributor by reason of your
+accepting any such warranty or additional liability.
+
+_END OF TERMS AND CONDITIONS_
+
+### APPENDIX: How to apply the Apache License to your work
+
+To apply the Apache License to your work, attach the following boilerplate
+notice, with the fields enclosed by brackets `[]` replaced with your own
+identifying information. (Don't include the brackets!) The text should be
+enclosed in the appropriate comment syntax for the file format. We also
+recommend that a file or class name and description of purpose be included on
+the same “printed page” as the copyright notice for easier identification within
+third-party archives.
+
+    Copyright [yyyy] [name of copyright owner]
+
+    Licensed under the Apache License, Version 2.0 (the "License");
+    you may not use this file except in compliance with the License.
+    You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+    Unless required by applicable law or agreed to in writing, software
+    distributed under the License is distributed on an "AS IS" BASIS,
+    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+    See the License for the specific language governing permissions and
+    limitations under the License.

NAMESPACE

@@ -0,0 +1,6 @@
+# Generated by roxygen2: do not edit by hand
+
+export(rforge_cleanup_repos)
+export(rforge_find_projects)
+export(rforge_list_repos)
+export(rforge_mirror)

R/rforge.R

@@ -0,0 +1,118 @@
+#' R-forge mirror tools
+#'
+#' Mirrors SVN repositories to \url{https://github.com/rforge}
+#'
+#' @export
+#' @name rforge-mirror
+#' @rdname rforge
+#' @param this_week by default we only mirror repositories with activity in
+#' the past week. Set this to FALSE to mirror all repos we can find.
+rforge_mirror <- function(this_week = TRUE){
+  user <- gh::gh_whoami()
+  if(!(user$login %in% c('rforge', 'r-forge')))
+    stop("No valid PAT found for r-forge user")
+  projects <- rforge_find_projects(this_week = this_week)
+  projects <- setdiff(projects, skiplist)
+  lapply(projects, mirror_one_project)
+  invisible()
+}
+
+#' @export
+#' @rdname rforge
+rforge_find_projects <- function(this_week = TRUE){
+  url <- 'http://r-forge.r-project.org/top/mostactive.php'
+  if(isTRUE(this_week))
+    url <- paste0(url, '?type=week')
+  projects <- find_projects(url)
+  sort(basename(unlist(projects)))
+}
+
+find_projects <- function(page){
+  main <- xml2::read_html(page)
+  links <- rvest::html_nodes(main, 'a[href^="https://r-forge.r-project.org/projects/"]')
+  cat(sprintf("Found %d projects in %s\n", length(links), basename(page)))
+  rvest::html_attr(links, "href")
+}
+
+mirror_one_project <- function(project){
+  create_gh_repo(project)
+  clone_and_push(project)
+}
+
+create_gh_repo <- function(project){
+  endpoint <- paste0('/repos/rforge/', project)
+  tryCatch({
+    res <- gh::gh(endpoint)
+    cat(sprintf('Found existing repo "%s"\n', res$full_name))
+  }, http_error_404 = function(e){
+    cat(sprintf('Did not find repo "%s". Creating new repo...\n', project))
+    res <- gh::gh('/user/repos', .method = 'POST',
+           name = project,
+           has_issues = FALSE,
+           has_wiki = FALSE,
+           has_downloads = FALSE,
+           homepage = paste0("https://r-forge.r-project.org/projects/", project),
+           description = sprintf("Read-only mirror of \"%s\" from r-forge SVN.", project))
+    cat(sprintf('Created new repo "%s"\n', res$full_name))
+  })
+}
+
+clone_and_push <- function(project){
+  pwd <- getwd()
+  on.exit(setwd(pwd))
+  sys::exec_wait("git", c("svn", "clone", sprintf("svn://svn.r-forge.r-project.org/svnroot/%s", project), project))
+  setwd(project)
+  gert::git_remote_add('origin', sprintf('https://github.com/rforge/%s.git', project))
+  gert::git_push('origin', force = TRUE, mirror = TRUE)
+  setwd("..")
+  unlink(project, recursive = TRUE)
+}
+
+#' @rdname rforge
+#' @export
+rforge_list_repos <- function(){
+  repos <- gh::gh('/users/rforge/repos', .limit = 1e5)
+  vapply(repos, function(x){x$name}, character(1))
+}
+
+#' @rdname rforge
+#' @export
+rforge_cleanup_repos <- function(){
+  repos <- rforge_list_repos()
+  status <- rforge_project_status(repos)
+  dead <- repos[which(status == 404)]
+  cat("Found dead repositories:", dead)
+  lapply(dead, function(project){
+    endpoint <- paste0("/repos/rforge/", project)
+    gh::gh(endpoint, .method = 'DELETE')
+  })
+}
+
+rforge_project_status <- function(projects){
+  out <- rep(0, length(projects))
+  pool <- curl::new_pool()
+  lapply(seq_along(projects), function(i){
+    name <- projects[i]
+    url <- paste0("https://r-forge.r-project.org/projects/", name)
+    curl::curl_fetch_multi(url, done = function(res){
+      out[i] <<- res$status_code
+      cat(sprintf("Project '%s' is %d\n", name, res$status_code), file = stderr())
+    }, pool = pool)
+  })
+  curl::multi_run(pool = pool)
+  structure(out, names = projects)
+}
+
+# These fail for whatever reason.
+# Usually either disabled on r-forge or has files bigger than 100MB
+skiplist <-
+  c("adrminer", "arules", "bayessdeevol", "bbmm-analysis", "biocep-distrib",
+    "casper", "dcgor", "dnet", "dtrees2", "dtw", "estimators4nfi",
+    "flr", "fpt", "fxregime", "gamboostlss", "genabel", "gsdesign",
+    "gsif", "gsmoothr", "gwidgets", "hmmr", "htda", "ihelp", "ipeglim",
+    "jmr", "laicpms", "metasem", "mmsa", "morgan-rtools", "mpdir",
+    "msgl", "multivarseg", "nem", "neuroim", "oem", "omearalab",
+    "open-tfdea", "optbiomarker", "patchwork", "pmoments", "polyploid",
+    "ptauxpc", "rftestproject12", "r-survey", "seqinr", "sprint",
+    "teatime", "toxcast", "trajectory-sim", "treevo", "tuner", "waveslim",
+    "wavetiling", "hyperspec")

action.yml

@@ -0,0 +1,15 @@
+name: 'Mirroring R-Forge to GitHub'
+description: 'Mirror R-Forge repos to GitHub'
+inputs:
+  full:
+    description: Perform a full mirror of all repos
+    default: false
+  cleanup:
+    description: Delete dead r-forge repos
+    default: false
+runs:
+  using: 'docker'
+  image: 'docker://runiverse/rforge-mirror'
+  args:
+    - ${{ inputs.full }}
+    - ${{ inputs.cleanup }}