pload supports github pkg

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: yulab.utils
 Title: Supporting Functions for Packages Maintained by 'YuLab-SMU'
-Version: 0.1.7.001
+Version: 0.1.7.002
 Authors@R: c(person("Guangchuang", "Yu", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6485-8781")))
 Description: Miscellaneous functions commonly used by 'YuLab-SMU'.
 Imports:

NEWS.md

@@ -1,5 +1,6 @@
-# yulab.utils 0.1.7.001
+# yulab.utils 0.1.7.002
 
++ `pload()` now supports github package (2024-11-06, Wed)
 + bug fixed in `pkg_ref()` (2024-08-26, Mon)
 
 # yulab.utils 0.1.7

R/pkg-utils.R

@@ -19,14 +19,15 @@ pload <- function(package, action = "auto") {
     if (action == "auto") {
         if (is.installed("BiocManager")) {
             install <- getFromNamespace("install", "BiocManager")
-            action <- function(package, ask=FALSE, update=FALSE, ...){
+            action <- function(package, ask=FALSE, update=FALSE, ...) {
                 install(package, ask=ask, update = update, ...)
             }
         } else {
             action <- NULL
         }
     }
     check_installed(pkg, action = action)
+    pkg <- sub("\\w+/", "", pkg) # for github pkg: repo/pkg
     cli::cli_h2(sprintf("loading the package: %s", pkg))
     library(pkg, character.only = TRUE)
 }