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
38
39
40
41
42
43
|
upcase1 <- function(x) {
substr(x, 1, 1) <- toupper(substr(x, 1, 1))
x
}
cat_line <- function(...) {
cat(paste0(..., "\n", collapse = ""))
}
paste_line <- function(...) {
paste(chr(...), collapse = "\n")
}
# nocov start
has_crayon <- function() {
is_installed("crayon") && crayon::has_color()
}
red <- function(x) if (has_crayon()) crayon::red(x) else x
blue <- function(x) if (has_crayon()) crayon::blue(x) else x
green <- function(x) if (has_crayon()) crayon::green(x) else x
yellow <- function(x) if (has_crayon()) crayon::yellow(x) else x
magenta <- function(x) if (has_crayon()) crayon::magenta(x) else x
cyan <- function(x) if (has_crayon()) crayon::cyan(x) else x
blurred <- function(x) if (has_crayon()) crayon::blurred(x) else x
silver <- function(x) if (has_crayon()) crayon::silver(x) else x
bold <- function(x) if (has_crayon()) crayon::bold(x) else x
italic <- function(x) if (has_crayon()) crayon::italic(x) else x
underline <- function(x) if (has_crayon()) crayon::underline(x) else x
# nocov end
pkg_url_bug <- function(pkg) {
# First check that package is installed, e.g. in case of
# runtime-only namespace created by pkgload
if (nzchar(system.file(package = pkg))) {
url <- utils::packageDescription(pkg)$BugReports
# `url` can be NULL if not part of the description
if (is_string(url) && grepl("^https://", url)) {
return(url)
}
}
NULL
}
|
