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
|
## Legacy, for trunc_mat() and friends
op.tibble <- list(
tibble.print_min = 10L,
tibble.print_max = 20L,
tibble.width = NULL,
tibble.max_extra_cols = 100L
)
tibble_opt <- function(x, dplyr = TRUE) {
x_tibble <- paste0("tibble.", x)
res <- getOption(x_tibble)
if (!is.null(res)) {
return(res)
}
if (dplyr) {
x_dplyr <- paste0("dplyr.", x)
res <- getOption(x_dplyr)
if (!is.null(res)) {
return(res)
}
}
op.tibble[[x_tibble]]
}
tibble_width <- function(width) {
if (!is.null(width)) {
return(width)
}
width <- tibble_opt("width")
if (!is.null(width)) {
return(width)
}
getOption("width")
}
tibble_glimpse_width <- function(width) {
if (!is.null(width)) {
return(width)
}
width <- tibble_opt("width")
if (!is.null(width) && is.finite(width)) {
return(width)
}
getOption("width")
}
|
