Define "shortcuts" to all kwb.utils functions

R/detach.R

@@ -184,7 +184,8 @@ packageDependenciesByType <- function(
         reverse = reverse, 
         verbose = verbose
       ) %>% 
-        do.call(what = rbind)
+        do.call(what = rbind) %>% 
+        resetRowNames()
     )
   }
 
@@ -209,14 +210,14 @@ packageDependenciesByType <- function(
         ) %>% 
           cbind(
             getPackageLicences(dependencies) %>% 
-              kwb.utils::renameColumns(list(package = "dependency"))
+              renameColumns(list(package = "dependency"))
           )
       } # else NULL
     }) %>% 
     stats::setNames(which) %>% 
-    kwb.utils::excludeNULL(dbg = FALSE) %>% 
+    excludeNULL(dbg = FALSE) %>% 
     do.call(what = rbind.data.frame) %>% 
-    kwb.utils::resetRowNames()
+    resetRowNames()
 }
 
 # printAndWaitIf ---------------------------------------------------------------

R/getPackageLicences.R

@@ -13,11 +13,11 @@ getPackageLicences <- function(packages)
     fields <- c("licence", "license")
     columns <- intersect(colnames(description), fields)
     as.data.frame(description[, columns, drop = FALSE]) %>%
-      kwb.utils::renameColumns(list(
+      renameColumns(list(
         license = "licence"
       ))
   }) %>%
     stats::setNames(packages) %>%
-    kwb.utils::rbindAll(nameColumn = "package", namesAsFactor = FALSE) %>% 
-    kwb.utils::moveColumnsToFront("package")
+    rbindAll(nameColumn = "package", namesAsFactor = FALSE) %>% 
+    moveColumnsToFront("package")
 }

R/helpers.R

@@ -47,7 +47,7 @@ githubRepo <- function(github_user, name)
 hasGplLicence <- function(packages)
 {
   getPackageLicences(packages) %>% 
-    kwb.utils::selectColumns("licence") %>% 
+    selectColumns("licence") %>% 
     grep(pattern = "GPL", ignore.case = TRUE)
 }
 
@@ -75,7 +75,7 @@ readDescription <- function(package)
   stopIfNotInstalled(package)
 
   description <- system.file("DESCRIPTION", package = package) %>% 
-    kwb.utils::safePath() %>% 
+    safePath() %>% 
     read.dcf()
 
   colnames(description) <- tolower(colnames(description))
@@ -95,6 +95,6 @@ stopIfNotInstalled <- function(package)
   available <- rownames(installed.packages())
 
   if (!package %in% available) {
-    kwb.utils::stopFormatted("The package '%s' is not installed.", package)
+    stopFormatted("The package '%s' is not installed.", package)
   }
 }

R/utils.R

@@ -98,11 +98,11 @@ restoreAttributes <- kwb.utils::hsRestoreAttributes
 
 # runInDirectory ---------------------------------------------------------------
 #' @importFrom kwb.utils runInDirectory
-kwb.utils::runInDirectory
+runInDirectory <- kwb.utils::runInDirectory
 
 # safePath ---------------------------------------------------------------------
 #' @importFrom kwb.utils safePath
-kwb.utils::safePath
+safePath <- kwb.utils::safePath
 
 # safeRowBind ------------------------------------------------------------------
 #' @importFrom kwb.utils safeRowBind