NotificationsYou must be signed in to change notification settings
Fork75
Star772

Commit8413821

committed

Repo: remove rc, make it a link to stable, dev as well

* To save space we remove the `rc` tag, and make it a "link" to `stable`.* Similarly, to save space, we remove the `dev` symlink and make it a repo "link" to `stable`. (Symlinks are expanded then the files are deployed to GH Pages.)[ci skip]

1 parente8f6e53 commit8413821Copy full SHA for 8413821

File tree

1 file changed

+70

-14

lines changed

R
- push-packages.R

1 file changed

+70

-14

lines changed

`‎R/push-packages.R‎`

Lines changed: 70 additions & 14 deletions

Original file line number	Diff line number	Diff line change
`@@ -615,17 +615,10 @@ push_packages <- local({`
`615`	`615`	`version<- unclass(package_version(`
`616`	`616`	`desc::desc_get(file=paths[1],"Version")`
`617`	`617`	`))[[1]]`
`618`		`-if (length(version)>=4&&version[4]==9999) {`
`619`		`-# rc is also pushed to devel, as devel should be the latest`
`620`		`-p1<- push_packages(paths,"rc",keep_old,dry_run,cleanup)`
`621`		`-p2<- push_packages(paths,"devel",keep_old,dry_run,cleanup)`
`622`		`-return(invisible(rbind(p1,p2)))`
`623`		`- }elseif (length(version)>=4&&version[4]>=9000) {`
	`618`	`+if (length(version)>=4&&version[4]>=9000) {`
`624`	`619`	`tag<-"devel"`
`625`	`620`	`}else {`
`626`		`-# stable is also pushed to rc`
`627`	`621`	`p1<- push_packages(paths,"stable",keep_old,dry_run,cleanup)`
`628`		`-p2<- push_packages(paths,"rc",keep_old,dry_run,cleanup)`
`629`	`622`	`return(invisible(rbind(p1,p2)))`
`630`	`623`	`}`
`631`	`624`	`}`
`@@ -682,7 +675,8 @@ create_pak_repo <- local({`
`682`	`675`	`read_metadata<- import_from("push_packages","read_metadata")`
`683`	`676`	`sha256<- import_from("push_packages","sha256")`
`684`	`677`
`685`		`-tags<- c("stable","rc","devel")`
	`678`	`+tags<- c("stable","devel")`
	`679`	`+tag_aliases<-list(stable= c("rc","dev"),devel=character())`
`686`	`680`
`687`	`681`	`cpu_map<- c(`
`688`	`682`	`"arm64"="aarch64",`
`@@ -1045,7 +1039,13 @@ create_pak_repo <- local({`
`1045`	`1039`	`}`
`1046`	`1040`	`}`
`1047`	`1041`
`1048`		`-create_package_repo_tag<-function(root,workdir,tag,dry_run=FALSE) {`
	`1042`	`+create_package_repo_tag<-function(`
	`1043`	`+root,`
	`1044`	`+workdir,`
	`1045`	`+tag,`
	`1046`	`+tag_aliases,`
	`1047`	`+dry_run=FALSE`
	`1048`	`+ ) {`
