facets: fix add_line usage
This commit is contained in:
parent
1e3ad8fcc8
commit
4cbf760e29
|
@ -42,6 +42,7 @@ apexchart <- function(ax_opts = list(),
|
||||||
preRenderHook = function(widget) {
|
preRenderHook = function(widget) {
|
||||||
widget$x$data <- NULL
|
widget$x$data <- NULL
|
||||||
widget$x$mapping <- NULL
|
widget$x$mapping <- NULL
|
||||||
|
widget$x$add_line <- NULL
|
||||||
add_locale_apex(widget)
|
add_locale_apex(widget)
|
||||||
},
|
},
|
||||||
sizingPolicy = htmlwidgets::sizingPolicy(
|
sizingPolicy = htmlwidgets::sizingPolicy(
|
||||||
|
|
34
R/facets.R
34
R/facets.R
|
@ -155,6 +155,14 @@ build_facets <- function(chart) {
|
||||||
byrow = TRUE
|
byrow = TRUE
|
||||||
)
|
)
|
||||||
lrow <- get_last_row(grid)
|
lrow <- get_last_row(grid)
|
||||||
|
facet_data_add_line <- if (!is.null(chart$x$add_line)) {
|
||||||
|
get_facets(
|
||||||
|
data = chart$x$add_line$data,
|
||||||
|
rows = chart$x$facet$facets_row,
|
||||||
|
cols = chart$x$facet$facets_col,
|
||||||
|
type = chart$x$facet$type
|
||||||
|
)$facets
|
||||||
|
}
|
||||||
facets <- lapply(
|
facets <- lapply(
|
||||||
X = nums,
|
X = nums,
|
||||||
FUN = function(i) {
|
FUN = function(i) {
|
||||||
|
@ -187,6 +195,32 @@ build_facets <- function(chart) {
|
||||||
if (!is.null(new$x$colors_manual)) {
|
if (!is.null(new$x$colors_manual)) {
|
||||||
new <- ax_colors_manual(ax = new, values = new$x$colors_manual)
|
new <- ax_colors_manual(ax = new, values = new$x$colors_manual)
|
||||||
}
|
}
|
||||||
|
if (!is.null(facet_data_add_line)) {
|
||||||
|
maplinedata <- lapply(chart$x$add_line$mapping, eval_tidy, data = facet_data_add_line[[i]])
|
||||||
|
if (chart$x$facet$scales %in% c("fixed", "free_y") & chart$x$type %in% c("bar")) {
|
||||||
|
maplinedata <- complete_mapdata(maplinedata, mapall)
|
||||||
|
}
|
||||||
|
if (chart$x$facet$scales %in% c("fixed", "free_x") & chart$x$type %in% c("column")) {
|
||||||
|
maplinedata <- complete_mapdata(maplinedata, mapall)
|
||||||
|
}
|
||||||
|
new$x$ax_opts$series <- c(
|
||||||
|
new$x$ax_opts$series,
|
||||||
|
make_series(
|
||||||
|
mapdata = maplinedata,
|
||||||
|
mapping = chart$x$add_line$mapping,
|
||||||
|
type = chart$x$add_line$type,
|
||||||
|
serie_name = chart$x$add_line$serie_name,
|
||||||
|
force_datetime_names = c("x", "y")
|
||||||
|
)
|
||||||
|
)
|
||||||
|
# new <- add_line(
|
||||||
|
# ax = new,
|
||||||
|
# mapping = chart$x$add_line$mapping,
|
||||||
|
# data = facet_data_add_line[[i]],
|
||||||
|
# type = chart$x$add_line$type,
|
||||||
|
# serie_name = chart$x$add_line$serie_name
|
||||||
|
# )
|
||||||
|
}
|
||||||
new$height <- chart$x$facet$chart_height
|
new$height <- chart$x$facet$chart_height
|
||||||
new$x$facet <- NULL
|
new$x$facet <- NULL
|
||||||
class(new) <- setdiff(class(new), "apex_facet")
|
class(new) <- setdiff(class(new), "apex_facet")
|
||||||
|
|
|
@ -42,6 +42,12 @@ add_line <- function(ax,
|
||||||
ax$x$ax_opts$series,
|
ax$x$ax_opts$series,
|
||||||
make_series(mapdata, mapping, type, serie_name, force_datetime_names = c("x", "y"))
|
make_series(mapdata, mapping, type, serie_name, force_datetime_names = c("x", "y"))
|
||||||
)
|
)
|
||||||
|
ax$x$add_line <- list(
|
||||||
|
data = data,
|
||||||
|
mapping = mapping,
|
||||||
|
type = type,
|
||||||
|
serie_name = serie_name
|
||||||
|
)
|
||||||
if (identical(apex_type, "scatter")) {
|
if (identical(apex_type, "scatter")) {
|
||||||
if (is.null(ax$x$ax_opts$markers$size)) {
|
if (is.null(ax$x$ax_opts$markers$size)) {
|
||||||
ax$x$ax_opts$markers$size <- c(6, 0)
|
ax$x$ax_opts$markers$size <- c(6, 0)
|
||||||
|
|
Loading…
Reference in New Issue