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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# nocov start
wrap <- function(..., indent = 0) {
x <- paste0(..., collapse = "")
wrapped <- strwrap(
x,
indent = indent,
exdent = indent + 2,
width = getOption("width")
)
paste0(wrapped, collapse = "\n")
}
# nocov end
indent <- function(x) {
x <- paste0(x, collapse = "\n")
paste0(" ", gsub("\n", "\n ", x))
}
indent_print <- function(x) {
indent(utils::capture.output(print(x)))
}
style_kw <- function(x) {
if (!dbplyr_use_colour()) {
return(x)
}
highlight <- dbplyr_highlight()
if (is_false(highlight)) {
return(x)
}
highlight(x)
}
# function for the thousand separator,
# returns "," unless it's used for the decimal point, in which case returns "."
'big_mark' <- function(x, ...) {
mark <- if (identical(getOption("OutDec"), ",")) "." else ","
formatC(x, big.mark = mark, ...)
}
dbplyr_use_colour <- function() {
getOption("dbplyr_use_colour", FALSE)
}
dbplyr_highlight <- function() {
highlight <- getOption("dbplyr_highlight", cli::combine_ansi_styles("blue"))
if (is_true(highlight)) {
highlight <- cli::combine_ansi_styles("blue")
}
if (is_false(highlight)) {
return(FALSE)
}
if (!inherits(highlight, "cli_ansi_style")) {
msg <- "{.envvar dbplyr_highlight} must be `NULL`, `FALSE` or a {.cls cli_ansi_style}."
cli::cli_abort(msg)
}
highlight
}
|
