diff --git a/version.qmd b/version.qmd index f350145..cb452ec 100644 --- a/version.qmd +++ b/version.qmd @@ -14,17 +14,18 @@ tibble::tibble(branch = system("git branch -a", intern = TRUE)) |> dplyr::filter(grepl("remotes", branch)) |> dplyr::filter(!grepl("HEAD", branch)) |> dplyr::mutate(branch = gsub("^.*\\/", "", branch)) |> + dplyr::arrange(desc(branch)) |> dplyr::mutate( htmlstr = paste0( "## [**Version**: ", branch, "](https://drc.drwater.net/{{< var projtype >}}/{{< var pubtype >}}/{{< var reponame >}}/", branch, - "/)

" + "/)" ) ) |> dplyr::pull(htmlstr) |> - paste(collapse = "") |> + paste(collapse = "\n\n") |> cat() ``` @@ -38,8 +39,9 @@ tibble::tibble(branch = system("git branch -a", intern = TRUE)) |> branches <- system("git branch -r", intern = TRUE) branches <- trimws(branches) # 去除空白字符 branches <- branches[!grepl("HEAD", branches)] - -all_commits <- list() +branches <- tibble::tibble(branch = branches) |> + dplyr::arrange(dplyr::desc(branch)) |> + dplyr::pull(branch) cat("\n") for (branch in branches) { @@ -53,10 +55,9 @@ for (branch in branches) { ), intern = TRUE ) - all_commits[[branch]] <- paste0("- ", commits) - cat("\n") + # all_commits[[branch]] <- paste0("- ", commits) cat(paste0("- ", commits), sep = "\n") - cat("\n\n") + cat("\n") } } ```