`1049`	`1049`	`data<- read_metadata(workdir,tag)`
`1050`	`1050`	`plat<- parse_platform(data$r.platform)`
`1051`	`1051`	`cpu<-cpu_map[plat$cpu] %NA%plat$cpu`
`@@ -1096,9 +1096,61 @@ create_pak_repo <- local({`
`1096`	`1096`	`create_packages_files(data,root,tag)`
`1097`	`1097`
`1098`	`1098`	`add_repo_links(root,tag)`
	`1099`	`+for (aliasintag_aliases) {`
	`1100`	`+ add_repo_tag_alias(root,tag,alias)`
	`1101`	`+ }`
	`1102`	`+ }`
	`1103`	`+`
	`1104`	`+add_repo_tag_alias<-function(root,tag,alias) {`
	`1105`	`+pkg_files<- dir(`
	`1106`	`+ file.path(root,tag),`
	`1107`	`+pattern="^PACKAGES$",`
	`1108`	`+recursive=TRUE`
	`1109`	`+ )`
	`1110`	`+pkg_dirs<- dirname(pkg_files)`
	`1111`	`+for (pkg_dirinpkg_dirs) {`
	`1112`	`+link<- file.path(root,alias,pkg_dir)`
	`1113`	`+ mkdirp(link)`
	`1114`	`+origfile<- file.path(root,tag,pkg_dir,"PACKAGES")`
	`1115`	`+linkfile<- file.path(link,"PACKAGES")`
	`1116`	`+ file.copy(origfile,linkfile,overwrite=TRUE)`
	`1117`	`+lines<- readLines(origfile)`
	`1118`	`+paths<- grepl("^Path:",lines)`
	`1119`	`+if (sum(paths)>0) {`
	`1120`	`+lines[paths]<- sub(`
	`1121`	`+"[.][.]/(?=[a-z])",`
	`1122`	`+ paste0("../../",tag,"/"),`
	`1123`	`+lines[paths],`
	`1124`	`+perl=TRUE`
	`1125`	`+ )`
	`1126`	`+ }else {`
	`1127`	`+lines<- c(lines,"")`
	`1128`	`+entry<- paste0(`
	`1129`	`+"Path:",`
	`1130`	`+ strrep("../", str_count(pkg_dir,"/")+2),`
	`1131`	`+tag,`
	`1132`	`+"/",`
	`1133`	`+pkg_dir,`
	`1134`	`+"\n"`
	`1135`	`+ )`
	`1136`	`+lines[nchar(lines)==0]<-entry`
	`1137`	`+ }`
	`1138`	`+ writeLines(lines,linkfile)`
	`1139`	`+tab<- read.dcf(linkfile,all=TRUE)`
	`1140`	`+ write_dcf(tab,linkfile,quiet=TRUE)`
	`1141`	`+ }`
`1099`	`1142`	`}`
`1100`	`1143`
`1101`		`-create_pak_repo<-function(path="repo",dry_run=FALSE,cleanup=TRUE) {`
	`1144`	`+str_count<-function(str,chr) {`
	`1145`	`+ sum(charToRaw(str)== charToRaw(chr))`
	`1146`	`+ }`
	`1147`	`+`
	`1148`	`+create_pak_repo<-function(`
	`1149`	`+path="repo",`
	`1150`	`+aliases=NULL,`
	`1151`	`+dry_run=FALSE,`
	`1152`	`+cleanup=TRUE`
	`1153`	`+ ) {`
`1102`	`1154`	`workdir<- package_dir()`
`1103`	`1155`	`if (!file.exists(workdir)) {`
`1104`	`1156`	`init_package_dir(workdir,dry_run=dry_run)`
`@@ -1114,9 +1166,13 @@ create_pak_repo <- local({`
`1114`	`1166`	`cat("\n",file= file.path(path,".nojekyll"))`
`1115`	`1167`
`1116`	`1168`	`for (tagintags) {`
`1117`		`- create_package_repo_tag(root,workdir,tag=tag,dry_run=dry_run)`
	`1169`	`+ create_package_repo_tag(`
	`1170`	`+root,`
	`1171`	`+workdir,`
	`1172`	`+tag=tag,`
	`1173`	`+tag_aliases=tag_aliases[[tag]],`
	`1174`	`+dry_run=dry_run`
	`1175`	`+ )`
`1118`	`1176`	`}`
`1119`		`-`
`1120`		`- file.symlink("stable", file.path(root,"dev"))`
`1121`	`1177`	`}`
`1122`	`1178`	`})`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit8413821

File tree

1 file changed

1 file changed

`‎R/push-packages.R‎`

0 commit comments