apex(): update bar config
This commit is contained in:
parent
de477fec66
commit
f83cb879a8
12
R/apex.R
12
R/apex.R
|
@ -350,16 +350,12 @@ config_bar <- function(horizontal = FALSE, datetime = FALSE) {
|
||||||
shared = TRUE,
|
shared = TRUE,
|
||||||
intersect = FALSE,
|
intersect = FALSE,
|
||||||
followCursor = TRUE
|
followCursor = TRUE
|
||||||
)
|
),
|
||||||
)
|
|
||||||
if (isTRUE(horizontal)) {
|
|
||||||
config <- c(config, list(
|
|
||||||
grid = list(
|
grid = list(
|
||||||
yaxis = list(lines = list(show = FALSE)),
|
yaxis = list(lines = list(show = !isTRUE(horizontal))),
|
||||||
xaxis = list(lines = list(show = TRUE))
|
xaxis = list(lines = list(show = isTRUE(horizontal)))
|
||||||
|
)
|
||||||
)
|
)
|
||||||
))
|
|
||||||
}
|
|
||||||
if (isTRUE(datetime)) {
|
if (isTRUE(datetime)) {
|
||||||
config$xaxis$type <- "datetime"
|
config$xaxis$type <- "datetime"
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue