diff --git a/R/browse-pkg.R b/R/browse-pkg.R index 418504c..da80eb0 100644 --- a/R/browse-pkg.R +++ b/R/browse-pkg.R @@ -89,7 +89,11 @@ browse_pkg <- function(package = NULL, ) pkgdown <- stringr::str_remove(pkgdown, "/$") - pkgdown_tabs_url <- paste0(pkgdown, "/", pkgdown_tabs) + pkgdown_tabs_url <- paste0(pkgdown, "/", pkgdown_tabs, "/") + if (stringr::str_detect(pkgdown, "r-lib.org|tidyverse.org|tidymodels.org") && !stringr::str_detect(pkgdown, "github.com")) { + # known packages with dev enabled. + pkgdown_tabs_url[1] <- paste0(pkgdown, "/dev/news") + } names(pkgdown_tabs_url) <- pkgdown_tabs if (news_only) { return(cli::style_hyperlink("news", pkgdown_tabs_url["news"])) diff --git a/R/outdated-pkgs.R b/R/outdated-pkgs.R index 44c5ea3..80b75ed 100644 --- a/R/outdated-pkgs.R +++ b/R/outdated-pkgs.R @@ -70,9 +70,9 @@ outdated_pkgs <- function(type = c("binary", "source")) { # Stop early for pak update before if (rlang::has_name(outdated_pkg, "pak")) { cli::cli_inform(c( - "v" = "There is a new version of pak.", + "v" = "There is a new version of {.href [pak](https://pak.r-lib.org/dev/news/index.html)}.", "i" = "Update pak with {.run pak::pak_update()}", - "i" = "Restart R session then run `outdated_pkgs()` again." + "i" = "Restart R session then run {.run [outdated_pkgs()](reuseme::outdated_pkgs())}` again." )) return(invisible()) }