chore: remove unused files
This commit is contained in:
parent
db3b0531af
commit
bd2e7786e7
2 changed files with 0 additions and 31 deletions
|
|
@ -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
|
||||
Loading…
Reference in a new issue