From bd2e7786e7f9b9c44f251cf0cbe11f9593f225d9 Mon Sep 17 00:00:00 2001
From: pat-s <patrick.schratz@gmail.com>
Date: Sun, 3 Nov 2024 23:01:24 +0100
Subject: [PATCH] chore: remove unused files

---
 04-create-archive-rds.sh   | 31 -------------------------------
 05-get-updated-cran-pkgs.R |  0
 2 files changed, 31 deletions(-)
 delete mode 100644 04-create-archive-rds.sh
 delete mode 100644 05-get-updated-cran-pkgs.R

diff --git a/04-create-archive-rds.sh b/04-create-archive-rds.sh
deleted file mode 100644
index 969acd5..0000000
--- a/04-create-archive-rds.sh
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/bin/bash
-
-# source: https://stackoverflow.com/a/55337537/4185785
-
-echo '
-library(plyr)
-generateArchive <- function(archiveDir) {
-  archive <- file.info(list.files(archiveDir, recursive = TRUE, full.names = TRUE, pattern = "*.tar.gz"))
-  archive$packageName <- basename(dirname(rownames(archive)))
-  archive$packageFile <- basename(rownames(archive))
-  archive <- dlply(archive, "packageName", function(x) {
-    rownames(x) <- paste0(x$packageName, "/", x$packageFile)
-    x$packageName <- NULL
-    x$packageFile <- NULL
-    x
-  })
-}
-
-archiveDir <- "/root/__linux__/rhel9/4.3/latest/src/contrib/Archive"
-metaPath <- "/root/__linux__/rhel9/4.3/latest/src/contrib//Meta"
-dir.create(metaPath, showWarnings = FALSE)
-archive <- generateArchive(archiveDir)
-attr(archive, "split_type") <- NULL
-attr(archive, "split_labels") <- NULL
-saveRDS(archive, file.path(metaPath, "archive.rds"))
-' >/root/create-archive.R
-
-Rscript /root/create-archive.R
-
-# sync Meta/archive.rds
-aws s3 cp /root/__linux__/rhel9/4.3/latest/src/contrib/Meta/archive.rds s3://cynkra-r-binaries-arm64/__linux__/rhel9/4.3/latest/src/contrib/Meta/archive.rds --acl public-read
diff --git a/05-get-updated-cran-pkgs.R b/05-get-updated-cran-pkgs.R
deleted file mode 100644
index e69de29..0000000