1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#' Return a vector of names of attached packages
#' @export
#' @keywords internal
#' @return A data frame with columns package and path, giving the name of
#' each package and the path it was loaded from.
loaded_packages <- function() {
attached <- data.frame(
package = search(),
path = searchpaths(),
stringsAsFactors = FALSE
)
packages <- attached[grepl("^package:", attached$package), , drop = FALSE]
rownames(packages) <- NULL
packages$package <- sub("^package:", "", packages$package)
packages
}
#' Return a vector of names of packages loaded by devtools
#' @export
#' @keywords internal
dev_packages <- function() {
packages <- vapply(
loadedNamespaces(),
function(x) !is.null(pkgload::dev_meta(x)), logical(1)
)
names(packages)[packages]
}
#' @export
#' @importFrom sessioninfo session_info
sessioninfo::session_info
#' @export
#' @importFrom sessioninfo package_info
sessioninfo::package_info
|
